明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 革天明

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

  [复制链接]
 楼主| 发表于 2012-4-27 16:47:55 | 显示全部楼层
Andyhon 发表于 2012-4-27 16:01
另一个思路
应可藉助 boundary ...

能否说得详细一点或是给个链接?
回复

使用道具 举报

发表于 2012-4-27 16:52:09 | 显示全部楼层
折线的图名采用两条红线的外包围框,(ssget "c" ..)获得选择集,然后对选择集中的实体进行判断后可得到
回复

使用道具 举报

 楼主| 发表于 2012-4-27 17:01:12 | 显示全部楼层
首先白线这个由PEID合并的多段线,其起点和终点是不固定的,TRIM一次后要再次判断分开为多个多段的中是否包含“分界槽”,使用(sset 'c")的办法TRIM一次后就会找不到新生成的图元了,程序上要一直循环直到所有多段线中都不含分界槽,对我来说难度很大
回复

使用道具 举报

发表于 2012-4-27 17:15:44 | 显示全部楼层
;;; 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 "")
)

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

使用道具 举报

 楼主| 发表于 2012-4-27 17:23:09 | 显示全部楼层
Andyhon 发表于 2012-4-27 17:15
;;; eePl 闭合的PEID形成的多段线
;;; xxset 红线由左至右 之 x 值

谢谢!我试一下
回复

使用道具 举报

 楼主| 发表于 2012-4-27 17:32:37 | 显示全部楼层
Andyhon 发表于 2012-4-27 17:15
;;; eePl 闭合的PEID形成的多段线
;;; xxset 红线由左至右 之 x 值

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

使用道具 举报

 楼主| 发表于 2012-4-27 17:34:47 | 显示全部楼层
本帖最后由 革天明 于 2012-4-27 17:35 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

发表于 2012-4-27 18:08:29 | 显示全部楼层
您得补装  Express Tools 套件 (安装片内有)
或改用 vla-getboundingbox ; 站内有范例
回复

使用道具 举报

发表于 2012-4-27 19:56:46 | 显示全部楼层
是不是附件这样的效果?没有考虑详细的判断和打断后的join功能

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2012-4-27 20:33:36 | 显示全部楼层
小菜123 发表于 2012-4-27 19:56
是不是附件这样的效果?没有考虑详细的判断和打断后的join功能

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

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 00:02 , Processed in 0.314771 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表