在用p修剪一条线之后
(command "line""non"p1"non"p2""); 1: 1.5 filling line(setq ent1 (entlast))
(setq ent2 (car(entsel "\nSelect existing ground line")))
(command "trim"ent2""ent1"") 将ent1的新端点与p1和p2进行比较，其中一个与不匹配的端点将是新的修剪点。
-编辑
您也可以使用visual lisp。可能需要使用（vl load com）
(setq pt (vla-intersectwith (vlax-ename->vla-Object ent1) (vlax-ename->vla-Object ent2) acextendnone))
(setq pt (vlax-safearray->List (vlax-variant-vaLue pt)))
页:
[1]