[求助]：怎样获得块中的直线的端点坐标

54256

我要的效果是选择一个块，获得选中点所在直线的端点坐标，这个直线是指块里的一条直线，
谢谢各位高手

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun thacadobj ()
   
5.   (cond
   
6.     (%$*thacadobj*$%)
   
7.     (setq %$*thacadobj*$% (vlax-get-acad-object))
   
8.   )
   
9. )
   
10. (defun thactdoc ()
    
11.   (cond
    
12.     (%$*thactdoc*$%)
    
13.     (setq %$*thactdoc*$% (vla-get-activedocument (thacadobj)))
    
14.   )
    
15. )
    
16. (defun th-subentsel (msg / mvar obj utilobj)
    
17.   (setq utilobj (vla-get-utility (thactdoc))
    
18.         mvar (vlax-make-variant (strcat "\n" msg ":"))
    
19.   )
    
20.   (vl-catch-all-apply '(lambda ()
    
21.                          (vla-getsubentity utilobj 'obj 'pt 'tm 'cd mvar)
    
22.                        )
    
23.   )
    
24.   obj
    
25. )
    
26. (defun th-get-dxf (g e)
    
27.   (cond
    
28.     ((= 'ename (type e))
    
29.       (cdr (assoc g (entget e)))
    
30.     )
    
31.     ((= 'list (type e))
    
32.       (cdr (assoc g e))
    
33.     )
    
34.   )
    
35. )
    
36. (defun c:test (/ e)
    
37.   (setq e (vlax-vla-object->ename (th-subentsel "\n请点击块中LINE:")))
    
38.   (if (= (th-get-dxf 0 e) "LINE")
    
39.     (list (th-get-dxf 10 e) (th-get-dxf 11 e))
    
40.     (progn
    
41.       (prompt "\n点击段为非LINE")
    
42.       (princ)
    
43.     )
    
44.   )
    
45. )
    
46. 
    
47.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun thacadobj ()<br />   (cond<br />     (%$*thacadobj*$%)<br />     (setq %$*thacadobj*$% (vlax-get-acad-object))<br />   )<br /> )<br /> (defun thactdoc ()<br />   (cond<br />     (%$*thactdoc*$%)<br />     (setq %$*thactdoc*$% (vla-get-activedocument (thacadobj)))<br />   )<br /> )<br /> (defun th-subentsel (msg / mvar obj utilobj)<br />   (setq utilobj (vla-get-utility (thactdoc))<br />         mvar (vlax-make-variant (strcat "\n" msg ":"))<br />   )<br />   (vl-catch-all-apply '(lambda ()<br />                          (vla-getsubentity utilobj 'obj 'pt 'tm 'cd mvar)<br />                        )<br />   )<br />   obj<br /> )<br /> (defun th-get-dxf (g e)<br />   (cond<br />     ((= 'ename (type e))<br />       (cdr (assoc g (entget e)))<br />     )<br />     ((= 'list (type e))<br />       (cdr (assoc g e))<br />     )<br />   )<br /> )<br /> (defun c:test (/ e)<br />   (setq e (vlax-vla-object->ename (th-subentsel "\n请点击块中LINE:")))<br />   (if (= (th-get-dxf 0 e) "LINE")<br />     (list (th-get-dxf 10 e) (th-get-dxf 11 e))<br />     (progn<br />       (prompt "\n点击段为非LINE")<br />       (princ)<br />     )<br />   )<br /> )<br /> <br />   [/FONT]<br />

默默和无语

:lol果断收藏了！