Leaderboard

See if this sheds any light: (defun c:test (/ fldobj util vpid vpobj) (if (and (setq vpobj (car (entsel "\nPick viewport: "))) ;; Add a check that it's a viewport selected (setq fldobj (car (entsel "\nSelect Block: "))) ;; Add a check that it's your barscale selected (setq vpid (vla-get-objectid (setq vpobj (vlax-ename->vla-object vpobj)))) ) (progn (if (> (vl-string-search "x64" (getvar "platform")) 0) (progn (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))) vpid (vlax-invoke-method util "GetObjectIdString" vpobj :vlax-false) ) ) (setq vpid (vl-princ-to-string (vla-get-objectid vpobj))) ) (foreach a '("half" "full" "double") (setpropertyvalue fldobj a (strcat "%<\\AcExpr (" (cond ((= a "half") "0.5") ((= a "full") "1.") ((= a "double") "2.") ) "*%<\\AcObjProp Object(%<\\_ObjId " vpid ">%).CustomScale>%) \\f \"%lu2\">%" ) ) ) (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 1) ) ) (princ) ) (vl-load-com)

Do you have the dcl file that this lisp is supposed to use? If not a large part of the lisp is superfluous and can be removed leaving the attached lisp, which I have renamed to arec. The lisp, as per the original, is set to auto-run when loaded. If you need to run it later it is now "arec" If you have the dcl file, please attach it so i can test the complete package with the changes. arec.lsp

There is alot there. But yeah as soon as I opened it I got a message about 3D performance. However no 3D data in the drawing. I then realized he is using "realistic" visual style. When there are no 3d objects to view in a "realistic" context. If you change this to 2D wireframe the performance will improve pretty drastically. There aren't many blocks or hatching from what I can tell. No dimensions either. My guess is he/she exploded many of these objects to improve performance. But IMO it is a visual style issue. -ChriS

I know I have an elderly version of AutoCAD, but these instances are a challenge to me. After converting to my version, the speed improved immensely when I set SHADEMODE to 2D.

The drawing has been badly treated, all dimensions exploded, but for some reason what would normally result in lines the dimension lines have been turned into polylines, and many objects that would have been originally blocks are just collections of polylines (WC, chairs etc) was this drwing at some point converted from a PDF?

Try running a -PURGE on the drawing. I did, using NanoCAD, and the new version of the drawing opened much quicker. The file size also decreased.