Myms(vla-get-modelspace (setq mydoc(vla-get-activedocument(vlax-get-acad-object)))) (defun c:bisect(/ fglst please input others youself 3q vla_e1 vla_e2) It could also be a starting point attached along with blocks with attributes used to display line and arc features. Years ago I created a lisp for labeling line or polyline segments that copied a polyline, exploded it, selected the line or arc segment with the same point used to select the polyline and saving it's elist, then deleting all the newly created segments. If someone wanted to modify David's code for polylines this might be a good starting point: (entmake (list (cons 0 "LINE")(cons 62 1) (setq q (getint "\nNumber Of Bisector Lines: "))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |