请教：如何用mline画圆弧？

mandala

请教：如何用mline画圆弧？比如说下边这样，指定一个wall线型画多线，但只能画直线，无法画圆弧。有什么其他办法解决吗？
( W9 F" ]1 Y# U7 k) W
(DEFUN C:test ()
* d% N" ~' Q& r  y7 Y5 j             (setq th (getreal "输入墙厚度：（默认为0.5）："))
4 a2 D0 N3 y$ i7 I: O(command "mline" "j" "b" "s" th "st" "wall"   )
3 }  Q( ]3 V4 G( \+ v)