I'm trying to put together a routine that will:
1. Select all Dimensions in Paper Space and
2. Capture the DimLinearFac of All.
3. If the DimLinearFac value has been modified, keep it as is.
4. If it is the default (1), change it to a value of "48".
Below is an attempt at it, to start. I was able to get one dim to update. Then I added the Foreach loop and nothing updates.
Thanks for your help!
;; attemps to select all Dimenision in Paperspace and chand the DIMLFAC to factor of 48.
(setq ss (ssget "x" '((0 . "DIMENSION"))) )
(setq n (sslength SS))
(setq na (ssname SS 0))
(setq b (entget na))
(vl-load-com) ; visual lisp extensions
(setq vladim (vlax-ename->vla-object NA)) ;convert to visual-lisp object
(foreach cycleThru vladim ;The Loop
(vlax-put-property cycleThru "LinearScaleFactor" 48) ;Sets value
(vlax-release-Object cycleThru) ;updates object
); End Progn