[功能]多段线局部拷贝

WhoCanSay · 发表于 2016-6-6 11:44:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2016-6-6 11:47 编辑

;;[功能]多段线局部拷贝
(defun C:www (/ E E0 E1 LST LST1 LST2 MP P0 P1 PTS SSP0 SSP1)
(cond
((and
(setq p0 (getpoint "\n>起点:"))
(setq p1 (getpoint p0 "\n>>另一起点:"))
(setq SSp0 (ssget "C" p0 p0 '((0 . "LWPOLYLINE"))))
(setq SSp1 (ssget "C" p1 p1 '((0 . "LWPOLYLINE"))))
;;(SSHasSameE ss1 ss2) http://bbs.xdcad.net/thread-704257-1-2.html
(setq e (SSHasSameE SSp0 SSp1))
(setq e0 (entlast))
(setq e1 (vla-copy (vlax-ename->vla-object e)))
;;(IntersLwpolylineRay e p1 p2) http://bbs.xdcad.net/thread-704380-1-1.html
(setq pts (IntersLwpolylineRay (vlax-vla-object->ename e1) p1 p0))
)
;;(break_obj ent brkptlst) http://bbs.xdcad.net/thread-704397-1-1.html
(break_obj (vlax-vla-object->ename e1) pts)
(while (setq e0 (entnext e0))
(if (not (member (cdr (assoc 0 (entget e0)))
'("ATTRIB"
"VERTEX"
"SEQEND"
)
)
)
(setq Lst (cons e0 Lst))
)
)
;;取打断后的中点来判断在p0 p1的哪一边
;;(det p1 p2 p3)见highflybird大师的帖子
(foreach x Lst
(setq Mp (* (- (vlax-curve-getendparam x) (vlax-curve-getstartparam x)) 0.5))
(setq Mp (vlax-curve-getPointAtParam Mp))
(cond ((MINUSP (det p1 p0 Mp)) (setq Lst1 (cons x Lst1)))
(T (setq Lst2 (cons x Lst2)))
)
)
)
)
(princ)
)

;;[功能]多段线局部拷贝 
(defun C:www (/ E E0 E1 LST LST1 LST2 MP P0 P1 PTS SSP0 SSP1) 
  (cond 
    ((and 
       (setq p0 (getpoint "\n>起点:")) 
       (setq p1 (getpoint p0 "\n>>另一起点:")) 
       (setq SSp0 (ssget "C" p0 p0 '((0 . "LWPOLYLINE")))) 
       (setq SSp1 (ssget "C" p1 p1 '((0 . "LWPOLYLINE")))) 
       ;;(SSHasSameE ss1 ss2) <a href=\"http://bbs.xdcad.net/thread-704257-1-2.html\" target=\"_blank\">http://bbs.xdcad.net/thread-704257-1-2.html</a> 
       (setq e (SSHasSameE SSp0 SSp1)) 
       (setq e0 (entlast)) 
       (setq e1 (vla-copy (vlax-ename->vla-object e))) 
       ;;(IntersLwpolylineRay e p1 p2) <a href=\"http://bbs.xdcad.net/thread-704380-1-1.html\" target=\"_blank\">http://bbs.xdcad.net/thread-704380-1-1.html</a> 
       (setq pts (IntersLwpolylineRay (vlax-vla-object->ename e1) p1 p0)) 
     ) 
 
     ;;(break_obj ent brkptlst) <a href=\"http://bbs.xdcad.net/thread-704397-1-1.html\" target=\"_blank\">http://bbs.xdcad.net/thread-704397-1-1.html</a>         
     (break_obj (vlax-vla-object->ename e1) pts) 
     (while (setq e0 (entnext e0)) 
       (if (not        (member        (cdr (assoc 0 (entget e0))) 
                        '("ATTRIB" 
                          "VERTEX" 
                          "SEQEND" 
                         ) 
                ) 
           ) 
         (setq Lst (cons e0 Lst)) 
       ) 
     ) 
     ;;取打断后的中点来判断在p0 p1的哪一边 
     ;;(det p1 p2 p3)见highflybird大师的帖子 
     (foreach x        Lst 
       (setq Mp (* (- (vlax-curve-getendparam x) (vlax-curve-getstartparam x)) 0.5)) 
       (setq Mp (vlax-curve-getPointAtParam Mp)) 
       (cond ((MINUSP (det p1 p0 Mp)) (setq Lst1 (cons x Lst1))) 
             (T (setq Lst2 (cons x Lst2))) 
       ) 
     ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2016-6-6 11:48:59

封闭的多段线，要取跨过起点的部分，能截取吗？

WhoCanSay · 发表于 2016-6-6 11:54:54

本帖最后由 WhoCanSay 于 2016-6-6 11:57 编辑

newer 发表于 2016-6-6 11:48
封闭的多段线，要取跨过起点的部分，能截取吗？

http://bbs.xdcad.net/thread-704397-1-1.html
能，这个是 command打断的。不存在你说的问题

这个是打断了，打断点两边也分好了组，怎么移动还没有想好。

newer · 发表于 2016-6-6 12:15:21

WhoCanSay 发表于 2016-6-6 11:54
http://bbs.xdcad.net/thread-704397-1-1.html
能，这个是 command打断的。不存在你说的问题

看你的代码就拾取了两个点，如果多段线闭合，你怎么知道要截取那边呢？

WhoCanSay · 发表于 2016-6-6 12:33:26

newer 发表于 2016-6-6 12:15
看你的代码就拾取了两个点，如果多段线闭合，你怎么知道要截取那边呢？

保留哪一边，是想通过移动鼠标来判断。

newer · 发表于 2016-6-6 12:45:52

WhoCanSay 发表于 2016-6-6 12:33
保留哪一边，是想通过移动鼠标来判断。

那样就多一次交互了，不如这样，删除起点到终点之间的，起点的参数值要大于终点的，那么就是截取跨过起点的那边，否则就是正常截取。这样就少一次交互了。

sicky111 · 发表于 2016-6-6 13:58:22

newer 发表于 2016-6-6 12:45
那样就多一次交互了，不如这样，删除起点到终点之间的，起点的参数值要大于终点的，那么就是截取跨过起点 ...

还是用户指定好一点。

striver · 发表于 2024-1-8 18:24:33

cad2014下运行报错，提示如下：
错误: no function definition: SSHASSAMEE

账号		自动登录	找回密码
密码			立即注册

[研讨] [功能]多段线局部拷贝

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

点评

点评

点评