[求助]：求助：各位大侠，,获取矩形四顶点的lisp语句怎么写?

foxzmx

求助：各位大侠，,获取矩形四顶点的lisp语句怎么写？

测试用DWG文件[by xyp1964]：[/COLOR]

yunzhong80

到它的定义数据中找就是了

Underway

(defun MAssoc (Key alist / tmp pts)
      ;(reverse
        ;(progn
           (while (setq tmp (assoc key aList))
             (setq aList (cdr (member tmp aList))
                     pts (cons (cdr tmp) pts)
           ) )
           pts
        ;) ;_ closes progn
      ;) ;_ closes reverse
    ) ;_ closes defun MAssoc

(setq pts (massoc 10 (entget ee)))

foxzmx

谢谢Underway楼主!
你的方法我试过了,非常好用!谢谢你教了我一招!

taner

最初由 Underway 发布
[B](defun MAssoc (Key alist / tmp pts)
      ;(reverse
        ;(progn
           (while (setq tmp (assoc key aList))
             (setq aList (cdr (member tmp aList))
                     pts (cons... [/B]

這個函數真是寫得好!

獲取多義線的頂點,摘自明經通道.
[PHP](defun vertexs (ename / plist pp n)        
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list
(vlax-variant-value
  (vla-get-coordinates obj))))
  (setq n 0)
  (repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n 2))
  )
  pp
) [/PHP]
將樓主的程序如此改一下,與上面的函數所得的點表的次序完全一樣本.[PHP](defun massoc (key alist / tmp pts)
  (while (setq tmp (assoc key alist))
    (setq alist (cdr (member tmp alist))
          pts (cons (cdr tmp) pts)
    )
  )
  (reverse pts)
)[/PHP]

狂刀

最初由 taner 发布
[B][QUOTE]最初由 Underway 发布
[B](defun MAssoc (Key alist / tmp pts)
      ;(reverse
        ;(progn
           (while (setq tmp (assoc key aList))
             (setq aList (cdr (member tmp ... [/B]

;;今天郁闷，我也来写一个玩玩．

2. 
   
3.   [FONT=courier new]
   
4. ;;(massoc 10 (entget(car(entsel))))
   
5. (defun massoc (id lst)
   
6.   (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= id (car x))) lst))
   
7. )
   
8. ;;(vertexs (car(entsel)))
   
9. (defun vertexs (e / n)
   
10.   (repeat(setq n(fix (1+ (vlax-curve-getendparam e))))
    
11.     (setq lst(cons (vlax-curve-getpointatparam e (setq n(1- n))) lst))
    
12.   )
    
13. )
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;(massoc 10 (entget(car(entsel))))<br /> (defun massoc (id lst)<br />   (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= id (car x))) lst))<br /> )<br /> ;;(vertexs (car(entsel)))<br /> (defun vertexs (e / n)<br />   (repeat(setq n(fix (1+ (vlax-curve-getendparam e))))<br />     (setq lst(cons (vlax-curve-getpointatparam e (setq n(1- n))) lst))<br />   )<br /> )<br />   [/FONT]<br />

eachy

http://p4.xdcad.net/forum/showthread.php?s=&threadid=463105

xyp1964

最初由 Underway 发布
[B](defun MAssoc (Key alist / tmp pts)
      ;(reverse
        ;(progn
           (while (setq tmp (assoc key aList))
             (setq aList (cdr (member tmp aList))
                     pts (cons... [/B]

包括5楼和6楼的massoc函数，都不支持POLYLINE实体，返回值：((0.0 0.0 0.0))。
结论：DXF 组码10 ，不适于POLYLINE实体，只适于LWPOLYLINE实体，通用性差。
狂刀的vertexs函数可用。

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051203 (1762)
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (setq        ss (ssget '((0 . "*POLYLINE")))
    
17.         s1 (ssname ss 0)
    
18.   )
    
19.   (if (or (= (xyp-get-dxf 70 s1) 1)
    
20.           (equal (xyp-get-CurveStartPoint s1)
    
21.                  (xyp-get-CurveEndPoint s1)
    
22.           )
    
23.       )
    
24.     (setq ptn (xyp-get-Vertexs s1 3))
    
25.   )
    
26.   (mkla "坐标标注" 4)
    
27.   (if (= (length ptn) 4)
    
28.     (foreach pt ptn (xyp-ZB pt))
    
29.   )
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051203 (1762)<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (setq        ss (ssget '((0 . "*POLYLINE")))<br />         s1 (ssname ss 0)<br />   )<br />   (if (or (= (xyp-get-dxf 70 s1) 1)<br />           (equal (xyp-get-CurveStartPoint s1)<br />                  (xyp-get-CurveEndPoint s1)<br />           )<br />       )<br />     (setq ptn (xyp-get-Vertexs s1 3))<br />   )<br />   (mkla "坐标标注" 4)<br />   (if (= (length ptn) 4)<br />     (foreach pt ptn (xyp-ZB pt))<br />   )<br /> )[/FONT]

hbhu

这么多，我试一下啦，看哪个的好点。再发表吧。