Search the Community
Showing results for tags 'getvar'.
-
Can someone help me on why this code is throwing nil? (command "_area") (while (> (getvar "cmdactive") 0) (command pause)) (setq e (getvar "_area")) e has nil value...
-
Why will this (getvar 'dimscale) not work on windows 7?
clint0577 posted a topic in AutoLISP, Visual LISP & DCL
This works just fine on the other computers but the 2 computers running windows 7 won't work. It's supposed to reat 1" = 20' when ran but it reads 1" = ' on the computers running 7 (defun c:dsc () (setq DS (rtos (getvar 'dimscale))) (setq dwg-SCALE (substr DS 1 (- (strlen DS) 5))) (SETQ DTE (STRCAT "1\" = " DWG-SCALE "'")) (if (and (not (eq (setq OldTxt "Scale") "") ) (not (eq (setq NewTxt dte) "") ) ) (if (setq ss (ssget "x" (list '(0 . "TEXT,MTEXT") (cons 1 OldTxt) (cons 410 (getvar 'ctab)) ) ) ) (repeat (setq in (sslength ss)) (setq en (entget (ssname ss (setq in (1- in))))) (entmod (subst (cons 1 Newtxt) (assoc 1 en) en)) ) ) ) ) -
Hi everyone, is there any ObjectDBX equivalent for getvar and setvar functions? Any reply or clue is fully appreciated.