From 7371c969cf345effa5ce4d4e35c192b2ee10f963 Mon Sep 17 00:00:00 2001 From: infeeeee Date: Fri, 6 Dec 2019 20:58:11 +0100 Subject: [PATCH] reworded unitcheck questions --- revitDwgImportCleaner.lsp | 12 ++++++------ source scripts/unitCheck.lsp | 10 +++++----- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/revitDwgImportCleaner.lsp b/revitDwgImportCleaner.lsp index af224cd..6f102d3 100644 --- a/revitDwgImportCleaner.lsp +++ b/revitDwgImportCleaner.lsp @@ -176,7 +176,7 @@ ) ; --------------------------------- unitCheck -------------------------------- ; -;CHeck units with measurement, change if wrong +;Check units with measurement, change if wrong (defun unitcheck (/ setunits selectioncycling currunit domeasure testdist dochange newunit newunitnum) (setq setunits (getvar "insunits")) (setq selectioncycling (getvar "selectioncycling")) @@ -206,21 +206,21 @@ ((= setunits 21) (setq currunit "US Survey Feet")) ) - (initget 1 "Accept Change") - (setq domeasure (getkword (strcat "Current units: " currunit " \n[Accept/Change]"))) + (initget 1 "Accept Verify") + (setq domeasure (getkword (strcat "Current units: " currunit " \n[Accept/Verify]"))) (princ domeasure) (if - (= domeasure "Change") + (= domeasure "Verify") (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]"))) + (setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nAccept? [Yes/No]"))) (if - (= dochange "Yes") + (= dochange "No") (progn (initget 1 "Inches Feet Millimeters Centimeters Decimeters Meters") (setq newunit (getkword "Select new unit: [Inches/Feet/Millimeters/Centimeters/Decimeters/Meters]")) diff --git a/source scripts/unitCheck.lsp b/source scripts/unitCheck.lsp index 61f54b1..56ed6e4 100644 --- a/source scripts/unitCheck.lsp +++ b/source scripts/unitCheck.lsp @@ -27,21 +27,21 @@ ((= setunits 21) (setq currunit "US Survey Feet")) ) - (initget 1 "Accept Change") - (setq domeasure (getkword (strcat "Current units: " currunit " \n[Accept/Change]"))) + (initget 1 "Accept Verify") + (setq domeasure (getkword (strcat "Current units: " currunit " \n[Accept/Verify]"))) (princ domeasure) (if - (= domeasure "Change") + (= domeasure "Verify") (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]"))) + (setq dochange (getkword (strcat "Measurement: " (rtos testdist) " " currunit "\nAccept? [Yes/No]"))) (if - (= dochange "Yes") + (= dochange "No") (progn (initget 1 "Inches Feet Millimeters Centimeters Decimeters Meters") (setq newunit (getkword "Select new unit: [Inches/Feet/Millimeters/Centimeters/Decimeters/Meters]"))