能不能按选图层删除另一个图层的东西

spp_wall · 发表于 2013-10-17 11:38:55

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

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

×

本帖最后由 spp_wall 于 2013-10-17 11:42 编辑

比如下图中选取zhi这个图层删除dmx图层与zhi图层左侧或者右侧的线段

Lisphk · 发表于 2013-10-17 14:06:24

trim命令不很容易就裁剪掉嘛。

spp_wall · 发表于 2013-10-17 14:36:43

这样的断面有上千个

trim 还是要一个个框选吧！

Lisphk · 发表于 2013-10-17 15:49:16

spp_wall 发表于 2013-10-17 14:36
这样的断面有上千个

你点一条边，用窗口选项，自动就把这条边都给你TRIM掉了。

难道你希望不选择那条边，程序自动把所有的都给你TRIM掉？这样智能估计出错的概率也大，万一把不需要的给你裁剪掉了呢？

Free-Lancer · 发表于 2013-10-17 15:52:37

定制版搜 "修剪命令的增强版"

spp_wall · 发表于 2013-10-17 16:16:39

Lisphk 发表于 2013-10-17 15:49
你点一条边，用窗口选项，自动就把这条边都给你TRIM掉了。

难道你希望不选择那条边，程序自动把所有的 ...

点一下删一下这个cad自带的就可以
不过也找到了批量的试用了不会出错因为只有2个图层{:soso_e113:}

sicky111 · 发表于 2013-10-26 20:14:10

只有两个图层，想怎么弄都可以啊。

newer · 发表于 2013-10-26 20:44:59

LISP版回答了怎么这里还有一个这个帖子，下面是转帖LISP论坛的帖子

下面代码，可以把红线右边的曲线切掉，你自己可以修改适合图层什么的。
如果有不清楚的，可以发帖问。

登录/注册后可看大图

(defun c:tt ()
(if (setq ss (ssget "x" '((0 . "LINE") (62 . 1))))
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq p1 (xdrx_getpropertyvalue e "StartPoint")
p2 (xdrx_getpropertyvalue e "EndPoint")
pts (XD::Pnts:MinY->MinX (list p1 p2) 0)
)
(if (and
(setq ss1 (ssget "f" pts '((0 . "*line,circle,ellipse,arc"))))
(ssdel e ss1)
(> (sslength ss1) 0)
)
(progn
(setq pnt (apply
'mapcar
(cons '- pts)
)
pnt (xdrx_vector_perpVector pnt)
pnt (xdrx_vector_normalize pnt)
)
(setq entl (xdrx_pickset->ents ss1))
(foreach n entl
(setq int (xdrx_entity_intersectwith e n)
int (car int)
)
(xdrx_curve_getSplitCurves n int)
(mapcar
'(lambda (x)
(setq v (xdrx_vector_normalize (mapcar
'-
(xdrx_getpropertyvalue x "MidPoint")
int
)
)
)
(if (xdrx_vector_IsCodirectional v pnt)
(xdrx_entity_delete x)
)
)
(list e (entlast))
)
)
)
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (setq ss (ssget "x" '((0 . "LINE") (62 . 1)))) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq p1 (xdrx_getpropertyvalue e "StartPoint") 
              p2 (xdrx_getpropertyvalue e "EndPoint") 
              pts (XD::Pnts:MinY->MinX (list p1 p2) 0) 
        ) 
        (if (and 
              (setq ss1 (ssget "f" pts '((0 . "*line,circle,ellipse,arc")))) 
              (ssdel e ss1) 
              (> (sslength ss1) 0) 
            ) 
          (progn 
            (setq pnt (apply 
                        'mapcar 
                        (cons '- pts) 
                      ) 
                  pnt (xdrx_vector_perpVector pnt) 
                  pnt (xdrx_vector_normalize pnt) 
            ) 
            (setq entl (xdrx_pickset->ents ss1)) 
            (foreach n entl 
              (setq int (xdrx_entity_intersectwith e n) 
                    int (car int) 
              ) 
              (xdrx_curve_getSplitCurves n int) 
              (mapcar 
                '(lambda (x) 
                   (setq v (xdrx_vector_normalize (mapcar 
                                                    '- 
                                                    (xdrx_getpropertyvalue x "MidPoint") 
                                                    int 
                                                  ) 
                           ) 
                   ) 
                   (if (xdrx_vector_IsCodirectional v pnt) 
                     (xdrx_entity_delete x) 
                   ) 
                 ) 
                (list e (entlast)) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

spp_wall · 发表于 2013-10-26 20:53:17

newer 发表于 2013-10-26 20:44
LISP版回答了怎么这里还有一个这个帖子，下面是转帖LISP论坛的帖子

下面代码，可以把红线右边的曲线切掉 ...

谢谢当时可能忘记发那了 {:soso_e112:}

李春雨 · 发表于 2013-12-10 14:49:10

思路很好啊！！！

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

[求助] 能不能按选图层删除另一个图层的东西

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

点评

点评

点评