一、 可以的，设置方法为先把AutoCad的对象模型搞懂 在Cad的帮助里有相关的内容 先打开Cad，然后运行下面的代码 Dim acadapp As Object Dim acaddoc As Object Dim mspace As Object Set acadapp = GetObject(, "autocad.application") Set acaddoc = acadapp.activedocument Set mspace = acaddoc.modelspace Dim pnt(2) As Double Dim r As Double r = 10 mspace.addcircle pnt, r
二、CAD的实用小技巧：
1、画直线的时候，经常会遇到过长过短的情况。此时可单击这条直线，这条直线便出现三个蓝色的小夹点。把鼠标移到两端的任意夹点上，点击并拖动夹点可对这直线进行拉长，或缩短。
2、当已执行完任意一命令时，如果下一步想重复上一步的命令时，可按右键或Enter键确认，此时CAD会默认刚才操作的命令。比如画完了一个矩形，下一步还是画矩形，直接按右键确认就可以画矩形了。
3、当所画的图无法进一步缩小或放大时，可输入快捷键RE，重新生成一下就可以了。
4、熟记工作中常用的快捷命令，可以给我们的工作带来很大的方便。如画直线L,画圆C等，这些需要我们在平时的工作中多注意积累，并熟记和运用。
5、在CAD设计中如果图中多次出现某一规格的型材，可以事先把这个型材做成块。要用的时候直接把块调出来，这样可以给设计者节省了大量时间。
6、在CAD的下方找到对象捕捉，按右键选择设置。弹出草图设置对话筐，如要捕捉中点，切点可以相应的打上勾。画图时就会自动捕捉相应的点。