用中文编程来控制AutoCAD
我会用一点VBA，但是它的IDE用起来很不方便，并且我中文也烂。碰巧以前没事的时候，玩过《易语言》，全中文编程，就试试看能不能用它来控制CAD。
没想到我成功了！
打开易语言，点【】→【类型库或OCX组件→支持库】，然后找到“类型库”→“ 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版的，其他版本的抱歉了。
用中文编程来控制AutoCAD
易语言网站：www.dywt.com.cn
忘记上传附件了。
希望版主不要因为此贴有广告成分而删除。
如果此贴能得到大家捧场，我想我可以凭此贴向易语言要一个正版Key，:)
另外请教大家一个问题：
怎样用VBA设置打印比例？就是页面设置里面的1毫米对多少单位那个。
支持，严重支持！ 用SelectOnScreen构造一个带过滤器的选择集有例子么？
一直没有搞成，不知道怎么回事
帮助文件里面有的，自己找找。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
我的意思不是用vba，是用易语言
晕
这样也行
真没想到，这样也可以的…………
页:
[1]