Topic: Quick, easy LISP request

[econnerly]

I have to scale a whole bunch of lines and text from with a reference of 2 to 1.8.
Can someone write something to run the scale command and then turn what I just scaled to a different color?
I have been running the scale command followed by "chprop" "P" "C" 58

Much thanks in advanced.

[Keith™]

You have to run this right after the scale function or you will get unexpected results

Code: [Select]

(defun c:ccp ()
  (vl-cmdf "_chprop" "P" "" "C" "58" "")
)


[econnerly]

Thanks. I was hoping there was a way get get it to work in one command though. I have thousands to scale and I catch myself scaling the same one again since its difficult to see the size difference.

[econnerly]

nm....
Wrote this deal and it seems to be doing the trick for now.
(defun c:vv ()
(command "chprop" "p" "" "c" "48" "" "")
(command "scale")
)

I start with the scale command once to start and it keeps it looping.

[Lee Mac]

Quickly written:

Code: [Select]

(defun c:vv ( / s )
    (while (setq s (ssget "_:L" '((0 . "*LINE,*TEXT"))))
        (command
            "_.scale"  s "" "\\" "_R" 2.0 1.8
            "_.chprop" s "" "_C" 58 ""
        )
    )
    (princ)
)

[econnerly]

Even better. Thanks Lee. Just had to add leader and circle to the routine and it works perfect.

[Lee Mac]

welcome 

[irneb]

Lee, I'd add a gc call into that loop just to be on the safe side with the selection set restrictions.

@econnerly: BTW, not too sure about the "basepoint" around which to scale. Do you mean as per Lee's code (select a group, pick a base point, lisp does it's job, then repeat for next group)? Or should all text be scaled around their insertion points & all lines around their midpoints (or some other)?

Sorry, probably stupid question - but I'm not enlightened from your posts.