用中文编程来控制AutoCAD

zh3

我会用一点VBA，但是它的IDE用起来很不方便，并且我中文也烂。

碰巧以前没事的时候，玩过《易语言》，全中文编程，就试试看能不能用它来控制CAD。

没想到我成功了！

打开易语言，点【工具】→【类型库或OCX组件→支持库】，然后找到“类型库”→“AutoCAD 2007 Type Library 版本 1.0”，点【下一步】，【保存】成.npk文件，按照提示操作就ok了。

返回到易语言，点【工具】→【支持库配置】，选择“AutoCAD 1.0”，然后就可以用中文写程序了。跟VB里面一样。

（如果找不到，请点“注册类型库”，找到C:\program files\common files\autodesk shard\acax17enu.tlb，然后就可以看到“AutoCAD 2007 Type Library 版本 1.0”了。）

附件有两个文件，一个是源程序，用易语言来打开编辑。一个是EXE程序，单击打开AutoCAD按钮，会打开AutoCAD，并且弹出提示框，显示版本。单击画图按钮，会画1000个圆。然后自动保存为“D:\1.dwg”。

用了好几年盗版的易语言，良心发现了，来给它做个广告。

附上源码截图。英文不好的朋友别害怕，实际上那些英文，全部可以翻译成中文的，用中文来写的，比如Addcircle就可以直接写成“画圆”，到时候就可以一个英文都不用了。不过这个工作太庞大，鄙人难堪重任，还有待后来之士了。

本示例程序只做了支持2007版的，其他版本的抱歉了。

 

zh3

易语言网站：www.dywt.com.cn

zh3

忘记上传附件了。

希望版主不要因为此贴有广告成分而删除。

如果此贴能得到大家捧场，我想我可以凭此贴向易语言要一个正版Key，:)

 

zh3

另外请教大家一个问题：

怎样用VBA设置打印比例？就是页面设置里面的1毫米对多少单位那个。

sy100

支持，严重支持！

cnks

用SelectOnScreen构造一个带过滤器的选择集有例子么？

一直没有搞成，不知道怎么回事

zh3

<pre class="Code">帮助文件里面有的，自己找找。</pre><pre class="Code">Sub Example_SelectOnScreen()
    ' This example adds objects to a selection set by prompting the user
    ' to select ones to add.
   
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
   
    ' Add objects to a selection set by prompting user to select on the screen
    ssetObj.SelectOnScreen
   
End Sub</pre><pre class="Code"></pre>

cnks

zh3发表于2007-12-26 9:13:00帮助文件里面有的，自己找找。Sub Example_SelectOnScreen()    ' This example adds objects to a selection set by prompting the user    ' to se

我的意思不是用vba，是用易语言

muzi2005888

晕

这样也行

idoo

真没想到，这样也可以的…………