et27 发表于 2005-7-18 12:22:00

用中文玩转AUTOCAD2004二次开发

<P>潜水员的巨献:</P>
<P><FONT style="BACKGROUND-COLOR: #eeeeee"><FONT color=#72c43c><FONT size=2>&nbsp;用中文玩转AUTOCAD2004二次开发</FONT><BR></FONT></FONT><A href="http://www.dywt.com.cn/vbs/dispbbs.asp?boardID=107&amp;ID=59495&amp;page=1" target="_blank" ><FONT color=#000000>dispbbs.asp?boardID=107&amp;ID=59495&amp;page=1</FONT></A> </P>
<P></P>
<P>要求置顶!欢迎有喜欢折腾autocad的人士参与讨论。</P>

ntchjie 发表于 2005-7-18 19:10:00

<P>这个东东有点意思。楼主能否贴上来,我们下不到。</P>

et27 发表于 2005-7-18 20:48:00

到<A href="http://et27.ys168.com/" target="_blank" >http://et27.ys168.com</A> 下载

mccad 发表于 2005-7-18 22:03:00

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

翔羽 发表于 2005-7-18 22:10:00

<P>好东西,但不知道怎么用阿~~</P>

et27 发表于 2005-7-20 00:53:00

<P>好吧,先介绍一下,要用我的这些东西,首先要到<A href="http://www.dywt.com.cn/" target="_blank" >http://www.dywt.com.cn/</A>&nbsp;下载一个易语言试用版安装一下,易语言吗,官方说的啊怎么怎么样,当时能吸引我的就是“全中文”,虽然我的英文看VBA还是能对付的,但如果大家跟我一样,很难记住诸如中文上可以联系起来但英文上相差迥异的词,如圆(circle)-圆弧(arc)-圆心(center)-圆环(Torus)-圆柱体(Cylinder)-圆锥体(Cone)-椭圆(Ellipse)-等等,就别说那些八面体和十二面体,二次曲线和三次曲线,小鸡母鸡和公鸡。。。</P>
<P>汉语是表义语言,试图把某些共性的东西抽象成一个字或简短的词,靠组词来表达各种事物,比英文等表音语言更“面向对象”的,所以在记忆和阅读理解上,我们是有很大的好处的,更因为是我们的母语,几乎可以不用写注释就能很快理解。(当然解释解题思路那些还是要注释的,原来在VBA或VB中那些仅翻译而已的解释就可以免了)</P>
<P>说了这些好处,大家就有兴趣试试吧,反正我是接触它后,又重燃编程的兴趣,才有翻译此类型库的冲动的。我相信有很人也会更我一样。</P>
<P>然后,安装我的类型库就更简单了,用易的"类型库或ocx组件-&gt;支持库"载入我的npk文件后确定,从启易语言,就完成了安装,再用“支持库配置”将其打勾显示到支持库栏中,就可以用了,(当然你必须安装有autocad2004才能干这些事)</P>
<P>接着,就是干你用VB编外部VBA程序所干的一切,就不费我的口水了。我的例程可以作为启动模板,二次开发方面我并不是高手,在座的都可以写例程的。</P>

et27 发表于 2005-7-20 18:20:00

<P>&nbsp;</P>
<P>.支持库 acax16chs</P>
<P>.程序集 窗口程序集1<BR>.程序集变量 临时对象, 对象<BR>.程序集变量 AUTOCAD主程序, acad程序<BR>.程序集变量 活动文档, Acad图形文档<BR>.程序集变量 模型空间, Acad模型空间<BR>.程序集变量 起点, 变体型<BR>.程序集变量 终点, 变体型</P>
<P>.子程序 __启动窗口_创建完毕</P>
<P>_启动窗口.宽度 = 400<BR>_启动窗口.高度 = 400<BR>.如果 (临时对象.获取 (“Autocad.Application.16”) = 真)<BR>&nbsp;&nbsp;&nbsp; AUTOCAD主程序.获取 (临时对象)<BR>&nbsp;&nbsp;&nbsp; 输出调试文本 (“获取成功”)<BR>.否则<BR>&nbsp;&nbsp;&nbsp; AUTOCAD主程序.创建 ()<BR>&nbsp;&nbsp;&nbsp; 输出调试文本 (“获取失败需要创建”)</P>
<P>.如果结束<BR>AUTOCAD主程序.窗口状态 = #Ac窗口状态.最大化<BR>AUTOCAD主程序.可视 = 真<BR>活动文档 = AUTOCAD主程序.取活动图形文件 ()<BR>模型空间 = 活动文档.取模型空间 ()<BR>_启动窗口.获取焦点 ()<BR>起点.创建数组 (5, 3)<BR>终点.创建数组 (5, 3)</P>
<P>.子程序 __启动窗口_将被销毁</P>
<P>AUTOCAD主程序.退出AutoCAD ()<BR>AUTOCAD主程序.清除 ()</P>
<P>.子程序 _编辑框1_内容被改变</P>
<P>起点.赋值 (到数值 (编辑框1.内容), 1)</P>
<P>.子程序 _编辑框2_内容被改变</P>
<P>起点.赋值 (到数值 (编辑框2.内容), 2)</P>
<P>.子程序 _编辑框3_内容被改变</P>
<P>终点.赋值 (到数值 (编辑框3.内容), 1)</P>
<P>.子程序 _编辑框4_内容被改变</P>
<P>终点.赋值 (到数值 (编辑框4.内容), 2)</P>
<P>.子程序 _按钮1_被单击<BR>.局部变量 所建直线, Acad直线</P>
<P><BR>所建直线 = 模型空间.创建直线 (起点, 终点)<BR>AUTOCAD主程序.Zoom范围 ()<BR></P>
<P>&nbsp;</P>
<P>易语言的流程线和框图,和关键词颜色区分,使得可读性又大大提高。</P>

mccad 发表于 2005-7-20 22:15:00

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

et27 发表于 2005-7-21 13:36:00

<P>看不懂大概是因为刚接触易语言,上面安装过程:1.</P>
<P></P>
<P>2.</P>
<P></P>
<P>3.</P>
<P></P>

et27 发表于 2005-7-21 13:40:00

<P></P>
<P>&nbsp;</P>
页: [1] 2 3 4
查看完整版本: 用中文玩转AUTOCAD2004二次开发