I am currently testing acad 2013 and routines that ran quicky in 2012 and earlier versions are taking minutes to complete in 2013. Here is a sample
Any idea why it would be so slow?Code:(Defun C:81 () (SETQ OLDCMDECHO (GETVAR "CMDECHO")) (SETQ OLDLAYER (GETVAR "CLAYER")) (SETQ OLDATTREQ (GETVAR "ATTREQ")) (SETQ OLDATTMODE (GETVAR "ATTMODE")) (SETQ OLDOSMODE (GETVAR "OSMODE")) (SETQ OLDORTHO (GETVAR "ORTHOMODE")) (SETQ OLDATTDIA (GETVAR "ATTDIA")) (SETQ OLDDIMSTYLE (GETVAR "DIMSTYLE")) (SETQ OLDELEVATION (GETVAR "ELEVATION")) (SETVAR "CMDECHO" 0) (SETVAR "ATTREQ" 1) (SETVAR "ATTMODE" 1) (SETVAR "ATTDIA" 1) (SETVAR "OSMODE" 1) (SETVAR "CLAYER" "001_Antenna") (COMMAND "DIMSTYLE" "" "D-001") (princ "\n What is the elevation of the antenna?") (COMMAND "ELEVATION" pause ) (SETQ pt1 (GETPOINT "\n Pick location of antenna.")) (COMMAND "INSERT" "81" pt1 "" "" "") (SETVAR "CLAYER" OLDLAYER) (SETVAR "ATTREQ" OLDATTREQ) (SETVAR "ATTMODE" OLDATTMODE) (SETVAR "ORTHOMODE" OLDORTHO) (SETVAR "OSMODE" OLDOSMODE) (SETVAR "CMDECHO" OLDCMDECHO) (SETVAR "ATTDIA" OLDATTDIA) (SETVAR "ELEVATION" OLDELEVATION) (COMMAND "DIMSTYLE" "" OLDDIMSTYLE) (PRINC) )


Reply With Quote

