新手 多义线顶点坐标提取 看不懂啊 不明白 求解释

h199101

2. (defun c:lsp_48()
   
3. (setvar "cmdecho" 0)
   
4. (setq ffn (getfiled "选取文件" "" "doc" 1))
   
5. (setq ff (open ffn "w"))
   
6. (close ff)
   
7. (princ "\n选取PLINE多义线...")
   
8. (setq ss (ssget))
   
9. (setq i 0)
   
10. (setvar "pdmode" 33)
    
11. (repeat (sslength ss)
    
12. (setq ssn (ssname ss i))
    
13. (setq endata (entget ssn))
    
14. (setq n 0)
    
15. (repeat (length endata)
    
16. (setq pp (nth n endata))
    
17. (setq key (car pp))
    
18. (if (= key 10);;;;<FONT color=red>;他这里为什么要从属性列表中去一个个查找啊，为什么不直接assoc，
    
19. </FONT>(progn           ;;;<FONT color=red>;</FONT><FONT color=#ff0000>再者属性列表中有（10. x y z）这一个表，其他的顶点怎么找出来的呢？书上是说顶点坐标，多</FONT>(setq x (cadr pp));;;;;;;;;;;<FONT color=#ff0000>重项目，可我一句句加载，还是控制台中没有显示其他顶点啊???</FONT>
    
20. (setq y (caddr pp))
    
21. (command "point" (list x y))
    
22. (setq ff (open ffn "a"))
    
23. (princ x ff)
    
24. (princ " " ff)
    
25. (princ y ff)
    
26. (princ "\n" ff)
    
27. (close ff)
    
28. )
    
29. )               
    
30. (setq n (1+ n))
    
31. )
    
32. (setq ff (open ffn "a"))
    
33. (princ "End\n" ff)
    
34. (close ff)
    
35. (setq i (1+ i))
    
36. )
    
37. (princ (strcat "\n文件写至=> " ffn))
    
38. (prin1)
    
39. )     
    

(defun c:lsp_48()<br /> (setvar "cmdecho" 0)<br /> (setq ffn (getfiled "选取文件" "" "doc" 1))<br /> (setq ff (open ffn "w"))<br /> (close ff)<br /> (princ "\n选取PLINE多义线...")<br /> (setq ss (ssget))<br /> (setq i 0)<br /> (setvar "pdmode" 33)<br /> (repeat (sslength ss)<br /> (setq ssn (ssname ss i))<br /> (setq endata (entget ssn))<br /> (setq n 0)<br /> (repeat (length endata)<br /> (setq pp (nth n endata))<br /> (setq key (car pp))<br /> (if (= key 10);;;;<FONT color=red>;他这里为什么要从属性列表中去一个个查找啊，为什么不直接assoc，<br /> </FONT>(progn           ;;;<FONT color=red>;</FONT><FONT color=#ff0000>再者属性列表中有（10. x y z）这一个表，其他的顶点怎么找出来的呢？书上是说顶点坐标，多</FONT>(setq x (cadr pp));;;;;;;;;;;<FONT color=#ff0000>重项目，可我一句句加载，还是控制台中没有显示其他顶点啊???</FONT><br /> (setq y (caddr pp))<br /> (command "point" (list x y))<br /> (setq ff (open ffn "a"))<br /> (princ x ff)<br /> (princ " " ff)<br /> (princ y ff)<br /> (princ "\n" ff)<br /> (close ff)<br /> )<br /> )               <br /> (setq n (1+ n))<br /> )<br /> (setq ff (open ffn "a"))<br /> (princ "End\n" ff)<br /> (close ff)<br /> (setq i (1+ i))<br /> )<br /> (princ (strcat "\n文件写至=> " ffn))<br /> (prin1)<br /> )     <br />

问题见代码红色字体 求指教      例题来自《autolisp&dcl》11-47

Gu_xl

assoc只能取到表中的一个元素！所以要循环处理取出顶点坐标！即取出组码为10的所有点！

xlt19870622

是不是能够提取UCS坐标呢？

llsheng_73

1. (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))endata))

(mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))endata))