ljpnb 发表于 2006-3-6 15:28:00

<P>;;http://free.ys168.com/?lucas-lai<BR>(defun C:Test (/ LST MAXPOINT MINPOINT point)<BR>&nbsp; (vla-getboundingbox<BR>&nbsp;&nbsp;&nbsp; (vlax-ename-&gt;vla-object (car (entsel)))<BR>&nbsp;&nbsp;&nbsp; 'MINPOINT<BR>&nbsp;&nbsp;&nbsp; 'MAXPOINT<BR>&nbsp; )<BR>&nbsp; (setq LST (mapcar 'vlax-safearray-&gt;list (list MINPOINT MAXPOINT)))<BR>&nbsp; (setq MINPOINT(car lst)<BR>&nbsp;MAXPOINT(cadr lst)<BR>&nbsp;)<BR>&nbsp; (setq point(list (car MAXPOINT) (cadr MINPOINT )(caddr MINPOINT)))</P>
<P>&nbsp; (setq LST (mapcar 'abs (mapcar '- (car LST) (cadr LST))))<BR>&nbsp; (setq<BR>&nbsp;&nbsp;&nbsp; LST (list (list "长宽高"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (strcat<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (rtos (car LST) 2 2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "X"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (rtos (cadr LST) 2 2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "X"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (rtos (last LST) 2 2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (list "体积"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (rtos (* (car LST) (cadr LST) (last LST)) 2 2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;)<BR>&nbsp; )<BR>&nbsp; ;;(TABLE_UTIL LST (getpoint "\n表格插入点: ") "standard" 20)<BR>&nbsp; (princ"\n右下角坐标为:")<BR>&nbsp; (princ point)<BR>&nbsp; (princ)<BR>)</P>

hxh2901 发表于 2006-3-6 16:09:00

万分感谢

问题已解决，谢谢楼上的

chenqq 发表于 2010-7-25 21:56:00

为什么我用了龙版主最后一个代码，提示插入表格点以后，随便点了一点，表格没出现呢？提示没定义TABLE_UTIL呢？能不能弄完整的代码出来呢，这个对我也很有用，谢谢版主了

xhq1954425 发表于 2010-7-26 06:56:00

<p>学习一下　！</p>
<p>&nbsp;</p>

chenqq 发表于 2010-7-27 12:33:00

谁来帮帮我啊~拜托了

chenqq 发表于 2010-7-29 21:09:00

<p>拜托大家了！帮帮我，不要让这贴沉了</p>

cable2004 发表于 2012-5-3 22:40:30

顶起此贴，希望高手回答！
页: 1 [2]
查看完整版本: [求助]一个复杂三维实体，如何获取将其包容的长方体的长宽高 ？