用中文玩转AUTOCAD2004二次开发

et27

潜水员的巨献：

 用中文玩转AutoCAD2004二次开发
dispbbs.asp?boardID=107&ID=59495&page=1

要求置顶!欢迎有喜欢折腾autocad的人士参与讨论。

ntchjie

这个东东有点意思。楼主能否贴上来，我们下不到。

et27

到http://et27.ys168.com　下载

mccad

先介绍怎样使用。
我倒是搜索了半天才知道怎样使用(虽然还没试)。所以希望能介绍一下，免得大家都去找方法。

翔羽

好东西，但不知道怎么用阿~~

et27

好吧，先介绍一下，要用我的这些东西，首先要到http://www.dywt.com.cn/ 下载一个易语言试用版安装一下，易语言吗，官方说的啊怎么怎么样，当时能吸引我的就是“全中文”，虽然我的英文看VBA还是能对付的，但如果大家跟我一样，很难记住诸如中文上可以联系起来但英文上相差迥异的词，如圆(circle)-圆弧(arc)-圆心(center)-圆环(Torus)-圆柱体(Cylinder)-圆锥体(Cone)-椭圆(Ellipse)-等等，就别说那些八面体和十二面体，二次曲线和三次曲线，小鸡母鸡和公鸡。。。

汉语是表义语言，试图把某些共性的东西抽象成一个字或简短的词，靠组词来表达各种事物，比英文等表音语言更“面向对象”的，所以在记忆和阅读理解上，我们是有很大的好处的，更因为是我们的母语，几乎可以不用写注释就能很快理解。（当然解释解题思路那些还是要注释的，原来在VBA或VB中那些仅翻译而已的解释就可以免了）

说了这些好处，大家就有兴趣试试吧，反正我是接触它后，又重燃编程的兴趣，才有翻译此类型库的冲动的。我相信有很人也会更我一样。

然后，安装我的类型库就更简单了，用易的"类型库或ocx组件->支持库"载入我的npk文件后确定，从启易语言，就完成了安装，再用“支持库配置”将其打勾显示到支持库栏中，就可以用了，（当然你必须安装有autocad2004才能干这些事）

接着，就是干你用VB编外部VBA程序所干的一切，就不费我的口水了。我的例程可以作为启动模板，二次开发方面我并不是高手，在座的都可以写例程的。

et27

 

.支持库 acax16chs

.程序集 窗口程序集1
.程序集变量 临时对象, 对象
.程序集变量 AUTOCAD主程序, acad程序
.程序集变量 活动文档, Acad图形文档
.程序集变量 模型空间, Acad模型空间
.程序集变量 起点, 变体型
.程序集变量 终点, 变体型

.子程序 __启动窗口_创建完毕

_启动窗口.宽度 ＝ 400
_启动窗口.高度 ＝ 400
.如果 (临时对象.获取 (“Autocad.Application.16”) ＝ 真)
    AUTOCAD主程序.获取 (临时对象)
    输出调试文本 (“获取成功”)
.否则
    AUTOCAD主程序.创建 ()
    输出调试文本 (“获取失败需要创建”)

.如果结束
AUTOCAD主程序.窗口状态 ＝ #Ac窗口状态.最大化
AUTOCAD主程序.可视 ＝ 真
活动文档 ＝ AUTOCAD主程序.取活动图形文件 ()
模型空间 ＝ 活动文档.取模型空间 ()
_启动窗口.获取焦点 ()
起点.创建数组 (5, 3)
终点.创建数组 (5, 3)

.子程序 __启动窗口_将被销毁

AUTOCAD主程序.退出AutoCAD ()
AUTOCAD主程序.清除 ()

.子程序 _编辑框1_内容被改变

起点.赋值 (到数值 (编辑框1.内容), 1)

.子程序 _编辑框2_内容被改变

起点.赋值 (到数值 (编辑框2.内容), 2)

.子程序 _编辑框3_内容被改变

终点.赋值 (到数值 (编辑框3.内容), 1)

.子程序 _编辑框4_内容被改变

终点.赋值 (到数值 (编辑框4.内容), 2)

.子程序 _按钮1_被单击
.局部变量 所建直线, Acad直线

所建直线 ＝ 模型空间.创建直线 (起点, 终点)
AUTOCAD主程序.Zoom范围 ()

 

易语言的流程线和框图，和关键词颜色区分，使得可读性又大大提高。

mccad

没看懂。
谁能用这种语言写一个VBA的帮助文件。
可能是先入这主吧。以前我看到有些网友用中文做变量名，我就有意见。如果全变成中文的，就象写诗一样了。
再深入一点，把“=”号也翻成“等于”，“(”也叫左括号了。就成了后现代的散文了。

et27

看不懂大概是因为刚接触易语言，上面安装过程：1.

2.

3.

et27