这是一个画中心线的程序，哪个大侠帮忙改改，谢谢！

zfsaaa

这是一个（注：网上下的）画中心线的程序，会画两直线的中心线，可是遇到弧型或圆形成的两线，就无法画下去了。哪个大侠帮忙改改，谢谢！

(
  defun c:zx()
    (prompt "欢迎您用此程序")
    (setvar "cmdecho" 0)
 

;创建新层
 
    (setq oldvar (getvar "OSMODE"))
    (setvar "OSMODE" 512)
    (command "pline")
    (while (= 1 1)
 
       (setq p1 (getpoint "\n请选择第一个点："))
       
        (setq firstX (car p1))
        (setq firstY (cadr p1))
        (setq p2 (getpoint "\n请选择第二个点："))
        (if p2
   (progn
           (setq secondX (car p2))
            (setq secondY (cadr p2))
            (setq mX (/ (+ firstX secondX) 2))
            (setq mY (/ (+ firstY secondY) 2))
            (setq mX (rtos mX))
            (setq mY (rtos mY))
            (command (strcat mX "," mY))
    )
   (progn
    (command "") 
   )

        )
 
    )
    (setvar "OSMODE" oldvar)
    (princ)
 
)

totoro

一次标志多个圆或弧的中心线

(defun c:cen (/ ss e1 i)
(setq ss (ssget '((-4 . "<OR") (0 . "CIRCLE") (0 . "ARC") (-4 . "OR>"))))
(if ss
(progn
(setq e1 (ssname ss 0)
i 0
)
(while e1
(command "._DIMCENTER" (list e1 '(0 0 0)))
(setq i (1+ i)
e1 (ssname ss i)
)
)
)
)
)

zfsaaa

谢谢你的会复，但我所期望的是两条弧线可画出中心线（实际是我们画弧线双线墙的中心线如何画）