请问如何把多义线圆弧的中点坐标输出到文本中？

hahthx-zyp

请问如何把多义线圆弧的中点坐标输出到文本中？

meflying

write-line

hahthx-zyp

不好意思没说清楚，我的意思是如何取得多义线圆弧的中点坐标并把它输出到文本。下面是我用的把多义线的顶点输出动文体的程序，但是它没办法把圆弧的中点坐标一起输出请各位高手帮我把程序改一下，让它能把圆弧中点一起输出。谢谢！ (defun c:zb()
(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 x (cadr pp))
(setq y (caddr pp))
(command "point" (list x y))
(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))
)
(prinl)
)

meflying

中点要计算的,你把中点算出来后,再输出不就可以了吗?

redearth

(vlax-curve-getStartParam curve-obj)--------------------返回0.0

(setq endpara (vlax-curve-getEndParam curve-obj))--------------------

------------返回值为曲线长度

则中点坐标

(setq midp (vlax-curve-getPointAtParam curve-obj endpara ))