[VBA程序]： 用中文玩转AUTOCAD2004二次开发

et27

潜水员的巨献：

用中文玩转AUTOCAD2004二次开发
http://www.dywt.com.cn/vbs/dispb ... ID=59495&page=1

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

gyl

什么意思?看不懂!

et27

如果你不想记那些八面体和十二面体的不同英文，而用更“面向对象”化的汉语来记忆的话，你应该去了解一下用汉语编程。

上面是将vba的类型库翻译成中文的封包文件，安装后，就能全中文地做ＣＡＤ　ｖｂａ能做的事。

如过不想注册哪个论坛，到http://et27.ys168.com 下载

易语言试用版，可以到www.dywt.com.cn下载。


全中文程序：

.支持库 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范围 ()

mikewolf2k

只不过相当于将关键字修改了一下，并没有什么新意。而且～中文比英文难打多了～～～

et27

mikewolf2k请了解后再发言，没测试就发言，不是很严谨的讨论者。易语言ide提供了首拼录入输入法，命令录入异常快速的，这一点疑虑，倒是没有必要，如上面的例程：

AUTOCAD主程序.获取 (临时对象)
前面已经定义好"AUTOCAD主程序"变量了，录入时仅需输入a即可看到"AUTOCAD主程序"，补齐变量名也就一个空格，然后录入“.”即可列出“Acad程序”对象的方法和属性，录入"hq()"就可以得到“获取（）”，零时对象可以是“lsdx”甚至“l”就能得到。

同样的内容，在VBA中
Dim autocad As Object
autocad.GetObject
你看看autocad.GetObject要敲多少键？自己试试。

即便是全文录入，到今天还有人所录入中文慢过英文，大概是很难理解的。

再说新意，编程工具，都是工具，不是广告，要新意。要不然大家还要用0101来编，因为汇编相当于把机器语言的关键字修改了一下，C语言仅是把汇编的关键字改一下。。。而已。

虽然我的英文看VBA还是能对付的，但如果大家跟我一样，很难记住诸如中文上可以联系起来但英文上相差迥异的词，如圆(circle)-圆弧(arc)-圆心(center)-圆环(Torus)-圆柱体(Cylinder)-圆锥体(Cone)-椭圆(Ellipse)-等等，就别说那些八面体和十二面体，二次曲线和三次曲线，小鸡母鸡和公鸡。。。

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

liuxg2005

好。
不过我试了很多次都打不开那个网页啊

它山之石

虽然俺对VBA及E语言没有多少研究。但支持一下。

fylinwater

初步了解好像E语言还不是很成熟，MDI窗口都不支持，数据库支持不是很好，  多个独立编译程序同时启动时出错

唐僧肉

hehe，搞成语音输入就爽了，推荐的哥们好好努力吧

zxli2004

我还是觉得原始的VB好一些，不过这个也挺的新意的。

yansike

没有必要这样吧，发现有汉语来表达程序，总觉得怪怪的！！！

et27

是的，是有点怪怪的，就象当年：

清兵来了，要削发，光这额头是怪怪的，习惯了就好
后来孙大炮来的，要剪辫子，那也怪怪的，习惯了就好

汉语用在编程，是怪怪的，习惯了就好，难到你天天用刀叉吃饭？用手抓饭？大概用筷子多吧。汉语就是我们的筷子。

xunix

是不是离开了这个环境就不能用了？？？
哪咋办？？？重写~~~~~~~~~~~~还是算了
不过想法挺好！

et27

离开了汽车就不能用你原来的牛车，或者你的11路自行车，那咋办？如果你觉得赶牛车更便宜和方便而且有时还快过汽车，你会不会仍然升级到开汽车？

shpdzzs

挺有创意的，支持一下，现在虽然还不习惯，说不定以后会给大家带来很大的方便的