[求助]了lisp读取顶点坐标写文本

byghbcx

我在江苏,很近的,qq:498719189

caoyin

江苏，哪里。我在江苏宜兴。苏州无锡一带经常走动。我的qq：420200466，有空联系

byghbcx

江苏宝应，我宜兴同学很多。有空联系

measure1980

各位热心的朋友，用空找我玩。上面有我的联系方式，我是干测量的。希望能多交爱好软件的朋友

hhc

顶

highflybir

3. ;;方法一
4. ;;Using DXF codes vertices are sub entities of the 3dpoly, have to use (entnext ...)
5. (defun get-3dpoly-by-alisp (poly / vtx elst lst)
6.   (setq vtx (entnext poly))
7.   (while (/= (cdr (assoc 0 (setq elst (entget vtx)))) "SEQEND")
8.     (setq lst (cons (cdr (assoc 10 elst)) lst)
9.     vtx (entnext vtx)
10.     )
11.   )
12.   (reverse lst)
13. )
14. ;;方法二
15. ;;Another way using VisualLISP
16. (defun get-3dpoly-by-vlisp (poly / )
17.   (vl-load-com)
18.   ;; Split a flat list into a points list
19.   (defun 3d-coord->pt-lst (lst)
20.     (if  lst
21.       (cons (list (car lst) (cadr lst) (caddr lst))
22.       (3d-coord->pt-lst (cdddr lst))
23.       )
24.     )
25.   )
26.   (3d-coord->pt-lst
27.     (vlax-get (vlax-ename->vla-object poly) 'Coordinates)
28.   )
29. )
30. ;;test
31. (defun C:test ()
32.   (if (setq 3dpoly (car (entsel)))
33.     (if (= (cdr (assoc 0 (entget 3dpoly)))  "POLYLINE")
34.       (get-3dpoly-by-alisp 3dpoly)  ;1ST way
35.       ;(get-3dpoly-by-vlisp 3dpoly) ;2ND way
36.     )
37.   )
38. )

;;方法一 ;;Using DXF codes vertices are sub entities of the 3dpoly, have to use (entnext ...) (defun get-3dpoly-by-alisp (poly / vtx elst lst)   (setq vtx (entnext poly))   (while (/= (cdr (assoc 0 (setq elst (entget vtx)))) "SEQEND")     (setq lst (cons (cdr (assoc 10 elst)) lst)     vtx (entnext vtx)     )   )   (reverse lst) ) ;;方法二 ;;Another way using VisualLISP (defun get-3dpoly-by-vlisp (poly / )   (vl-load-com)   ;; Split a flat list into a points list   (defun 3d-coord->pt-lst (lst)     (if  lst       (cons (list (car lst) (cadr lst) (caddr lst))       (3d-coord->pt-lst (cdddr lst))       )     )   )   (3d-coord->pt-lst     (vlax-get (vlax-ename->vla-object poly) 'Coordinates)   ) ) ;;test (defun C:test ()   (if (setq 3dpoly (car (entsel)))     (if (= (cdr (assoc 0 (entget 3dpoly)))  "POLYLINE")       (get-3dpoly-by-alisp 3dpoly)  ;1ST way       ;(get-3dpoly-by-vlisp 3dpoly) ;2ND way     )   ) )

这个问题在autodesk讨论组中出现过。  
两种方法，比前面帖子的代码精炼些。两种方法都可单独成为函数。