请教如何提取长方体属性

Nico · 发表于 2012-10-29 10:38:47

请教如何提取长方体长宽高里面的值

戏男 · 发表于 2012-10-29 11:32:41

我的金币没有了唉

chinawhy817 · 发表于 2012-10-29 12:14:55

只要长宽高是吧？？写个VLSP就OK了

chinawhy817 · 发表于 2012-10-29 12:26:46

以下代码能不能达到你的要求？

===================================
;命令栏运行(GetBoxData),选择长方体，返回一个由长、宽、高组成的三元列表；
(defun GetBoxData (/ lst MaxPnt MinPnt)
  (vl-load-com)
  (vla-getboundingbox (vlax-ename->vla-object (car (entsel))) 'MinPnt 'MaxPnt)
  (setq lst (mapcar 'vlax-safearray->list (list MinPnt MaxPnt)))
  (mapcar 'abs (mapcar '- (car lst) (cadr lst)))
  )

alin · 发表于 2012-10-29 12:49:15

http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid394022

Nico · 发表于 2012-10-29 18:21:14

chinawhy817 发表于 2012-10-29 12:26
以下代码能不能达到你的要求？

===================================

非常感谢就是这效果

Nico · 发表于 2012-10-29 18:25:56

chinawhy817 发表于 2012-10-29 12:26
以下代码能不能达到你的要求？

===================================

旋转方向后结果就不一样了只适合算占用体积我想提取长方体的长宽高不管怎么放

itoboy · 发表于 2012-10-29 18:28:43

三围的，还没研究过。学习学习

Nico · 发表于 2012-10-29 18:28:59

alin 发表于 2012-10-29 12:49
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69250&page=1#pid394022

这个合用不知哪有源代码？？？

alin · 发表于 2012-10-29 19:50:40

Nico 发表于 2012-10-29 18:28
这个合用不知哪有源代码？？？

找不到了

账号		自动登录	找回密码
密码			注册

请教如何提取长方体属性

本帖子中包含更多资源

相关帖子