支持图层的图形裁剪工具

Lispboy · 发表于 2013-7-16 16:41:23

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

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

×

;|
支持图层过滤的图形裁剪工具
命令名：XDTB_RECLIP
请下载最新的XDRX_API和晓东通用LISP函数库
;|;
(defun c:XDTB_RECLIP (/ box e p1 p2 p3 p4 ss lyr)
  (if (and
      (setq lyr (XD::Layer:Get))
      (or
      (and
         (setq p1 (getpoint "\n矩形左下点<指定边界>:"))
         (setq p2 (getcorner p1 "\n矩形右上点<指定边界>:"))
         (setq p3 (mapcar '- p2  p1)
               p4 (mapcar '+  p1 (list 0.0 (cadr p3) 0.0))
               p3 (mapcar '+ p1 (list (car p3) 0.0 0.0))
         )
         (setq ss (ssget "c" p1 p2 (list (cons 8 lyr))))
      )
      (setq e (car (xdrx_entsel "\n拾取封闭的边界多段线<退出>:" '
                                 ((0 . "*polyline") (-4 . "&=")
                                 (70 . 1)
                                 )
                     )
               )
      )
      )
   )
(progn
   (xdrx_begin '(("cmdecho" 0) ("osmode" 0)))
   (if (not e)
      (progn
      (command ".pline" p1 p3 p2 p4 "c")
      (setq e (entlast))
      )
      (progn
      (setq box (xdrx_entity_box e)
            p1 (trans (car box) 0 1)
            p2 (trans (caddr box) 0 1)
            ss (ssget "c" p1 p2 (list (cons 8 lyr)))
            ss (ssdel e ss)
      )
      )
   )
   (xdrx_pickset_clipbypoly ss e)
   (xdrx_end)
)
  )
  (princ)
)

Free-Lancer · 发表于 2013-7-20 13:15:09

ycao 发表于半小时前

 登录/注册后可看大图

可不可以改成裁剪外面的。

这个主意不错，(xdrx_pickset_clipbypoly ss e mode) mode控制内外来自: Android客户端

qqqincccken · 发表于 2013-7-16 19:42:54

看来这功能真心的不错,下来试试看,谢谢!!

ycao · 发表于 2013-7-20 12:14:41

可不可以改成裁剪外面的。

q3_2006 · 发表于 2013-7-24 08:16:23

有一个问题，如果图纸空间背景色是黑色，话框的背景色也变成黑的了，上两张图片，第一张图纸空间背景为黑，第二张为灰

lingduwx · 发表于 2013-7-26 10:26:46

不错，可以单独选择需要裁剪的图层

清风明月10 · 发表于 2013-10-6 09:03:13

谢谢楼主的分享！很好用啊。

lt77887788 · 发表于 2013-11-3 18:16:29

感谢分享，期望自己早日升级

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

支持啊！非常好的程序！！！

flyfox1048 · 发表于 2014-1-2 14:16:06

感谢楼主的分享

chxl5878 · 发表于 2014-1-16 13:29:43

不错，,画结构是处理交线应该管用

chxl5878 · 发表于 2014-1-20 14:49:35

灌水半天就为这个功能，结构CAD2010下提示“未知命令“OPENDCL”。按 F1 查看帮助。”

chxl5878 · 发表于 2014-1-20 15:06:52

建议“指定边界”可以多选边界

落伍者 · 发表于 2014-3-7 09:19:08

怎么使用啊请指示

zqb05 · 发表于 2014-3-7 13:54:22

不错，可以选图层

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

[工具] 支持图层的图形裁剪工具

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

相关帖子