批量提取LWPOLYLINE顶点坐标无法为变量赋值

newbuser

1. (defun ddzb (e / befor_xy el en_list group_xy i m)
   
2.   (setq el (entget e))
   
3.   (setq Befor_xy (member (assoc 10 el) el))
   
4.   (setq Group_xy (reverse (member (assoc 42 (reverse Befor_xy))
   
5.           (reverse Befor_xy)
   
6.         )
   
7.      )
   
8.   )
   
9.   (setq i 0)
   
10.   (setq M_list nil)
    
11.   (repeat (length Group_xy)
    
12.     (setq M_list (append
    
13.         M_list
    
14.         (list (cdr (nth i Group_xy)))
    
15.       )
    
16.     )
    
17. 
    
18.     (setq i (+ i 4))
    
19.   )
    
20.   (setq En_list (vl-remove nil (setq M_list M_list)))
    
21.   (print En_list)
    
22.   (princ)
    
23. )
    
24. ;;;以上为收集单条多段线顶点坐标函数
    
25. 
    
26. (defun c:sjzb ( / ff i ls n n_e num ss xy)
    
27.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    
28.     (progn
    
29.       (setq ff (open "c:/多段线顶点坐标.txt" "w"))
    
30.       (setq n 0)
    
31.       (repeat (sslength ss)
    
32.   (setq n_e (ssname ss n))    ;;;;;;;;;;;;;;;;;;;;;
    
33.   (setq xy (ddzb n_e))     ;;;此处为何不能为xy赋值?;;;
    
34.   (setq i (+ n 1))                   ;;;;;;;;;;;;;;;;;;;;;
    
35.   (setq num (itoa i))
    
36.   (setq ls (strcat num ",," xy))
    
37.   (write-line ls ff)
    
38.   (setq n (+ n 1))
    
39.       )
    
40.     )
    
41.   )
    
42.   (close ff)
    
43. )
    
44. (prompt "坐标已导出到c:\根目录下")
    
45. (prin1)

(defun ddzb (e / befor_xy el en_list group_xy i m)<br />   (setq el (entget e))<br />   (setq Befor_xy (member (assoc 10 el) el))<br />   (setq Group_xy (reverse (member (assoc 42 (reverse Befor_xy))<br />           (reverse Befor_xy)<br />         )<br />      )<br />   )<br />   (setq i 0)<br />   (setq M_list nil)<br />   (repeat (length Group_xy)<br />     (setq M_list (append<br />         M_list<br />         (list (cdr (nth i Group_xy)))<br />       )<br />     )<br /> <br />     (setq i (+ i 4))<br />   )<br />   (setq En_list (vl-remove nil (setq M_list M_list)))<br />   (print En_list)<br />   (princ)<br /> )<br /> ;;;以上为收集单条多段线顶点坐标函数<br /> <br /> (defun c:sjzb ( / ff i ls n n_e num ss xy)<br />   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq ff (open "c:/多段线顶点坐标.txt" "w"))<br />       (setq n 0)<br />       (repeat (sslength ss)<br />   (setq n_e (ssname ss n))    ;;;;;;;;;;;;;;;;;;;;;<br />   (setq xy (ddzb n_e))     ;;;此处为何不能为xy赋值?;;;<br />   (setq i (+ n 1))                   ;;;;;;;;;;;;;;;;;;;;;<br />   (setq num (itoa i))<br />   (setq ls (strcat num ",," xy))<br />   (write-line ls ff)<br />   (setq n (+ n 1))<br />       )<br />     )<br />   )<br />   (close ff)<br /> )<br /> (prompt "坐标已导出到c:\根目录下")<br /> (prin1)

newbuser

，自己先顶一下，哪位高手能够解释一哈。

ahwx0814

ddzb  的最后一行要写上你要反回的变量名称En_list

把这2句删除
(print En_list)
  (princ)

newbuser

并且自定义函数(ddzb e)计算出的坐标组无法判断数据类型，但结果和其他顶点坐标计算函数是一样的。

newbuser

ahwx0814 发表于 2013-8-19 16:59
ddzb  的最后一行要写上你要反回的变量名称En_list

把这2句删除

已经遵照阁下的方法修改成功了。
我就是不明白，在改之前也能够返回各定点的坐标，但提出的坐标组对任何函数都免疫，无法car cdr setq ，而且用vlax-variant-type都无法确定变体类型。