请问大家：如何取得一条多段线的多个顶点坐标

lhr

请问大家:如何取得一条多段线的多个顶点坐标,（例如一条线有6个顶点坐标）

citykunan

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15432

yjrun

试试vla-get-coordinates函数

pwf

不好意思，我也是从别人那里学来的，不过我改正了一下， 取得多义线第M个顶点的坐标
(defun Passoc (m Entname / x Entlist PLlist)
(if Entname
(progn
(setq Entlist (entget Entname))
(foreach x Entlist
(if (equal (car x) 10)
(setq PLlist (cons (cdr x) PLlist))
);end if
);end foreach
(nth (- m 1) PLlist)
);end progn
);end if
);end defun

lhr

Thank you!

无痕

(vl-remove-if '(lambda(x)(/= 10 (car x))) (entget(car(entsel "\n选取多义线:"))))

花锦绣

有疑问，X、Y值太大时，会出现科学计数的格式，怎么办哟？

jason6188

;;这是本人在网上学来的! ;取得多义线顶点坐标，并输出到文本文件
(defun c:zbdc()
(setvar "cmdecho" 0)
(setq ffn (getfiled "选取文件" "" "doc" 1))
(setq ff (open ffn "w"))
(close ff)
(princ "\n选择多义线")
(setq ss (ssget))
(setq i 0)
(setvar "pdmode" 33)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq endata (entget ssn))
(setq n 0)
(repeat (length endata)
(setq pp(nth n endata))
(setq key (car pp))
(if (= key 10)
(progn
(setq p (trans (cdr pp) 0 1))
(setq a (car p) )
(setq b (cadr p))
;(command "point" (list a b))
(setq x (rtos a 2 3))
(setq y (rtos b 2 3))
(setq ff (open ffn "a"))
(princ x ff)
(princ " " ff)
(princ y ff)
(princ "\n" ff)
(close ff)
)
)
(setq n (1+ n))
)
(setq ff (open ffn "a"))
(princ "end\n" ff)
(close ff)
(setq i (1+ i))
)
(princ)
)