topic Re: Combine two lisp together in Visual LISP, AutoLISP and General Customization Forum

Combine two lisp together

C_N_van_der_Zwaag — Fri, 24 May 2024 08:31:32 GMT

Hello all,

I'm new to using Lisp files in Autocad, so I need some help with them.

I have 2 Lisp files that work great. One is for making a text from the layername out of the selected polyline. The other is for making a leader from a text.

I would like to combine these 2 lisp, so it can make a leader out of the layername from the selected polyline.

thanks,

Re: Combine two lisp together

komondormrex — Fri, 24 May 2024 11:19:42 GMT

hi,

check this simple one.

(defun c:p_layer_mleader (/ pline_data pline_layer mleader_object ) (setq pline_data (entsel "\nPick pline: ") pline_layer (cdr (assoc 8 (entget (car pline_data)))) ) (setvar 'cmdecho 0) (vl-cmdf "_.mleader" "_non" (trans (vlax-curve-getclosestpointto (car pline_data) (cadr pline_data)) 1 0) pause pline_layer ) (setq mleader_object (vlax-ename->vla-object (entlast))) (vla-put-textheight mleader_object 5) (vla-put-layer mleader_object pline_layer) (setvar 'cmdecho 1) (princ) )

Re: Combine two lisp together

C_N_van_der_Zwaag — Fri, 24 May 2024 11:25:36 GMT

Thanks, that works great. This will make my work a lot better. Many thanks!🤗