在用p修剪一条线之后

Dayananda · 发表于 2022-7-27 19:20:25

(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"")

mhupp · 发表于 2022-7-27 20:37:00

将ent1的新端点与p1和p2进行比较，其中一个与不匹配的端点将是新的修剪点。

-编辑

您也可以使用visual lisp。可能需要使用（vl load com）

copy

(setq pt (vla-intersectwith (vlax-ename->vla-Object ent1) (vlax-ename->vla-Object ent2) acextendnone))
(setq pt (vlax-safearray->List (vlax-variant-vaLue pt)))

[编程交流] 在用p修剪一条线之后

发表回复

精选推荐