关于快速打断线的求助

凌云笑 · 发表于 2018-5-15 16:44:24

本帖最后由凌云笑于 2018-5-15 19:28 编辑

如下图所示，我绘制CAD图的时候，需要绘制出很多横平竖直东交叉线。
未标题-1.jpg

为了打断它们的交叉，我一般采用笨法子：在交叉点画直径200的圆（200是要求数值），然后剪切掉圆内的竖直线，最后删除圆。如下图
未标题-3.jpg

问题：有没有朋友能帮做个小插件或者什么，启动命令后，我只要点一下交叉点，就自动剪切掉竖直线在以交差点为中心的某一数值的圆内的线条？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Drawing2.rar
下载次数:0 文件大小:23.13 KB
下载权限: 不限以上 [免费赚D豆]

Lispboy · 发表于 2018-5-15 16:44:25

凌云笑发表于 2018-5-15 19:37
厉害了大婶，很强大！~
稍微有点区别的就是：我只需要剪切断竖直线就可以了，水平线需要保持不变。

那就这样了

(defun c:tt ()
(defun *error* (msg) (princ msg) (xdrx_entity_delete cir) (xdrx_end))
(defun _callback (dynpt)
(xdrx_setpropertyvalue
cir
"center"
dynpt
"radius"
(/ #xd_var_global_circle_radius 2.0)
)
(princ)
)
(defun _erase (pt)
(setq pts (xdrx_getsamplept cir))
(if (setq ss (ssget "cp" pts '((0 . "LINE"))))
(progn (ssdel cir ss)
(xdrx_entity_copy cir)
(setq cir1 (entlast))
(setq ents (xdrx_pickset->ents ss)
ucsang (angle '(0 0 0) (getvar "ucsxdir"))
)
(mapcar '(lambda (x)
(setq an (xdrx_getpropertyvalue x "angle")
an (- an ucsang)
an (xd::geom:angleformat an)
)
(if (equal (abs an) (/ pi 2.0))
(setq ents1 (cons x ents1))
)
)
ents
)
(setq ss (xdrx_curve_intersectbreak (cons cir1 ents1)))
(command "layer" "")
(setq box (xdrx_entity_box cir)
box (xd::pnts:close box)
box (xdrx_points_offset height box)
box (xd::pnts:close box)
dxy box
)
(if (setq ss1 (ssget "wp" box '((0 . "line,arc"))))
(progn (ssdel cir ss1) (xdrx_entity_delete cir1 ss1))
)
)
)
(princ)
)
(xdrx_begin)
(setq height (xd::doc:getpickboxheight))
(xdrx_sysvar_push '("cursorsize" 1 "osmode" 32 "cmdecho" 0 "autosnap" 39))
(xdrx_pointmonitor "_callback")
(if (not #xd_var_global_circle_radius)
(setq #xd_var_global_circle_radius (* 3 height))
)
(xdrx_circle_make '(0 0 0) (/ #xd_var_global_circle_radius 2.0))
(setq cir (entlast))
(while (and (xdrx_initget "C")
(setq pt (getpoint (xdrx_prompt "\r(当前直径:"
#xd_var_global_circle_radius
")擦除点[C-修改半径]<退出>:"
t
)
)
)
)
(cond
((= pt "C")
(if (setq
val (getreal
(xdrx_prompt "\n输入直径<" #xd_var_global_circle_radius ">:" t)
)
)
(setq #xd_var_global_circle_radius val)
)
)
((= (type pt) 'LIST) (_erase pt))
)
)
(xdrx_pointmonitor)
(xdrx_entity_delete cir)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun *error* (msg) (princ msg) (xdrx_entity_delete cir) (xdrx_end)) 
  (defun _callback (dynpt) 
    (xdrx_setpropertyvalue 
      cir 
      "center" 
      dynpt 
      "radius" 
      (/ #xd_var_global_circle_radius 2.0) 
    ) 
    (princ) 
  ) 
  (defun _erase (pt) 
    (setq pts (xdrx_getsamplept cir)) 
    (if (setq ss (ssget "cp" pts '((0 . "LINE")))) 
      (progn (ssdel cir ss) 
             (xdrx_entity_copy cir) 
             (setq cir1 (entlast)) 
             (setq ents   (xdrx_pickset->ents ss) 
                   ucsang (angle '(0 0 0) (getvar "ucsxdir")) 
             ) 
             (mapcar '(lambda (x) 
                        (setq an (xdrx_getpropertyvalue x "angle") 
                              an (- an ucsang) 
                              an (xd::geom:angleformat an) 
                        ) 
                        (if (equal (abs an) (/ pi 2.0)) 
                          (setq ents1 (cons x ents1)) 
                        ) 
                      ) 
                     ents 
             ) 
             (setq ss (xdrx_curve_intersectbreak (cons cir1 ents1))) 
             (command "layer" "") 
             (setq box (xdrx_entity_box cir) 
                   box (xd::pnts:close box) 
                   box (xdrx_points_offset height box) 
                   box (xd::pnts:close box) 
                   dxy box 
             ) 
             (if (setq ss1 (ssget "wp" box '((0 . "line,arc")))) 
               (progn (ssdel cir ss1) (xdrx_entity_delete cir1 ss1)) 
             ) 
      ) 
    ) 
    (princ) 
  ) 
  (xdrx_begin) 
  (setq height (xd::doc:getpickboxheight)) 
  (xdrx_sysvar_push '("cursorsize" 1 "osmode" 32 "cmdecho" 0 "autosnap" 39)) 
  (xdrx_pointmonitor "_callback") 
  (if (not #xd_var_global_circle_radius) 
    (setq #xd_var_global_circle_radius (* 3 height)) 
  ) 
  (xdrx_circle_make '(0 0 0) (/ #xd_var_global_circle_radius 2.0)) 
  (setq cir (entlast)) 
  (while (and (xdrx_initget "C") 
              (setq pt (getpoint (xdrx_prompt "\r(当前直径:" 
                                              #xd_var_global_circle_radius 
                                              ")擦除点[C-修改半径]<退出>:" 
                                              t 
                                 ) 
                       ) 
              ) 
         ) 
    (cond 
      ((= pt "C") 
       (if (setq 
             val (getreal 
                   (xdrx_prompt "\n输入直径<" #xd_var_global_circle_radius ">:" t) 
                 ) 
           ) 
         (setq #xd_var_global_circle_radius val) 
       ) 
      ) 
      ((= (type pt) 'LIST) (_erase pt)) 
    ) 
  ) 
  (xdrx_pointmonitor) 
  (xdrx_entity_delete cir) 
  (xdrx_end) 
  (princ) 
)

newer · 发表于 2018-5-15 18:13:58

请把DWG压缩上传到论坛。

Lispboy · 发表于 2018-5-15 19:29:23

试试，你这个其实用 WIPEOUT遮盖做更好，不断线，以后方便修改，断了，你就回不去了。
下面是断线的代码。看你新来的，插件拷贝回去，加载，不能用的话，去看下 “插件使用方法”

圆擦除点.gif

(defun c:tt ()
(defun *error* (msg)
(princ msg)
(xdrx_entity_delete cir)
(xdrx_end)
)
(defun _callback (dynpt)
(xdrx_setpropertyvalue
cir
"center"
dynpt
"radius"
(/ #xd_var_global_circle_radius 2.0)
)
(princ)
)
(defun _erase (pt)
(setq pts (xdrx_getsamplept cir))
(if (setq ss (ssget "cp" pts '((0 . "*LINE,CIRCLE,ARC,ELLIPSE"))))
(progn (ssdel cir ss)
(xdrx_entity_copy cir)
(setq ss (xdrx_curve_intersectbreak ss (entlast)))
(command "layer" "")
(setq box (xdrx_entity_box cir)
box (xd::pnts:close box)
box (xdrx_points_offset height box)
box (xd::pnts:close box)
dxy box
)
(if (setq ss1 (ssget "wp" box '((0 . "*line,arc,circle,ellipse"))))
(progn (ssdel cir ss1)
(xdrx_entity_delete ss1)
)
)
)
)
(princ)
)
(xdrx_begin)
(setq height (xd::doc:getpickboxheight))
(xdrx_sysvar_push '("cursorsize" 1 "osmode" 32 "cmdecho" 0))
(xdrx_pointmonitor "_callback")
(if (not #xd_var_global_circle_radius)
(setq #xd_var_global_circle_radius (* 3 height))
)
(xdrx_circle_make
'(0 0 0)
(/ #xd_var_global_circle_radius 2.0)
)
(setq cir (entlast))
(while (and (xdrx_initget "C")
(setq pt (getpoint (xdrx_prompt "\r(当前直径:" #xd_var_global_circle_radius ")擦除点[C-修改直径]<退出>:" t)))
)
(cond ((= pt "C")
(if (setq val (getreal (xdrx_prompt
"\n输入直径<"
#xd_var_global_circle_radius
">:"
t
)
)
)
(setq #xd_var_global_circle_radius val)
)
)
((= (type pt) 'LIST) (_erase pt))
)
)
(xdrx_pointmonitor)
(xdrx_entity_delete cir)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun *error* (msg) 
    (princ msg) 
    (xdrx_entity_delete cir) 
    (xdrx_end) 
  ) 
  (defun _callback (dynpt) 
    (xdrx_setpropertyvalue 
      cir 
      "center" 
      dynpt 
      "radius" 
      (/ #xd_var_global_circle_radius 2.0) 
    ) 
    (princ) 
  ) 
  (defun _erase (pt) 
    (setq pts (xdrx_getsamplept cir)) 
    (if (setq ss (ssget "cp" pts '((0 . "*LINE,CIRCLE,ARC,ELLIPSE")))) 
      (progn (ssdel cir ss) 
             (xdrx_entity_copy cir) 
             (setq ss (xdrx_curve_intersectbreak ss (entlast))) 
             (command "layer" "") 
             (setq box (xdrx_entity_box cir) 
                   box (xd::pnts:close box) 
                   box (xdrx_points_offset height box) 
                   box (xd::pnts:close box) 
                   dxy box 
             ) 
             (if (setq ss1 (ssget "wp" box '((0 . "*line,arc,circle,ellipse")))) 
               (progn (ssdel cir ss1) 
                      (xdrx_entity_delete ss1) 
               ) 
             ) 
      ) 
    ) 
    (princ) 
  ) 
  (xdrx_begin) 
  (setq height (xd::doc:getpickboxheight)) 
  (xdrx_sysvar_push '("cursorsize" 1 "osmode" 32 "cmdecho" 0)) 
  (xdrx_pointmonitor "_callback") 
  (if (not #xd_var_global_circle_radius) 
    (setq #xd_var_global_circle_radius (* 3 height)) 
  ) 
  (xdrx_circle_make 
    '(0 0 0) 
    (/ #xd_var_global_circle_radius 2.0) 
  ) 
  (setq cir (entlast)) 
  (while (and (xdrx_initget "C") 
              (setq pt (getpoint (xdrx_prompt "\r(当前直径:" #xd_var_global_circle_radius ")擦除点[C-修改直径]<退出>:" t))) 
         ) 
    (cond ((= pt "C") 
           (if (setq val (getreal (xdrx_prompt 
                                    "\n输入直径<" 
                                    #xd_var_global_circle_radius 
                                    ">:" 
                                    t 
                                  ) 
                         ) 
               ) 
             (setq #xd_var_global_circle_radius val) 
           ) 
          ) 
          ((= (type pt) 'LIST) (_erase pt)) 
    ) 
  ) 
  (xdrx_pointmonitor) 
  (xdrx_entity_delete cir) 
  (xdrx_end) 
  (princ) 
)

凌云笑 · 发表于 2018-5-15 19:37:17

Lispboy 发表于 2018-5-15 19:29
试试，你这个其实用 WIPEOUT遮盖做更好，不断线，以后方便修改，断了，你就回不去了。
下面是断线的代码 ...

厉害了大婶，很强大！~
稍微有点区别的就是：我只需要剪切断竖直线就可以了，水平线需要保持不变。

凌云笑 · 发表于 2018-5-16 07:51:00

Lispboy 发表于 2018-5-15 16:44
那就这样了

虽然不理解是咋做了，但至少看起来很牛比的样子，哈哈。十分好评！

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

[已解决] 关于快速打断线的求助

最佳答案

点评

点评