能否实现批量删除直线一侧的直线？

spp_wall · 发表于 2013-10-13 21:29:44

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

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

×

如题能否批量删除下图中白色直线在蓝色线左侧的直线？蓝色线和白色线的图层不一样！

eachy · 发表于 2013-10-13 22:03:52

看每日插件中的自动延伸修剪，在交点处断开

spp_wall · 发表于 2013-10-14 08:33:42

eachy 发表于 2013-10-13 22:03
看每日插件中的自动延伸修剪，在交点处断开

CAD08 无法试用晓东工具箱是什么原因呢

XDSoft · 发表于 2013-10-14 09:04:53

spp_wall 发表于 2013-10-14 08:33
CAD08 无法试用晓东工具箱是什么原因呢

XDRX_API 各个版本都支持。

晓东工具箱3.0安装程序工具包，只在2006-2004使用。如果你有基础，只要XDRX_API能加载，晓东工具箱里面的程序也就能在哪个下面用。只是菜单什么的需要自己去组织。

spp_wall · 发表于 2013-10-14 14:44:37

XDSoft 发表于 2013-10-14 09:04
XDRX_API 各个版本都支持。

晓东工具箱3.0安装程序工具包，只在2006-2004使用。如果你有基础，只要XDR ...

08的无法加载

06和 12都可以！

sicky111 · 发表于 2013-10-22 23:44:01

批量修剪？

newer · 发表于 2013-10-22 23:49:49

spp_wall 发表于 2013-10-14 14:44
08的无法加载

06和 12都可以！

下载最新的版本，应该可以加载了。

newer · 发表于 2013-10-24 00:03:06

本帖最后由 newer 于 2013-10-24 00:09 编辑

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

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

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

[求助] 能否实现批量删除直线一侧的直线？

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

点评

点评

点评

点评

[求助] 能否 实现 批量删除直线一侧的直线？

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

点评

点评

点评

点评

[求助] 能否实现批量删除直线一侧的直线？