找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2776|回复: 9

[每日一码] API生成内部边界的代码

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-8-28 15:10:50 | 显示全部楼层 |阅读模式

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

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

×
图中演示的是3个封闭圆,如何求出中间的各个独立的边界线

xdrx_regioncurve.gif

  1. (defun c:tt()
  2.    (if (setq ss (ssget))
  3.       (progn
  4.          (setq ss (xdrx_curve_intersectbreak ss);;所有交点处打断
  5.                ss (xdrx_curve->region ss);;生成REGION
  6.                ss (xdrx_region->curve ss);;REGION生成封闭的多段线,OVER
  7.          )
  8.          (setq i 1);;下面的代码仅仅是演示出生成出来的边界线,用各种不同颜色画出来
  9.          (foreach n (xdrx_pickset->ents ss)
  10.             (xdrx_entity_setcolor n i)
  11.             (xdrx_polyline_setConstantWidth n 10)
  12.             (setq i (1+ i))
  13.          )
  14.       )
  15.    )
  16.    (princ)
  17. )



本帖被以下淘专辑推荐:

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2013-8-28 20:17:03 | 显示全部楼层
cad2010 运行出现错误提示
错误.JPG

点评

API是用的最新的0825版本吗?  详情 回复 发表于 2013-8-28 20:33
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-8-28 20:33:07 | 显示全部楼层
q3_2006 发表于 2013-8-28 20:17
cad2010 运行出现错误提示

API是用的最新的0825版本吗?

点评

当然,全部最新版!  详情 回复 发表于 2013-8-28 20:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2013-8-28 20:54:16 | 显示全部楼层
XDSoft 发表于 2013-8-28 20:33
API是用的最新的0825版本吗?

当然,全部最新版!

点评

上面代码,我在2005,2008,2014测试了,没发现问题。 你把上面代码手动分三行执行,看看哪行出来错误提示了。 1、 (setq ss (xdrx_curve_intersectbreak (ssget))) 2、(setq ss (xdrx_curve->region ss))  详情 回复 发表于 2013-8-28 21:17
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-8-28 21:17:30 | 显示全部楼层
q3_2006 发表于 2013-8-28 20:54
当然,全部最新版!

上面代码,我在2005,2008,2014测试了,没发现问题。

你把上面代码手动分三行执行,看看哪行出来错误提示了。

1、 (setq ss (xdrx_curve_intersectbreak (ssget)))

2、(setq ss (xdrx_curve->region ss))

3、(setq ss (xdrx_region->curve ss))

点评

重启CAD后正常了!  详情 回复 发表于 2013-8-29 07:09
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2013-8-28 21:29:52 | 显示全部楼层
经测试 2012 Ok  Windows 7 32bit
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2013-8-29 07:09:14 | 显示全部楼层
XDSoft 发表于 2013-8-28 21:17
上面代码,我在2005,2008,2014测试了,没发现问题。

你把上面代码手动分三行执行,看看哪行出来错误提 ...

重启CAD后正常了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-10-8 22:49:56 | 显示全部楼层
谢谢楼主的分享!很好用啊。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 828个

财富等级: 财运亨通

发表于 2013-10-10 08:30:08 | 显示全部楼层
这个应该很好用,下载看看,试试能不能把那个自动填充的做成
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1310个

财富等级: 财源广进

发表于 2016-7-29 00:25:54 | 显示全部楼层
厉害啊,学习了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 23:57 , Processed in 0.217826 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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