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

hahthx-zyp · 发表于 2004-5-11 12:45:00

meflying · 发表于 2004-5-11 13:38:00

write-line

hahthx-zyp · 发表于 2004-5-12 13:54:00

不好意思没说清楚，我的意思是如何取得多义线圆弧的中点坐标并把它输出到文本。下面是我用的把多义线的顶点输出动文体的程序，但是它没办法把圆弧的中点坐标一起输出请各位高手帮我把程序改一下，让它能把圆弧中点一起输出。谢谢！
(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 · 发表于 2004-5-12 19:56:00

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

redearth · 发表于 2004-5-13 12:03:00

(vlax-curve-getStartParam curve-obj)--------------------返回0.0
(setq endpara (vlax-curve-getEndParam curve-obj))--------------------
------------返回值为曲线长度
则中点坐标
(setq midp (vlax-curve-getPointAtParam curve-obj endpara ))

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

发表回复

精选推荐

浏览过的版块