infeeeee/revitDwgImportCleaner
1
0
Fork 0
Code Issues 11 Pull Requests Releases Wiki Activity

disable selection cycling while measuring

Browse Source
This commit is contained in:
Péter Gyetvai
2019-11-28 01:45:52 +01:00
parent 8afb231388
commit 6dd18d6d9e
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
revitDwgImportCleaner.lsp
View File

@@ -6,7 +6,7 @@
; Just drag the script to the autocad window. ; Just drag the script to the autocad window.
; The script automatically starts after loading, no command needed. ; The script automatically starts after loading, no command needed.
; Version 1.4 ; Version 1.5
; Created by Peter Gyetvai ; Created by Peter Gyetvai
; gyetpet@mailbox.org ; gyetpet@mailbox.org
; git repo: https://git.gyetpet.dynu.net/infeeeee/revitDwgImportCleaner ; git repo: https://git.gyetpet.dynu.net/infeeeee/revitDwgImportCleaner
@@ -177,8 +177,9 @@
; --------------------------------- unitCheck -------------------------------- ; ; --------------------------------- unitCheck -------------------------------- ;
;CHeck units with measurement, change if wrong ;CHeck units with measurement, change if wrong
(defun unitcheck (/ setunits currunit domeasure testdist dochange newunit newunitnum) (defun unitcheck (/ setunits selectioncycling currunit domeasure testdist dochange newunit newunitnum)
(setq setunits (getvar "insunits")) (setq setunits (getvar "insunits"))
(setq selectioncycling (getvar "selectioncycling"))
(cond (cond
((= setunits 0) (setq currunit "no units")) ((= setunits 0) (setq currunit "no units"))
@@ -212,7 +213,9 @@
(if (if
(= domeasure "Change") (= domeasure "Change")
(progn (progn
(setvar "selectioncycling" 0)
(setq testdist (getdist "\nMeasure now")) (setq testdist (getdist "\nMeasure now"))
(setvar "selectioncycling" selectioncycling)
(initget 1 "Yes No") (initget 1 "Yes No")
(setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nChange unit? [Yes/No]"))) (setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nChange unit? [Yes/No]")))

5
source scripts/unitCheck.lsp
View File

@@ -1,5 +1,6 @@
(defun c:unitcheck (/ setunits currunit domeasure testdist dochange newunit newunitnum) (defun c:unitcheck (/ setunits selectioncycling currunit domeasure testdist dochange newunit newunitnum)
(setq setunits (getvar "insunits")) (setq setunits (getvar "insunits"))
(setq selectioncycling (getvar "selectioncycling"))
(cond (cond
((= setunits 0) (setq currunit "no units")) ((= setunits 0) (setq currunit "no units"))
@@ -33,7 +34,9 @@
(if (if
(= domeasure "Change") (= domeasure "Change")
(progn (progn
(setvar "selectioncycling" 0)
(setq testdist (getdist "\nMeasure now")) (setq testdist (getdist "\nMeasure now"))
(setvar "selectioncycling" selectioncycling)
(initget 1 "Yes No") (initget 1 "Yes No")
(setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nChange unit? [Yes/No]"))) (setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nChange unit? [Yes/No]")))