cadconcepts
2007-10-14, 05:14 PM
Hi
I have a routine that I use to draw leaders on the fly which works great. I would like to create a new routine based on the old one to create mleaders on the fly as well but I cannot seem to get it to work. Here's the part of the original code that I would like to modify for multiple leaders.
(setq xdlst (list
(list -3 (list "ACAD"
'(1000 . "DSTYLE")
'(1002 . "{")
'(1070 . 41)
(cons 1040 cl-size)
'(1070 . 341)
(cons 1005 cl-dimbhdl)
'(1002 . "}")
)
)
)
)
(setq entlst (list (cons 0 "MLEADER")
(cons 100 "AcDbEntity")
(cons 8 cl_lyr)
(cons 100 "AcDbLeader")
(cons 3 cl-dimsty)
(cons 71 1)
(cons 72 cl_Spline)
)
)
cl-size= arrow head size
cl-dimbhdl= arrow head type
cl-lyr=default layer
cl-dimsty=dimstyle
cl-spline=spline on/off toggle
The way it works is that the user selects points that represent the look of the leader and the routine then uses entmake to combine the above code and the point list to generate it. Any help as always is greatly appreciated. Thank you.
Manuel A. Ayala
CAD Concepts
I have a routine that I use to draw leaders on the fly which works great. I would like to create a new routine based on the old one to create mleaders on the fly as well but I cannot seem to get it to work. Here's the part of the original code that I would like to modify for multiple leaders.
(setq xdlst (list
(list -3 (list "ACAD"
'(1000 . "DSTYLE")
'(1002 . "{")
'(1070 . 41)
(cons 1040 cl-size)
'(1070 . 341)
(cons 1005 cl-dimbhdl)
'(1002 . "}")
)
)
)
)
(setq entlst (list (cons 0 "MLEADER")
(cons 100 "AcDbEntity")
(cons 8 cl_lyr)
(cons 100 "AcDbLeader")
(cons 3 cl-dimsty)
(cons 71 1)
(cons 72 cl_Spline)
)
)
cl-size= arrow head size
cl-dimbhdl= arrow head type
cl-lyr=default layer
cl-dimsty=dimstyle
cl-spline=spline on/off toggle
The way it works is that the user selects points that represent the look of the leader and the routine then uses entmake to combine the above code and the point list to generate it. Any help as always is greatly appreciated. Thank you.
Manuel A. Ayala
CAD Concepts