这将是以前主要在lisp中完成的方法。
得到得到说左下角点。长度和宽度绘制一条4边的线
绘制4条线，这些线是绿色偏移，您知道4个角点的坐标。
取长度/400，得到x.xx，然后进行固定，计算出奇数端的测量值
从上到下画圆
计算出宽度=/400等
画圆。
- (defun c:panel ( / len wid pt1 pt2 pt3 pt4)
- (setq pt1 (getpoint "\nPick lower left Corner"))
- (setq Len (Getreal "\nEnter length"))
- (setq wid (Getreal "\nWidth"))
- (setq pt2 (polar Pt1 0.0 len))
- (setq pt3 (polar pt2 (/ pi 2.0) wid))
- (setq pt4 (polar pt3 pi len))
- (command "pline" pt1 pt2 pt3 pt4 "c")
- )
- (C:panel)
好，那么对于绿线，做一个改变层（setvar'clayer“绿线”）
再次使用polar命令计算出3个新的点（setq pt5（polar pt1（*1.5 pi）off））
制定pt6
然后（命令“pline”pt1 pt5 pt6 pt2“”）
其他3面重做
现在为圆计算出更多的点
对其他3面重复此操作 | 
置顶卡
