quickly insert arrow director on layer

[jim78b]

exists a lisp that creates the arrow(leader) puts it on the xxx layer, in my case am_5 and then returns sulayer 0?
Thank you.

 

[rpor66]

https://blogs.rand.com/manufacturing/2014/03/switching-layers-automatically-in-autocad.htmlthe palette includes leaders, modify it by adding your layer through properties.

 

[jim78b]

I already know that system . I was wondering if there is a lisp that from command line starts the director on the am_5 layer and then returns to the previous one .I now use :le

 

[rpor66]

(defun c:ql(/ pt1 pt2 txt clayer)
(setq clayer (getvar "clayer"))
(setq pt1 (getpoint "\punto inserimento"))
(setq pt2 (getpoint pt1 "\punto per testo"))
(setq txt (getstring "\ntesto: "))
(command "_layer" "_m" "am_5" "")
(command "_leader" pt1 pt2 pt2 "" txt "")
(command "_layer" "_s" clayer "")
)

ci sono altri metodi per ottenere lo stesso risultato, questo è semplice.

 

[jim78b]

Hi thank you I tried but it does not work properly, I explain, I usually do: I click the first point then the second, sometimes I click the first, the second and the third then I press esc because the text I never put it. something does not work as if I do the...

then in a design that is not my model the am_5 layer is white , it should be on color 100.

I'm sorry if I remove that, thank you for giving time. . .

 

[MassiVonWeizen]

usa amnote.

 

[rpor66]

(defunc c:ql2(/ pt1 pt2 clayer)
(setq clayer (getvar "clayer")
(setq pt1 (getpoint "\ insertion point"))
(setq pt2 (getpoint pt1 "\point for text"))
(command "_layer" "_m" "am_5" "_c" 100 """)
(command "_qleader" pt1 pt2 ")
(command "_layer" "_s" clayer ")
)

before using the command start qleader, setting, annotation type: none.
press esc is equivalent to interrupting the execution of a lisp program.

 

[jim78b]

(defunc c:ql2(/ pt1 pt2 clayer)
(setq clayer (getvar "clayer")
(setq pt1 (getpoint "\ insertion point"))
(setq pt2 (getpoint pt1 "\point for text"))
(command "_layer" "_m" "am_5" "_c" 100 """)
(command "_qleader" pt1 pt2 ")
(command "_layer" "_s" clayer ")
)

before using the command start qleader, setting, annotation type: none.
press esc is equivalent to interrupting the execution of a lisp program.

Okay, I thought it was going right now, so I'm gonna use the tool palette that puts it on the right layer.
amnote gives me problems, in the sense that I work with set the layer 0 and color: from block and every time I make a line with amnote it makes me white and not the color of the layer.

 

[rpor66]

set qleader is only the first time, then the ql2 command can use it as many times as you want.
But did you try or not?

 

[MassiVonWeizen]

amnote is managed in the same way as ampower

 

[jim78b]

set qleader is only the first time, then the ql2 command can use it as many times as you want.
But did you try or not?

ok you made thanks you were very helpful!

 

[jim78b]

amnote is managed in the same way as ampower

Yes but I put color line es:100 but then makes it white cmq on the am_5 layer

 

[MassiVonWeizen]

Obviously, they are the model settings. see your post #5

 

[jim78b]

Obviously, they are the model settings. see your post #5

no I intend to perform amnotes in my model file the director is white then I set the layer 0 on byblock.

 

[jim78b]

strange because in color settings there is byiso or the color of the am5 layer but always makes them white byblock

 

[MassiVonWeizen]

https://www.cad3d.it/forum1/threads/layer-fisso-per-le-quote.48709/#post-387302

 

[MassiVonWeizen]

go to change quota, selections director, card line, color fantasy
then use the qleader command

 

[jim78b]

go to change quota, selections director, card line, color fantasy
then use the qleader command

ok thanks .vedo cmq that with the tool palette the procedure is faster .creo a new command and selez the right layer so every time it returns to layer 0.

 

[GP.]

with this lisp, which must be loaded once (you can put it in the acaddoc.lsp), when a director is drawn (leaving the keyboard command, button, etc.) this is placed on the am_5 layer, while the current layer is maintained.

notes:
- presupposes the existence of the am_5 layer (but any creation can be foreseen);
- the lisp initializes the reactors, may no longer work the ones created by your application, but just reopen a dwg without launching this lisp

 

[jim78b]

ok thanks you have been very helpful and kind