升级Polyline Break-Lisp
你好我创建了一个简单的lisp，它将基于第二条多段线的端点打断一条多段线，并将打断的部分放置在一个单独的层上。
要求用户输入第一条多段线（现有地面），然后输入第二条多段线（建议地面）。现有地面的多段线线段位于拟议地面的两个端点之间，放置在单独的图层上。
这些是横截面。一幅图中可能有数百个横截面。
我想修改lisp，以便可以选择所有现有地面（在单个图层上）和所有拟议地面（在其自己的图层上），并在所有现有地面多段线上运行lisp。
(defun C:Ground_Hidden()
(setq en1 (car(entsel "\n Select Existing
Ground: ")))
(setq en(car(entsel "\n Select Proposed Exisitng Ground:
")))
(setq enlist(entget en))
(setq ptList2 (list))
(setq
startPt(cdr(assoc 10 enlist)))
(setq endPt(cdr (assoc 10 (reverse
enlist))))
(command "_break" en1 StartPt "@")
(setq hidden (ssget
"_L"))
(command "_break" "_l" endPt "@")
(command "_chprop" hidden "" "LA"
"Ex_Ground_Hidden" "")
(princ)
)
在此方面如有任何帮助，我们将不胜感激。
谢谢
页:
[1]