lisp 回执多段线_多段线上加点的LISP程序源码

(defun c:jk()

;;;功能:在POLYLINE和LWPOLYLINE上增加节点

;;;编制日期:2006-03-21

;;;作者:冯焱

(VL-LOAD-COM)

(princ "\n内蒙古地质测绘院   冯焱\n")

(graphscr)

(setq   AcadObject   (vlax-get-acad-object)

AcadDocument (vla-get-ActiveDocument AcadObject)

mSpace       (vla-get-ModelSpace AcadDocument)

)

(setq Sel (vla-get-PickfirstSelectionSet AcadDocument);取得当前选择集

count(vla-get-count sel)

)

(if(= count 1)

(progn

(setq e(vla-item sel 0)

ent (vlax-vla-object->ename e)

)

)

(progn

(setq ent(car(entsel)))

(if(= ent nil)

(c:jK)

)

(setq entDetailed(entget ent)

entType(cdr (assoc 0 entDetailed))

)

)

)

(setq sel(ssadd ent));新建LISP选择集

(while(or (= entType "POLYLINE") (= entType "LWPO