Cut with base point

[mike_ribeiro]

Someone can give me a tip how to write a lisp routine that cut with base point the selected objets and then paste as block asking for insertion point ?

 

Thanks in advance

[CyberAngel]

You can use the keys Ctrl-Shift-V to Paste as Block. Don't re-invent the wheel.

 

Edit: There is an explicit command PASTEBLOCK as well.

Edited August 6, 2024 by CyberAngel

[mike_ribeiro]

Thanks.

 

i'm aware of this commands.

 

I just wanted to have the completed task in one command to improve the time spent in several equal tasks.

[pkenewell]

On 8/6/2024 at 9:41 AM, mike_ribeiro said:

Thanks.

 

i'm aware of this commands.

 

I just wanted to have the completed task in one command to improve the time spent in several equal tasks.

@mike_ribeiro

There are the commands COPYBASE and CUTBASE built in to AutoCAD to get the selection point. No LISP needed, but if you must:

(defun c:cutpaste ()
   (command "._cutbase")
   (while (= (logand (getvar "cmdactive") 1) 1)
		(command pause)
	)
   (command "._pasteblock")
)

Although - how is this different from the MOVE command? OK - so I guess it makes an anonymous block immediately.

Edited August 7, 2024 by pkenewell