Topic: Dimscale changing

[TJ]

My dimscale keeps changing from 96.00 to 1.00. What could be happening?

[Adesu]

My dimscale keeps changing from 96.00 to 1.00. What could be happening?

Hi TJ,check my script,may be can help you

 eso is stand for edit dim scale overall dimension
;       Design by Ade Suharna <mteybid@yuasabattery.co.id>
;       28 September 2004
;       program no. 90/09/2004
;       Edit by
(defun c:eso (/ ent opt)
  (vl-load-com)
  (while
  (setq ent
    (vlax-ename->vla-object
      (car
        (entsel "\nSELECT A DIMENSION: ")))
       ent1 (rtos (vlax-get-property ent "ScaleFactor"))
       opt
    (getstring
      (strcat "\nENTER NEW SCALE FACTOR" "<" ent1 ">" ": ")))
  (vla-put-ScaleFactor ent opt)
  )
  (princ)
  )

[ronjonp]

Read This thread:
http://http://theswamp.org/phpBB2/viewtopic.php?p=35823#35823

Ron

[PDJ]

Would you happen to be using LDD??  I had this same problem.  It was in the drawing setup in LDD.  Everytime I'd close a drawing and come back, it would revert back to what the setup told it to be.

[qwrtz]

I like Adesu's custom command, above, that changes the ScaleFactor of a dimension entity using the command line instead of the Properties palette.

Can anyone tell me how to modify it to operate on a selection set instead of on a series of individually selected entities?

Thank you, Adesu, and anyone who can answer this.

[fools]

Qwrtz, the following code can operate on a selection set.

Code - Auto/Visual Lisp: [Select]

1. (DEFUN c:DIMS (/ n ssg scale)
2.   (SETQ ssg (SSGET '((0 . "DIM*"))))
3.   (initget 6)
4.   (IF (not (SETQ scale (GETREAL (STRCAT "\nENTER NEW SCALE FACTOR < " (RTOS (GETVAR 'dimscale)) " >: "))))
5.     (setq scale (GETVAR 'dimscale))
6.   )
7.   (IF ssg
8.     (REPEAT (SETQ n (SSLENGTH ssg))
9.       (VLA-PUT-SCALEFACTOR (VLAX-ENAME->VLA-OBJECT (SSNAME ssg (SETQ n (1- n)))) scale)
10.     )
11.   )
12.   (princ)
13. )

[qwrtz]

Thanks very much, Fools. I've been studying what you did and I learned a lot.

[fools]

qwrtz, learn from each other and encourage each other.