topic Re: SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1 in AutoCAD Forum

SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1

Anonymous — Wed, 10 Jun 2015 19:01:22 GMT

I wish to create a command within a script that will select ALL block references with a Scale X = 1. Typically I use the QSELECT command to achieve this and was wondering if it'd be possible to code. Any direction would be greatly appreciated.

Thanks,

Re: SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1

pendean — Wed, 10 Jun 2015 20:28:36 GMT

A script just mimics what you can type at the commandline without using pop-ups. You will need to add a little more programming with some LISP.

Are these standard blocks or 'dynamic' blocks?

Re: SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1

Anonymous — Wed, 10 Jun 2015 20:32:03 GMT

Thanks for the response. The blocks are standard and NOT dynamic. I'm a little familiar with simple lisp routines, but still may need some direction.

Re: SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1

ВeekeeCZ — Wed, 10 Jun 2015 21:26:20 GMT

Maybe this code. But remember it selects xrefs as well.

(defun c:SelBlkX1 ( / ss)
  (if (setq ss (ssget "_X" (list '(0 . "INSERT") '(41 . 1))))
    (sssetfirst nil ss))
  (princ)
)

Re: SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1

Anonymous — Wed, 10 Jun 2015 21:54:56 GMT

Thanks B. That worked awesome! Maybe you can help me with just one more.

I need a different routine to select standard blocks with an X SCALE NOT EQUAL TO 1? Then from there I need to change selected blocks X SCALE TO 1 within the properties.

Any direction is greatly apprecitated!

Re: SCRIPT WRITING - SELECT BLOCK WITH AN X SCALE=1

ВeekeeCZ — Wed, 10 Jun 2015 22:07:26 GMT

You might want to show a direction...

http://www.lee-mac.com/ssget.html

(defun c:SelBlkX<>1 ( / ss)
  (if (setq ss (ssget "_X" '((0 . "INSERT") (-4 . "<>") (41 . 1))))
    (sssetfirst nil ss))
  (princ)
)