全部的币都拿出来了！求实现自动TRIM功能！

langjs

我这边CAD2008运行效果是这样的，你用哪个版本的CAD？不同版本的CAD有些不同

sdwy196912

思路不错

longer1000

帮顶下，期待解决

flytoday

院长很那个那个…发内裤码…这个还只发张图片……

raimo

flytoday 发表于 2012-4-28 08:00
院长很那个那个…发内裤码…这个还只发张图片……

习惯了就好。。。

革天明

大家继续努力啊！现在能实现一次TRIM一个分界槽了，英雄们！将这个挑战踩在脚下吧！

Andyhon

;;; eePl 閉合的PEID形成的多段線
;;; xxset 紅線由左至右 之 x 值

(defun fj (eePl xxset)
   
   (vla-getboundingbox (vlax-ename->vla-object eePl) 'minpt 'maxpt)
   (setq ;; pts (acet-ent-geomextents eePl)
         pts (list (vlax-safearray->list minpt) (vlax-safearray->list maxpt))
          p1 (car pts)
          p3 (cadr pts)
          x0 (car p1)
          x9 (car p3)
          y5 (+ (cadr p1)  2)
          pa (list (+ x0 1) y5)
        nxtx (cdr xxset)
   )
   (setq ss1 (ssget "w" p1 p3))
   (command "boundary" pa)
     (while (setq pbx (car nxtx))
       (setq nxtx (cddr nxtx)
               pb (list (+ pbx 1) y5)
       )
       (command pb)
     )
   (command "")
   (setq ss2 (ssget "w" p1 p3))
   (command "erase" ss1 "")
)

革天明

革天明 发表于 2012-4-28 09:07
大家继续努力啊！现在能实现一次TRIM一个分界槽了，英雄们！将这个挑战踩在脚下吧！

06机械版，没有装ET工具，但使用vla-getboundingbox来代替了

革天明

Andyhon 发表于 2012-4-28 09:10
;;; eePl 閉合的PEID形成的多段線
;;; xxset 紅線由左至右 之 x 值

我已安装ET工具，无论是使用acet-ent-geomextents 还是vla-getboundingbox 都只能分割开一个分界槽，错误提示是：
命令: nb

选择对象: 指定对角点: 找到 47 个

选择对象:
选择对象: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: break 选择对象:
指定第一个打断点:
指定第二个打断点:
命令: break 选择对象:
指定第一个打断点:
指定第二个打断点:
命令: break 选择对象:
指定第一个打断点:
指定第二个打断点:
命令: break 选择对象:
指定第一个打断点:
指定第二个打断点:
命令: break 选择对象:
指定第一个打断点:
指定第二个打断点:
命令: break 选择对象:
指定第一个打断点:
指定第二个打断点:
命令: ; 错误: 参数类型错误: consp 2.5

革天明

革天明 发表于 2012-4-28 09:34
我已安装ET工具，无论是使用acet-ent-geomextents 还是vla-getboundingbox 都只能分割开一个分界槽，错误 ...

Boundary 的话只能画出一条分界槽，以前还能画出多个分界槽，下面是程序，主程序很简单，只不过是调用了几个函数而已，程序思路如下：
①将多个线段、圆弧使用PEID合并成多段线
②选择刚生成的多段线，或许可以使用entlast，目前还未使用，先手动选择多段，多段线名字为nb-entsel
③使用函数 get-pline-point得到多段线的顶点列表nb-ptlist
④使用(Gu_xl_3p nb-ptlist 3)将多段线顶点列表生成三个一组的点列表
⑤repeat (length nb-ptlist)次对三个一组的点列表进行判断，符合(equal (distance nb-3p-p1 nb-3p-p2)        (distance nb-3p-p3 nb-3p-p2) (* 0.001 (distance nb-3p-p1 nb-3p-p2)） )此条件的认为是“分界槽"，这时在分界槽的两个腰的中点向下画线，
⑥对于符合分界槽条件的位置进行处理，将分界槽打断或分开，多段线中含圆弧，估计依据各点重画会有点困难；目前大家提出的方法有TRIM，BREAK 、Boundary，但始终只能有一个分界槽分开；Boundary只能画出一个分界槽和两条向下的线，却不能将分界槽分开。
下面是样例及LISP：传的有点重复，等此贴完结后我会重新编辑，在二楼将样例及答案发布，其它楼层的附件都将删去，以减少论坛容量