【已解决】求一个lisp代码，图中有很多圆，如图，需要将每个园中与圆相交的部分裁...

wbf424069638 · 发表于 2017-5-6 21:23:54

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

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

×

本帖最后由 newer 于 2018-5-18 21:26 编辑

图中有很多圆，如图，需要将每个园中与圆相交的部分裁剪掉，求代码，只需选中所有圆即可自动实现

Lispboy · 发表于 2017-5-6 22:08:46

本帖最后由 Lispboy 于 2017-5-6 22:34 编辑

XDRX API的版本

圆裁剪曲线.gif

(defun c:tt ()
(defun _trim (e pts)
(if (setq ss1 (ssget "f" pts '((0 . "*LINE,ARC"))))
(progn
(mapcar
'(lambda (x)
(xdrx_getpropertyvalue x "startpoint" "endpoint")
(cond
((and
(xdrx_point_isinside #startpoint e)
(xdrx_point_isinside #endpoint e)
)
(xdrx_entity_delete x)
)
((xdrx_point_isinside #startpoint e)
(xdrx_entity_trim x e #startpoint)
)
((xdrx_point_isinside #endpoint e)
(xdrx_entity_trim x e #endpoint)
)
)
)
(xdrx_pickset->ents ss1)
)
)
)
)
(if (and
(xdrx_initssget "\n选取圆实体<退出>:")
(setq ss (xdrx_ssget '((0 . "CIRCLE"))))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("cmdecho" 0))
(mapcar
'(lambda (x)
(setq pts (xdrx_curve_getsamplepoints x (/
(xd::doc:getpickboxheight)
64.0
)
)
)
(_trim x pts)
)
(xdrx_pickset->ents ss)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (defun _trim (e pts) 
    (if (setq ss1 (ssget "f" pts '((0 . "*LINE,ARC")))) 
      (progn 
        (mapcar 
          '(lambda (x) 
             (xdrx_getpropertyvalue x "startpoint" "endpoint") 
             (cond 
               ((and 
                  (xdrx_point_isinside #startpoint e) 
                  (xdrx_point_isinside #endpoint e) 
                ) 
                 (xdrx_entity_delete x) 
               ) 
               ((xdrx_point_isinside #startpoint e) 
                 (xdrx_entity_trim x e #startpoint) 
               ) 
               ((xdrx_point_isinside #endpoint e) 
                 (xdrx_entity_trim x e #endpoint) 
               ) 
             ) 
           ) 
          (xdrx_pickset->ents ss1) 
        ) 
      ) 
    ) 
  ) 
  (if (and 
        (xdrx_initssget "\n选取圆实体<退出>:") 
        (setq ss (xdrx_ssget '((0 . "CIRCLE")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("cmdecho" 0)) 
      (mapcar 
        '(lambda (x) 
           (setq pts (xdrx_curve_getsamplepoints x (/ 
                                                      (xd::doc:getpickboxheight) 
                                                      64.0 
                                                   ) 
                     ) 
           ) 
           (_trim x pts) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

Lispboy · 发表于 2017-5-6 22:52:29

本帖最后由 Lispboy 于 2017-5-6 22:53 编辑

再来个增强的版本，通过圆的，圆内部的曲线都裁掉

圆裁剪曲线-增强.gif

(defun c:tt ()
(defun _trim (e pts)
(xdrx_entity_trim (ssget "f" pts '((0 . "*LINE,ARC"))) e nil)
)
(if (and
(xdrx_initssget "\n选取圆实体<退出>:")
(setq ss (xdrx_ssget '((0 . "CIRCLE"))))
)
(progn
(xdrx_begin)
(mapcar
'(lambda (x)
(setq pts (xdrx_curve_getsamplepoints x (/
(xd::doc:getpickboxheight)
64.0
)
)
)
(_trim x pts)
)
(xdrx_pickset->ents ss)
)
(xdrx_end)
)
)
(princ)
)

sicky111 · 发表于 2017-5-7 00:03:02

XDRX API太牛了。

wbf424069638 · 发表于 2017-5-7 01:13:05

谢谢大神，，

水龙王/街舞 · 发表于 2017-5-7 20:02:41

厉害，不得不服啊!

wbf424069638 · 发表于 2017-5-8 00:31:50

今天晓东论坛登录不上，我用的第二个程序，有bug,很多时候我以为已经选完了所有其实并没有，还得重新操作，还有有时候圆内的多段线被打断成独立的一条多段线，只能手动删除，求大神解决哈

Lispboy · 发表于 2017-5-8 03:00:58

本帖最后由 Lispboy 于 2017-5-8 03:02 编辑

wbf424069638 发表于 2017-5-8 00:31

你是怎么选择的呢？必须在屏幕内看到才能处理，这是ACAD的限制。

还有，把你的DWG图压缩传上来。

ll_j · 发表于 2017-5-8 08:56:53

这个问题本身不复杂，但同时也不简单。
就问题本身而言，不必要使用api，原始的ALisp就行，以圆为剪刀，以需要剪切的实体名和圆心坐标构成的矩阵为目标，就可以剪切，就是简单重组和遍历就行。
说不简单，是因为如果一条线如果跨越几个圆，那么第一次剪切后，线实体的实体名可能发生变化，脱离选择集，后面就没法剪切了（这应该就是楼主所说的BUG），要解决这个问题，则可能再需要从(entnext (entlast))着手。

newer · 发表于 2017-5-8 09:42:16

ll_j 发表于 2017-5-8 08:56

不存在长老说的这个实体名变化造成的BUG，
1、代码里面是每个圆构建点表后，用 SSGET F 选项找穿过圆的曲线，所以不管裁剪后实体名是否变化都不影响。这个地方也是要求圆一定要显示在屏幕内的原因，这也极大可能是楼主遇到的BUG，移动屏幕选择圆，造成有的圆到屏幕外了，这个可以通过代码ZOOM下屏幕解决。

2、额外话，关于实体名变化的，API的特点之一就是裁剪后，原来的实体名是继承的，这是ARX特有的功能，API利用了。

ll_j · 发表于 2017-5-8 09:57:55

newer 发表于 2017-5-8 09:42

我所说的实体名变化，主要指的是类似一条线穿过多个圆的这种情况，剪切后变成多个实体，多出来的实体名是不在最初的选择集中的。

newer · 发表于 2017-5-8 10:04:41

ll_j 发表于 2017-5-8 09:57

因为是一个一个圆处理，处理完一个圆裁剪后，不管怎么变化，都不会影响下一个圆的处理，因为下一个圆处理时候新建立选择集。

wbf424069638 · 发表于 2017-5-8 11:11:52

图纸附上，红线是多段线，需要将圆内部分裁剪掉，这么多大神在，再问个问题，我是做通信的，多段线上方是电缆长度，圆圈是电杆，圆圈旁是杆号，是否可以只选中多段线上方的文字并统计求和

Lisphk · 发表于 2017-5-8 11:46:23

wbf424069638 发表于 2017-5-8 11:11

安装晓东工具箱，什么都有了。文字菜单里面的文字求和。

或者你用求和搜索论坛，一堆代码。

wbf424069638 · 发表于 2017-5-8 11:49:21

Lisphk 发表于 2017-5-8 11:46

好的，我先试试，多谢，还是晓东里面大神多

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

[已解决] 【已解决】求一个lisp代码，图中有很多圆，如图，需要将每个园中与圆相交的部分裁...

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