topic Re: Create lisp in Visual LISP, AutoLISP and General Customization Forum

Create lisp

pkambhampati7FA2R — Wed, 07 Sep 2022 19:35:34 GMT

Hi, can someone help me create a lisp that goes:

Lisp (least clicking)

ssget (_x) [select objects layer]

Saveas

Re: Create lisp

Kent1Cooper — Wed, 07 Sep 2022 19:52:04 GMT

@pkambhampati7FA2R wrote:

....

ssget (_x) [select objects layer]

Saveas

Close

It's not clear to me what you intend. Is it to have the routine select all objects on the Layer of a selected object, and send them off to a separate drawing file? [That would involve a WBLOCK rather than a SAVEAS command.]

Re: Create lisp

pkambhampati7FA2R — Wed, 07 Sep 2022 20:03:22 GMT

Thanks for responding!! I have found a way to unformat the mtext in a file, using a lisp:

(defun c:MtextUnformat ( / e i e)

(if (setq s (ssget '((0 . "MTEXT"))))
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(setpropertyvalue e "Contents"
(getpropertyvalue e "Text"))))
(princ)
)

However, I want something with least clicks that just selects objects by their layers, saves and closes.

Re: Create lisp

Kent1Cooper — Wed, 07 Sep 2022 20:47:42 GMT

@pkambhampati7FA2R wrote:

.... I want something with least clicks that just selects objects by their layers, saves and closes.

That's part of what I don't understand--you don't say anything about what to do with the objects selected. What do you really mean by "just selects objects by their layers"? Does the User select some object, and the routine finds everything else on the same Layer as that object? Does the routine step through all Layers, finding everything on each Layer in turn, and do something with them for each Layer's worth, without User input? What do you mean by "saves"? Saves the selected objects on a given Layer out to another drawing?

Re: Create lisp

pkambhampati7FA2R — Wed, 07 Sep 2022 20:51:00 GMT

Sorry I wasn't clear. I meant saving in the same drawing. However, I'd like to know if there's a way to do that to multiple CAD drawings at once.

Re: Create lisp

Kent1Cooper — Thu, 08 Sep 2022 01:23:38 GMT

@pkambhampati7FA2R wrote:

..... I meant saving in the same drawing. ....

How does selecting objects by their Layers relate to that?

Re: Create lisp

paullimapa — Thu, 08 Sep 2022 15:49:57 GMT

this will allow you to do a single click selecting only MTEXT on the current Layer:

(setq s(ssget "_+.:E:S" (list(cons 0 "MTEXT")(cons 8 (getvar"clayer")))))

this will do a save:

(command"_.QSAVE")

this will close drawing:

(command"_.CLOSE")

To apply your code to multiple drawings, create a SCRIPT file (name with .SCR file extension) that includes loading of your lisp routine and running the command ie:

(load"MtextUnformat")

MtextUnformat

Then download the free AutoScript app to have this script file applied to multiple drawings:

https://www.cadig.com/products/autocad-script-pro.php

But you'll have to modify your code because it won't pause for you to select your MTEXT.

You can change it so that it just selects ALL MText on the current Layer and then cycle through those MText objects selected (if any) to apply the rest of your code:

(setq s(ssget "_X" (list (cons 0 "MTEXT") (cons 8 (getvar"clayer")))))