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
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)
)
Any idea why it would be so slow?