求出立方体长宽高的值

434939575

2. (defun c:tt ( / 1:xy 1:z 1> 2> 2pt 3> 9:xy 9:z ang las leng lst p1 p9 pt:bo ptma ptmi s wid z)
   
3.   (vl-load-com)
   
4.   (setq s (car (entsel)))
   
5.   (vla-getboundingbox
   
6.     (vlax-ename->vla-object s)
   
7.     'ptmi
   
8.     'ptma
   
9.   )
   
10.   (setq 2pt (mapcar 'vlax-safearray->list (list ptmi ptma)))
    
11.   (setq p1 (car 2pt))
    
12.   (setq p9 (cadr 2pt))
    
13.   (setq 1:z (caddr p1))
    
14.   (setq 9:z (caddr p9))
    
15.   (setq z (abs (- 9:z 1:z)))
    
16.   (setq 1:xy (reverse (cdr (reverse p1))))
    
17.   (setq 9:xy (reverse (cdr (reverse p9))))
    
18.   (setq  ang (angle 1:xy
    
19.        9:xy
    
20.       )
    
21.   )
    
22.   (setq pt:bo (polar 1:xy ang (/ (distance 1:xy 9:xy) 2)))
    
23.   (setq pt:bo (append pt:bo (list 9:z)))
    
24.   (command "BOUNDARY" pt:bo "")
    
25.   (setq las (entlast))
    
26.   (setq lst (Hx-pl-list las))
    
27.   (entdel las)
    
28.   (setq 1> (car lst))
    
29.   (setq 2> (cadr lst))
    
30.   (setq 3> (caddr lst))
    
31.   (setq leng (distance 1> 2>))
    
32.   (setq wid (distance 2> 3>))
    
33.   (print (strcat "长"
    
34.      (rtos leng 2 2)
    
35.      "宽"
    
36.      (rtos wid 2 2)
    
37.      "高"
    
38.      (rtos z 2 2)
    
39.    )
    
40.   )
    
41.   (princ)
    
42. )    ;end
    
43. (defun Hx-pl-list (SS0 / e elist ptlist) ;端点列表
    
44.   (setq elist (entget SS0))
    
45.   (foreach n elist
    
46.     (if  (= 10 (car n))
    
47.       (setq ptlist (cons (cdr n) ptlist))
    
48.     )
    
49.   )
    
50.   (reverse ptlist)
    
51. )
    

(defun c:tt ( / 1:xy 1:z 1> 2> 2pt 3> 9:xy 9:z ang las leng lst p1 p9 pt:bo ptma ptmi s wid z)<br />   (vl-load-com)<br />   (setq s (car (entsel)))<br />   (vla-getboundingbox<br />     (vlax-ename->vla-object s)<br />     'ptmi<br />     'ptma<br />   )<br />   (setq 2pt (mapcar 'vlax-safearray->list (list ptmi ptma)))<br />   (setq p1 (car 2pt))<br />   (setq p9 (cadr 2pt))<br />   (setq 1:z (caddr p1))<br />   (setq 9:z (caddr p9))<br />   (setq z (abs (- 9:z 1:z)))<br />   (setq 1:xy (reverse (cdr (reverse p1))))<br />   (setq 9:xy (reverse (cdr (reverse p9))))<br />   (setq  ang (angle 1:xy<br />        9:xy<br />       )<br />   )<br />   (setq pt:bo (polar 1:xy ang (/ (distance 1:xy 9:xy) 2)))<br />   (setq pt:bo (append pt:bo (list 9:z)))<br />   (command "BOUNDARY" pt:bo "")<br />   (setq las (entlast))<br />   (setq lst (Hx-pl-list las))<br />   (entdel las)<br />   (setq 1> (car lst))<br />   (setq 2> (cadr lst))<br />   (setq 3> (caddr lst))<br />   (setq leng (distance 1> 2>))<br />   (setq wid (distance 2> 3>))<br />   (print (strcat "长"<br />      (rtos leng 2 2)<br />      "宽"<br />      (rtos wid 2 2)<br />      "高"<br />      (rtos z 2 2)<br />    )<br />   )<br />   (princ)<br /> )    ;end<br /> (defun Hx-pl-list (SS0 / e elist ptlist) ;端点列表<br />   (setq elist (entget SS0))<br />   (foreach n elist<br />     (if  (= 10 (car n))<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br /> )<br />

USER2128

你这程序只适应于WCS、局限于沿Z轴拉伸的3DSOLID，离实用性还很远，期待你进一步的研究成果。

USER2128

好像是飞诗有个提议，备份一个，然后将其炸开为直线，然后分析这一堆直线。

lucas_3333

USER2128 发表于 2015-4-25 07:45
好像是飞诗有个提议，备份一个，然后将其炸开为直线，然后分析这一堆直线。

为什么要炸开呢？不是有个提取边命令XEDGES吗？

lucas_3333

像这种标准的长方体，圆柱体应该不是问题，异形体才是难点

USER2128

lucas_3333 发表于 2015-4-25 08:42
为什么要炸开呢？不是有个提取边命令XEDGES吗？

谢谢你，之前还真不知道“XEDGES”命令。

XEDGES



请参见
创建线框模型
从三维实体、曲面、网格、面域或子对象的边创建线框几何图形。

访问方法


按钮

功能区: “常用”选项卡 “实体编辑”面板 “提取边”
菜单:“修改”“三维操作”“提取边”
概要

使用 XEDGES 命令，通过从以下对象中提取所有边，可以创建线框几何体：
三维实体
三维实体历史记录子对象
网格
面域
曲面
子对象（边和面）

按住 Ctrl 键的同时选择面、边和部件对象，如果需要，可重复此操作。直线、圆弧、样条曲线或三维多段线等对象是沿选定的对象或子对象的边创建的。