(mapcar '(lambda (data_list / ) (vla-setvariable adoc (car data_list) (cdr data_list))) (if height_dim (vla-setvariable adoc "DIMTXT" height_dim) (setq height_dim (getvar "DIMTXT"))) (setq height_dim (getdist (getvar "VIEWCTR") (strcat "\nHeight of dim text : "))) Obj_angdim (vla-add (vla-get-Dimstyles adoc) "DIMANGPLINE") Obj_dim (vla-add (vla-get-Dimstyles adoc) "DIMPLINE") Code: (defun c:DimPline ( / adoc space obj_dim obj_angdim height_dim pl ent obj dxf_ent ll ur dir_pt base_pt dir_ang last_pt pr_pt lst_pt nw_obj)Īdoc (vla-get-activedocument (vlax-get-acad-object))
0 Comments
Leave a Reply. |