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

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 selectioncycling (getvar "selectioncycling"))
(cond
((= setunits 0) (setq currunit "no units"))
@@ -33,7 +34,9 @@
(if
(= domeasure "Change")
(progn
(setvar "selectioncycling" 0)
(setq testdist (getdist "\nMeasure now"))
(setvar "selectioncycling" selectioncycling)
(initget 1 "Yes No")
(setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nChange unit? [Yes/No]")))