几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量  


返回   几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 » 仿射空间:CAX软件开发(三)二次开发与程序设计 » CAD二次开发 » AutoCAD二次开发 » ObjectARX(AutoLISP)
用户名
密码
注册 帮助 会员 日历 银行 搜索 今日新帖 标记论坛为已读


 
 
主题工具 搜索本主题 显示模式
旧 2009-04-25, 07:47 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 caoyin大哥,帮个忙,块或子块 插入点坐标值

caoyin大哥,帮个忙,块或子块 插入点坐标值
www.dimcax.com
caoyin大哥,帮个忙,块或子块 插入点坐标值
我用nentsel点中块中的一个对象后,我想找它所属的块或子块的插入点的wcs坐标是多少,
打个比如,一个块中有一个子块和几个图元,然后这个子块中又有几个图元,如果我点中的是这个子块中的对象,我想知道这个子块的插入点的wcs坐标是多少呀,我的一个程序就差这一步就通过啦,帮帮我caoyin大哥
d
问题不是太明白:
假如块a中有子块b和若干图元,
子块b中有子块c和若干图元,
你是想求哪个块插入点,假如 nentsel点中的不是 块b,那如何求啊
d
恭喜caoyin大哥做我们的老大,大家鼓掌。。。。。。。。
问题不是太明白:
假如块a中有子块b和若干图元a,b,c,d,
子块b中有子块c和若干图元e,f,g,
子块c中有若干图元h,i,j,
如果nentsel选中到是g图元,那就求b子块的插入点,
如果nentsel选中到是i图元,那就求c子块的插入点,
如果nentsel选中到是b图元,那就求a子块的插入点,
d
其实就是把图元(不管有没有块在里面)做成块后的那个插入点
d
笨方法:原理很简单,但写出来就会有点烦
(defun c:tt (/ a lst p an pt)
(if (setq a (nentsel))
(progn
(setq lst (mapcar '(lambda (x / y)
(setq y (entget x))
(list (cdr (assoc 10 y))
(cdr (assoc 50 y))
)
)
(last a);;套嵌块图元名列表
)
)
(setq lst (reverse lst)
p (caar lst)
an (cadar lst)
pt '(0 0 0)
lst (cdr lst)
)
(foreach x lst
(setq a (+ an (angle '(0 0 0) (car x)))
pt (polar pt a (distance '(0 0 0) (car x)))
an (+ an (cadr x))
)
)
(mapcar '+ pt p)
)
)
)
d
谢谢啦caoyin大哥
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)
 


主题工具 搜索本主题
搜索本主题:

高级搜索
显示模式

发帖规则
不可以发表新主题
不可以回复主题
不可以上传附件
不可以编辑您的帖子

vB 代码开启
[IMG]代码开启
HTML代码关闭



所有的时间均为北京时间。 现在的时间是 12:21 AM.


于2004年创办,几何尺寸与公差论坛"致力于产品几何量公差标准GD&T | GPS研究/CAD设计/CAM加工/CMM测量"。免责声明:论坛严禁发布色情反动言论及有关违反国家法律法规内容!情节严重者提供其IP,并配合相关部门进行严厉查处,若內容有涉及侵权,请立即联系我们QQ:44671734。注:此论坛须管理员验证方可发帖。
沪ICP备06057009号-2
更多