From 6dd18d6d9eb4e739a5ec8d54c0304ff788c14799 Mon Sep 17 00:00:00 2001 From: infeeeee Date: Thu, 28 Nov 2019 01:45:52 +0100 Subject: [PATCH] disable selection cycling while measuring --- revitDwgImportCleaner.lsp | 7 +++++-- source scripts/unitCheck.lsp | 5 ++++- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/revitDwgImportCleaner.lsp b/revitDwgImportCleaner.lsp index ed12eb7..af224cd 100644 --- a/revitDwgImportCleaner.lsp +++ b/revitDwgImportCleaner.lsp @@ -6,7 +6,7 @@ ; Just drag the script to the autocad window. ; The script automatically starts after loading, no command needed. -; Version 1.4 +; Version 1.5 ; Created by Peter Gyetvai ; gyetpet@mailbox.org ; git repo: https://git.gyetpet.dynu.net/infeeeee/revitDwgImportCleaner @@ -177,8 +177,9 @@ ; --------------------------------- unitCheck -------------------------------- ; ;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 selectioncycling (getvar "selectioncycling")) (cond ((= setunits 0) (setq currunit "no units")) @@ -212,7 +213,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]"))) diff --git a/source scripts/unitCheck.lsp b/source scripts/unitCheck.lsp index 2b34bba..61f54b1 100644 --- a/source scripts/unitCheck.lsp +++ b/source scripts/unitCheck.lsp @@ -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]")))