topic Re: LISP Routine Request in Visual LISP, AutoLISP and General Customization Forum

LISP Routine Request

Jackson_Hollis_TESSERE — Fri, 20 Oct 2023 14:14:44 GMT

Sup,

Obligatory "I'm new to LISP's".

What I want the LISP routine to do:

I type in the command: YELLOW
A pre-loaded block named STAR is inserted as if you've ran the -INSERT command and selected the STAR block manually

Basically a custom command to insert a specific block. Not sure if this is possible or not.

Thanks for the help and knowledge!

Re: LISP Routine Request

james_moore — Fri, 20 Oct 2023 14:31:02 GMT

Frankly, I think you should make a custom toolbar button for such a thing, but here goes...

(defun C:YELLOW ()
(command "-insert" "STAR")
)

This should do it. It assumes the block "STAR" is either found on a search path, or already defined in your drawing. It stops at the point of where do you want to insert, scale, and rotate.

This one asks for the insertion point up-front, then inserts the block at full scale.

(defun C:YELLOW ()

(promt "Select an insertion point:")

(setq USERPOINT (getpoint))
(command "-insert" "STAR" USERPOINT "1")
)

Depending on your ACAD configuration, you may need to supply X and Y scale...

(command "-insert" "STAR" USERPOINT "1" "1")

and rotation...

(command "-insert" "STAR" USERPOINT "1" "1" "0")

... so one of these lines might work for you. There are ways to detect the environment settings and use an IF or COND statement to decide which command sequence to use. Also note the "1" "1" "0" can probably be written 1 1 0, and using the "command" function, I know the quoted numbers will work for sure.

Re: LISP Routine Request

Jackson_Hollis_TESSERE — Fri, 20 Oct 2023 15:47:28 GMT

The first routine you wrote works perfectly. TYSM!

Re: LISP Routine Request

Sea-Haven — Sun, 22 Oct 2023 05:26:24 GMT

"Frankly, I think you should make a custom toolbar button for such a thing,"

I agree easy to make.

Others here will talk about Toolpallete's.