用中文编程来控制AutoCAD
本帖最后由 作者 于 2007-12-16 15:44:22 编辑 <br /><br /> <p>我会用一点VBA，但是它的IDE用起来很不方便，并且我中文也烂。</p><p>碰巧以前没事的时候，玩过《易语言》，全中文编程，就试试看能不能用它来控制CAD。</p><p>没想到我成功了！</p><p>打开易语言，点【工具】→【类型库或OCX组件→支持库】，然后找到“类型库”→“AutoCAD 2007 Type Library 版本 1.0”，点【下一步】，【保存】成.npk文件，按照提示操作就ok了。</p><p>返回到易语言，点【工具】→【支持库配置】，选择“AutoCAD 1.0”，然后就可以用中文写程序了。跟VB里面一样。</p><p>（如果找不到，请点“注册类型库”，找到C:\program files\common files\autodesk shard\acax17enu.tlb，然后就可以看到“AutoCAD 2007 Type Library 版本 1.0”了。）</p><p>附件有两个文件，一个是源程序，用易语言来打开编辑。一个是EXE程序，单击打开AutoCAD按钮，会打开AutoCAD，并且弹出提示框，显示版本。单击画图按钮，会画1000个圆。然后自动保存为“D:\1.dwg”。</p><p>用了好几年盗版的易语言，良心发现了，来给它做个广告。</p><p>附上源码截图。英文不好的朋友别害怕，实际上那些英文，全部可以翻译成中文的，用中文来写的，比如Addcircle就可以直接写成“画圆”，到时候就可以一个英文都不用了。不过这个工作太庞大，鄙人难堪重任，还有待后来之士了。</p><p>本示例程序只做了支持2007版的，其他版本的抱歉了。</p><p> </p> <p></p><p>易语言网站：<a href="http://www.dywt.com.cn">www.dywt.com.cn</a></p> <p>忘记上传附件了。</p><p>希望版主不要因为此贴有广告成分而删除。</p><p>如果此贴能得到大家捧场，我想我可以凭此贴向易语言要一个正版Key，:)</p><p> </p> <p>另外请教大家一个问题：</p><p>怎样用VBA设置打印比例？就是页面设置里面的1毫米对多少单位那个。</p><p></p> 支持，严重支持！ <p>用SelectOnScreen构造一个带过滤器的选择集有例子么？</p><p>一直没有搞成，不知道怎么回事</p> <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> zh3发表于2007-12-26 9:13:00static/image/common/back.gif帮助文件里面有的，自己找找。Sub Example_SelectOnScreen() ' This example adds objects to a selection set by prompting the user ' to se
<p>我的意思不是用vba，是用易语言</p> <p>晕</p><p>这样也行</p> 真没想到，这样也可以的…………
页:
[1]
2