请教：如何用mline画圆弧？

mandala

请教：如何用mline画圆弧？比如说下边这样，指定一个wall线型画多线，但只能画直线，无法画圆弧。有什么其他办法解决吗？
! s9 B8 A0 F4 n8 S5 ?
% E+ `6 w9 r6 _/ z* \3 s' I. t0 [( P(DEFUN C:test ()
" C3 _6 j) t9 ^" k             (setq th (getreal "输入墙厚度：（默认为0.5）："))
( k" U4 D% k7 {" u- c(command "mline" "j" "b" "s" th "st" "wall"   )
! G1 [; X! v# K5 Z, V/ B)