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

lhr · 发表于 2004-8-16 10:44:00

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

yjrun · 发表于 2004-8-16 11:15:00

试试vla-get-coordinates函数

pwf · 发表于 2004-8-16 15:01:00

不好意思，我也是从别人那里学来的，不过我改正了一下，
取得多义线第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 · 发表于 2004-8-17 07:31:00

Thank you!

无痕 · 发表于 2004-8-17 22:05:00

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

花锦绣 · 发表于 2004-8-29 18:20:00

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

jason6188 · 发表于 2004-9-1 07:26:00

;;这是本人在网上学来的!
;取得多义线顶点坐标，并输出到文本文件
(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)
   )

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

发表回复

精选推荐