使用vba或excel绘制面板
我想使用VBA或EXCEL数据绘制面板，任何人都可以使用相同的脚本，我在这里附上了绘图流程，请参阅随附的cad文件。 这将是以前主要在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面重复此操作 这是唯一的矩形脚本，请您为我提供整个对象的脚本
页:
[1]