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()<BR>        (setvar "cmdecho" 0)<BR>(setq ffn (getfiled "选取文件" "" "doc" 1))<BR>(setq ff (open ffn "w"))<BR>(close ff)<BR>(princ "\n选择多义线")<BR>(setq ss (ssget))<BR>(setq i 0)<BR>(setvar "pdmode" 33)<BR>(repeat (sslength ss)<BR>                       (setq ssn (ssname ss i))<BR>                       (setq endata (entget ssn))<BR>                       (setq n 0)<BR>                       (repeat (length endata)<BR>                                                       (setq pp (nth n endata))<BR>                                                       (setq key (car pp))<BR>                                                       (if (= key 10)<BR>                                                                                       (progn <BR>                                                                                                                                       (setq x (cadr pp))<BR>                                                                                                                                       (setq y (caddr pp))<BR>                                                                                                                                       (command "point" (list x y))<BR>                                                                                                                                       (setq ff (open ffn "a"))<BR>                                                                                                                                       (princ x ff)<BR>                                                                                                                                       (princ " " ff)<BR>                                                                                                                                       (princ y ff)<BR>                                                                                                                                       (princ "\n" ff)<BR>                                                                                                                                       (close ff)<BR>)<BR>               )<BR>(setq n (1+ n))<BR>)<BR>(setq ff (open ffn "a"))<BR>(princ "end\n" ff)<BR>(close ff)<BR>(setq i (1+ i))<BR>)<BR>(prinl)<BR>)<BR>

meflying 发表于 2004-5-12 19:56:00

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

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

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


<P align=left class=MsoNormal><FONT size=3>                               (setq endpara (vlax-curve-getEndParam curve-obj))--------------------</FONT>


<P align=left class=MsoNormal><FONT size=3>------------返回值为曲线长度</FONT>


<P align=left class=MsoNormal><FONT size=3>则中点坐标</FONT>


<P align=left class=MsoNormal><FONT size=3>(setq midp (vlax-curve-getPointAtParam curve-obj endpara ))</FONT>
页: [1]
查看完整版本: 请问如何把多义线圆弧的中点坐标输出到文本中？