chgline如何定义？

finddd

chgline如何定义
我在程序里看到chgline，但是没有定义，请问这个函数是什么意思？作用是什么？有它的lisp代码吗？
另外，ep_line和ep_arc2也不懂为什么要定义这样的函数。如果想画直线和弧线，可以直接用line和arc。为何还要定义个ep_line和ep_arc2?有没有ep_line和ep_arc2的函数lisp代码？
(if (/= h1 0)
(ep_line  (list (setq p (polar (polar bp an2 (* d0 0.5)) (+ an pi) h1))
               (setq p (polar p an1 d0)) ))
)
(chgline 7 0)
(ep_arc2   (setq p (polar (polar bp an (* h 0.5)) an1 (* d0 0.5)))
           (setq p (polar p an2 (* d0 0.5)))
           (* d0 1.2))
(ep_arc2   (setq p (polar (polar bp an (* h 0.5)) an2 (* d0 0.5)))
           (setq p (polar p an1 (* d0 0.5)))
           (* d0 1.2))
(chgline 4 0)
……
学lisp过程中问题有点多，呵呵。急盼赐教。

mandala

照你现在贴出来的片段来看，chgline，ep_line和ep_arc2分别是三个子程序，在没看到它们的lisp代码或者完整的主程序前，恐怕神仙也不知道它们是用来干什么的。

finddd

回复 mandala 的帖子

确实是子程序，我找不到这些子程序的代码，看来想看懂也无望了。谢谢啦。