Update Dimension Property

[freedomonek]

Hello All,

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.

;; 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
	(progn
	(vlax-put-property   cycleThru "LinearScaleFactor" 48)	;Sets value
	(vlax-release-Object cycleThru)			;updates object
	); End Progn
  );End Foreach
(princ)

Thanks for your help!

Kelley

[Lions60]

Give this a shot. I believe the problem was the vla-object you were creating. So in the version below i iterate through each entity in the selection set and conver each entity to a vla object then store it to a list and then process the new list.

;; attemps to select all Dimenision in Paperspace and chand the DIMLFAC to factor of 48. 
(defun C:DIMLFACCHG ()
(vl-load-com)					  ; visual lisp extensions
(setq ss (ssget "x" '((0 . "DIMENSION"))) )
(setq n (sslength SS))
  (setq count 0)
  (setq objlist nil)

  ;; get the name of each object in the list and convert it to a vla-object and then store it to a new list
  (repeat n
    (progn
    (setq na (ssname SS count))
    (setq vladim (vlax-ename->vla-object na))		  ;convert to visual-lisp object
    (setq objlist (if objlist (append objlist (list vladim))(list vladim)))
    (setq count (1+ count))
    );; end of progn
 );; end of repeat

  (foreach each objlist				   ;The Loop
    (if (=(vla-get-linearscalefactor each) 1)
	(vla-put-linearscalefactor each 48)	;Sets value
	;(vlax-release-Object each)			;updates object
    ); End if
  );; end of foreach statement
);; end of defun
(princ)

[freedomonek]

Thanks Lions60 for your insight.

Your solution works perfect!

[Lions60]

Glad I could help.