用中文编程来控制AutoCAD

zh3 · 发表于 2007-12-16 15:41:00

我会用一点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版的，其他版本的抱歉了。

0frn0gs4jsq.JPG

4sn543e2i4h.JPG

用中文编程来控制AutoCAD

gmtj3ywpw15.JPG

zh3 · 发表于 2007-12-16 15:47:00

3tdyfvdhfsc.JPG

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

zh3 · 发表于 2007-12-16 15:52:00

忘记上传附件了。
希望版主不要因为此贴有广告成分而删除。
如果此贴能得到大家捧场，我想我可以凭此贴向易语言要一个正版Key，:)

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:sw423g1mfj3.rar
下载次数:0 文件大小:671.09 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

zh3 · 发表于 2007-12-16 16:12:00

另外请教大家一个问题：
怎样用VBA设置打印比例？就是页面设置里面的1毫米对多少单位那个。

sy100 · 发表于 2007-12-24 13:13:00

支持，严重支持！

cnks · 发表于 2007-12-24 13:22:00

用SelectOnScreen构造一个带过滤器的选择集有例子么？
一直没有搞成，不知道怎么回事

zh3 · 发表于 2007-12-26 09:13:00

帮助文件里面有的，自己找找。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