[LISP程序]：怎样提取坐标

redapple

例如一张图纸中有很多实体，怎样才能提取出所有实体中最边界的实体的坐标呢？比如左上角的坐标等

XDSoft

最初由 redapple 发布
[B]例如一张图纸中有很多实体，怎样才能提取出所有实体中最边界的实体的坐标呢？比如左上角的坐标等 [/B]

你说的是包围实体的最小矩形框的左上角坐标吗?

redapple

是所有实体当中最左上角的

XDSoft

最初由 redapple 发布
[B]是所有实体当中最左上角的 [/B]

不是所有的实体你都可以得到特征点坐标的.比如一个圆, 哪个是圆上的左上角呢?

通用的,只有是包围实体的最小外框.

你举个具体的实体例子, 然后说说你想要得到什么?

redapple

我是想在一张图纸中提取外墙的一点的坐标

XDSoft

最初由 redapple 发布
[B]我是想在一张图纸中提取外墙的一点的坐标 [/B]

ACAD里面没有墙实体, 每个人可能用不同的方法画墙, 请你说明下你的墙具体的实体是什么, 截图贴到论坛来, 说明下你要做什么, 大家才好讨论.

eachy

最初由 redapple 发布
[B]是所有实体当中最左上角的 [/B]

CAD中的实体有多种(Line、Arc、Spline、Circle、Ellpise、Dimension、Polyline、Ray等），假如是天正5等的还有自定义实体，所以你说的所有就不好确定了，也许找不到，也许找到了也不符合要求。

redapple

首先判断的前提是非建筑软件绘图，无论是何种实体，我需要的是整个图纸幅面上四个角上的实体，如果有特征点的话，提取特征点最好。问题有些抽象，不知有没有讲明白？

eachy

最初由 redapple 发布
[B]首先判断的前提是非建筑软件绘图，无论是何种实体，我需要的是整个图纸幅面上四个角上的实体，如果有特征点的话，提取特征点最好。问题有些抽象，不知有没有讲明白？ [/B]

建筑图纸中如果不进行处理，一般的最外围就是图框。

XDSoft

最初由 redapple 发布
[B]首先判断的前提是非建筑软件绘图，无论是何种实体，我需要的是整个图纸幅面上四个角上的实体，如果有特征点的话，提取特征点最好。问题有些抽象，不知有没有讲明白？ [/B]

下面是用 XDRX_API 实现的

2. [font=courier]
   
3. 
   
4. (if (setq ss (ssget))
   
5.    (progn
   
6.         (setq box (xdrx_entity_box ss))
   
7.    )
   
8. )
   
9. 
   
10. [/font]
    

[font=courier]<br /> <br /> (if (setq ss (ssget))<br />    (progn<br />         (setq box (xdrx_entity_box ss))<br />    )<br /> )<br /> <br /> [/font]<br />

上面的BOX变量保存了你选择的实体的最大外框的四个角点.

redapple

图框里面除了标注之外的实体

eachy

来个Vlisp的

2. 
   
3. (defun SSMAP (func ss / n)
   
4.   (if (eq 'PICKSET (type ss))
   
5.     (repeat (setq n (fix (sslength ss))) ; fixed
   
6.       (apply func (list (ssname ss (setq n (1- n)))))
   
7.     )
   
8.   )
   
9. )
   
10. ;;求单独图元或选择集的包围盒
    
11. (defun ea:getssboundingbox (ss              /                ax:GetBoundingBox
    
12.                             plist     xplst        yplst          xmax
    
13.                             ymax      xmin        ymin          pt
    
14.                            )
    
15. ;;;返回一个单独图元的范围
    
16.   (defun ax:GetBoundingBox (ent / ll ur)
    
17.     (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
    
18.     (mapcar 'vlax-safearray->list (list ll ur))
    
19.   )
    
20.   (cond
    
21.     ((eq (type ss) 'PICKSET)
    
22.      (progn
    
23.        (ssmap
    
24.          (function
    
25.            (lambda (ent)
    
26.              (setq plist (cons (ax:getBoundingBox ent) plist))
    
27.            )
    
28.          )
    
29.          ss
    
30.        )
    
31.        (setq plist (apply 'append plist))
    
32.        (setq xplst (mapcar 'car plist)
    
33.              yplst (mapcar 'cadr plist)
    
34.        )
    
35.        (setq xmax (apply 'max xplst)
    
36.              ymax (apply 'max yplst)
    
37.              xmin (apply 'min xplst)
    
38.              ymin (apply 'min yplst)
    
39.        )
    
40.      )
    
41.     )
    
42.     ((eq (type ss) 'ENAME)
    
43.      (setq pt (ax:GetBoundingBox ss))
    
44.      (setq xmax        (caadr pt)
    
45.            ymax        (cadadr pt)
    
46.            xmin        (caar pt)
    
47.            ymin        (cadar pt)
    
48.      )
    
49.     )
    
50.     (T)
    
51.   )
    
52.   (list        (trans (list xmin ymin) 0 1)
    
53.         (trans (list xmax ymin) 0 1)
    
54.         (trans (list xmax ymax) 0 1)
    
55.         (trans (list xmin ymax) 0 1)
    
56.   )
    
57. )

<br /> (defun SSMAP (func ss / n)<br />   (if (eq 'PICKSET (type ss))<br />     (repeat (setq n (fix (sslength ss))) ; fixed<br />       (apply func (list (ssname ss (setq n (1- n)))))<br />     )<br />   )<br /> )<br /> ;;求单独图元或选择集的包围盒<br /> (defun ea:getssboundingbox (ss              /                ax:GetBoundingBox<br />                             plist     xplst        yplst          xmax<br />                             ymax      xmin        ymin          pt<br />                            )<br /> ;;;返回一个单独图元的范围<br />   (defun ax:GetBoundingBox (ent / ll ur)<br />     (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)<br />     (mapcar 'vlax-safearray->list (list ll ur))<br />   )<br />   (cond<br />     ((eq (type ss) 'PICKSET)<br />      (progn<br />        (ssmap<br />          (function<br />            (lambda (ent)<br />              (setq plist (cons (ax:getBoundingBox ent) plist))<br />            )<br />          )<br />          ss<br />        )<br />        (setq plist (apply 'append plist))<br />        (setq xplst (mapcar 'car plist)<br />              yplst (mapcar 'cadr plist)<br />        )<br />        (setq xmax (apply 'max xplst)<br />              ymax (apply 'max yplst)<br />              xmin (apply 'min xplst)<br />              ymin (apply 'min yplst)<br />        )<br />      )<br />     )<br />     ((eq (type ss) 'ENAME)<br />      (setq pt (ax:GetBoundingBox ss))<br />      (setq xmax        (caadr pt)<br />            ymax        (cadadr pt)<br />            xmin        (caar pt)<br />            ymin        (cadar pt)<br />      )<br />     )<br />     (T)<br />   )<br />   (list        (trans (list xmin ymin) 0 1)<br />         (trans (list xmax ymin) 0 1)<br />         (trans (list xmax ymax) 0 1)<br />         (trans (list xmin ymax) 0 1)<br />   )<br /> )

nihao2002

如何批量提取图中圆弧中心点的xyz坐标到文本本件中

qiaqiadeng

研究一下吧：
(defun boundingbox (obj minp maxp)
  (vl-load-com)
  (vla-getboundingbox
    (vlax-ename->vla-object obj)
    'minp
    'maxp
  )
  (setq        minp (vlax-safearray->list minp)
        maxp (vlax-safearray->list maxp)
  )
)