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

革天明

Andyhon 发表于 2012-4-27 16:01
另一个思路
应可藉助 boundary ...

能否说得详细一点或是给个链接？

小菜123

折线的图名采用两条红线的外包围框，(ssget "c" ..)获得选择集，然后对选择集中的实体进行判断后可得到

革天明

首先白线这个由PEID合并的多段线，其起点和终点是不固定的，TRIM一次后要再次判断分开为多个多段的中是否包含“分界槽”，使用（sset 'c")的办法TRIM一次后就会找不到新生成的图元了，程序上要一直循环直到所有多段线中都不含分界槽，对我来说难度很大

Andyhon

;;; eePl 闭合的PEID形成的多段线
;;; xxset 红线由左至右 之 x 值

(defun fj (eePl xxset)
   (setq pts (acet-ent-geomextents eePl)
          x0 (caar pts)
          x9 (caadr pts)
          y5 (/ (+ (cadar pts) (cadadr pts)) 2)
          pa (list (+ x0 1) y5)
          pb (list (+ (cadr xxset) 1) y5)
   )      
   (command "boundary" pa pb "")
)

用二红线例先检验此一思路的可行性

革天明

Andyhon 发表于 2012-4-27 17:15
;;; eePl 闭合的PEID形成的多段线
;;; xxset 红线由左至右 之 x 值

谢谢！我试一下

革天明

Andyhon 发表于 2012-4-27 17:15
;;; eePl 闭合的PEID形成的多段线
;;; xxset 红线由左至右 之 x 值

; 错误: no function definition: ACET-ENT-GEOMEXTENTS
我加载了(vl-load-com)也不行，是CAD的函数还是自定义的？我的CAD 是2006 机械版

革天明

下面是用于修改和测试的样例及希望实现的效果

Andyhon

您得补装  Express Tools 套件 (安装片内有)
或改用 vla-getboundingbox ; 站内有范例

小菜123

是不是附件这样的效果？没有考虑详细的判断和打断后的join功能

革天明

小菜123 发表于 2012-4-27 19:56
是不是附件这样的效果？没有考虑详细的判断和打断后的join功能

错误: no function definition: ACET-ENT-GEOMEXTENTS
这个需要安装什么插件吗？06机械版的出错了，可以实现多个槽的TRIM吗？