如何利用lisp求得box的长宽高呀

gz-yzy · 发表于 2011-4-14 15:36:41

利用box的群码都不知道怎么求长宽高，或者用其它的办法求box长宽高的也行，先谢谢了

monkeycctv · 发表于 2011-4-14 16:42:40

我最近也遇到这个问题，等高手！！1

gz-yzy · 发表于 2011-4-15 11:10:41

;显示box的尺寸bylee (vl-load-com) (setq ent (car (entsel "选择BOX"))) (setq ent (vlax-ename->vla-object ent)) (vlax-dump-object ent) (vla-GetBoundingBox ent 'p1 'p2 ) (setq p1 (vlax-safearray->list p1)) (setq p2 (vlax-safearray->list p2)) (setq chang (abs (- (car p1) (car p2))) kuan (abs (- (cadr p1) (cadr p2))) gao (abs (- (last p1) (last p2))) ) (alert (strcat "BOX的尺寸:" "长:" (rtos chang 2) "宽:" (rtos kuan 2) "高:" (rtos gao 2)))

cable2004 · 发表于 2011-4-15 12:57:04

这个只能测试水平角度的，任意角度不行

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

[讨论] 如何利用lisp求得box的长宽高呀

浏览过的版块