CristianC
Guest
salve a tutti, ho trovato un lisp e l'ho modificato leggermente per utilizzare un certo stile di multileader quando si preme un tasto desiderato, inoltre la multileader in questione viene posizionata direttamente su di un layer e con un colore ben preciso. chicca finale viene automaticamente spezzata (dimbreak) se interseca qualcosa
in questo caso la multileader ha funzione text, lavora abbastanza bene ma chiedo a qualcuno se ha idea di come fare per poter utilizzarla non perdendo la funziona mtext durante il comando mleader. questo perchè durante la funzione pause, il lisp lavora correttamente fermando l'elaborazione ma quando arriva il momento in cui si dovrebbe scrivere il multitesto a video, si deve invece scriverlo (solo 1 parola perchè gli spazi non vengono considerati) sulla linea di comando (non a video come lavora invece normalmnete il multitesto) obbligando l'operatore poi a rieditare il testo manualmente.
grazie dell'aiuto
ecco a voi il lisp:
(setq layer1 (getvar "clayer"))
(setvar "cmdecho" 1)
(command "-layer" "m" "testo" "c" "y" "" "")
(command "cmleaderstyle" "smi_text")
(command "_mleader" "h")
(while (> (getvar "cmdactive") 0)
(command pause))
(command "_dimbreak" "l" "a")
(setvar "clayer" layer1)
(command "ddedit" "l")
(princ)
in questo caso la multileader ha funzione text, lavora abbastanza bene ma chiedo a qualcuno se ha idea di come fare per poter utilizzarla non perdendo la funziona mtext durante il comando mleader. questo perchè durante la funzione pause, il lisp lavora correttamente fermando l'elaborazione ma quando arriva il momento in cui si dovrebbe scrivere il multitesto a video, si deve invece scriverlo (solo 1 parola perchè gli spazi non vengono considerati) sulla linea di comando (non a video come lavora invece normalmnete il multitesto) obbligando l'operatore poi a rieditare il testo manualmente.
grazie dell'aiuto
ecco a voi il lisp:
(setq layer1 (getvar "clayer"))
(setvar "cmdecho" 1)
(command "-layer" "m" "testo" "c" "y" "" "")
(command "cmleaderstyle" "smi_text")
(command "_mleader" "h")
(while (> (getvar "cmdactive") 0)
(command pause))
(command "_dimbreak" "l" "a")
(setvar "clayer" layer1)
(command "ddedit" "l")
(princ)