(XD::Dim:AssDimEnts)获得和一个尺寸实体界线相贴或者循环相交的所有实体

Lispboy

TF = NIL的情况


TF=T的情况

1. (defun XD::Dim:AssDimEnts (elst tf / e el1 inx pts pts1 spts ss x)
   
2.   (setq inx (XD::Dim:GetNearInx (car elst) (cadr elst))
   
3.         spts (xdrx_entity_getstretchpoint (car elst))
   
4.   )
   
5.   (setq pts (mapcar
   
6.               '(lambda (x)
   
7.                  (nth x spts)
   
8.                )
   
9.               inx
   
10.             )
    
11.   )
    
12.   (if (not tf)
    
13.     (progn
    
14.       (XD::Entity:AssIntersectEntsInit)
    
15.       (reverse (XD::Entity:AssIntersectEnts (car elst) '((0 . "DIMENSION"))
    
16.                                             0.0
    
17.                )
    
18.       )
    
19.     )
    
20.     (progn
    
21.       (setq ss (ssget "cp" (xd::pnts:wcs2ucs (XD::Geom:GetPolyBox
    
22.                                                pts (XD::Doc:GetPickBoxHeight)
    
23. 
    
24.                                              )
    
25.                            ) '((0 . "DIMENSION"))
    
26.                )
    
27.       )
    
28.       (xdrx_setsstodb ss 9)
    
29.       (while (setq e (xdrx_getentdata 9))
    
30.         (setq pts1 (xdrx_entity_getstretchpoint e))
    
31.         (if (vl-some '(lambda (x)
    
32.                         (apply
    
33.                           'xdrx_point_ison
    
34.                           (cons x pts)
    
35.                         )
    
36.                       ) pts1
    
37.             )
    
38.           (setq el1 (cons e el1))
    
39.         )
    
40.       )
    
41.       (reverse el1)
    
42.     )
    
43.   )
    
44. )

(defun XD::Dim:AssDimEnts (elst tf / e el1 inx pts pts1 spts ss x)<br />   (setq inx (XD::Dim:GetNearInx (car elst) (cadr elst))<br />         spts (xdrx_entity_getstretchpoint (car elst))<br />   )<br />   (setq pts (mapcar<br />               '(lambda (x)<br />                  (nth x spts)<br />                )<br />               inx<br />             )<br />   )<br />   (if (not tf)<br />     (progn<br />       (XD::Entity:AssIntersectEntsInit)<br />       (reverse (XD::Entity:AssIntersectEnts (car elst) '((0 . "DIMENSION"))<br />                                             0.0<br />                )<br />       )<br />     )<br />     (progn<br />       (setq ss (ssget "cp" (xd::pnts:wcs2ucs (XD::Geom:GetPolyBox<br />                                                pts (XD::Doc:GetPickBoxHeight)<br /> <br />                                              )<br />                            ) '((0 . "DIMENSION"))<br />                )<br />       )<br />       (xdrx_setsstodb ss 9)<br />       (while (setq e (xdrx_getentdata 9))<br />         (setq pts1 (xdrx_entity_getstretchpoint e))<br />         (if (vl-some '(lambda (x)<br />                         (apply<br />                           'xdrx_point_ison<br />                           (cons x pts)<br />                         )<br />                       ) pts1<br />             )<br />           (setq el1 (cons e el1))<br />         )<br />       )<br />       (reverse el1)<br />     )<br />   )<br /> )

应用代码：

1. (defun c:tt ()
   
2.   (if (setq e (xdrx_entsel "\n点取尺寸<退出>:" '((0 . "dimension"))))
   
3.     (progn (setq elst (XD::Dim:AssDimEnts e nil))
   
4.            (xdrx_pickset_redraw elst)
   
5.     )
   
6.   )
   
7.   (princ)
   
8. )
   

(defun c:tt ()<br />   (if (setq e (xdrx_entsel "\n点取尺寸<退出>:" '((0 . "dimension"))))<br />     (progn (setq elst (XD::Dim:AssDimEnts e nil))<br />            (xdrx_pickset_redraw elst)<br />     )<br />   )<br />   (princ)<br /> )<br />

knife0930

我是菜鸟，如何查看函数返回的实体表？谢谢

knife0930

谢谢老大~~~~