你好
我创建了一个简单的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)
- )
在此方面如有任何帮助，我们将不胜感激。
谢谢
| 
置顶卡
