ld_200 发表于 2004-5-9 18:45:00

支持!!

Irvin 发表于 2004-5-10 10:31:00

赞成

蟹少 发表于 2004-5-13 18:46:00

好,支持

hpy 发表于 2004-5-14 20:50:00

好文章!谢谢!

xtaje 发表于 2004-5-14 23:15:00

说的太好了.这为我今后的学习有很大的帮助啊

狮狮 发表于 2004-5-16 15:56:00

我在1998年之前是没有接触过CAD的,只是听说过.<BR>在97年那时, 我买了当时流行的小霸王学习机. 当时不带软驱的. 当时就学习了五笔, 及G-Basic.<BR>后来买了Logo语言学习卡, 在小霸王上学了一阵子的Logo语言. 感觉它能够画图. 可以编程序,按程序就<BR>可以重复性的画图了, 当时也就试验性的画画而已, 也没有什么实用价值.<BR>在98年夏天,就用工资所积累的存款买了一台K6-266电脑,那时,我是一名普通的工人.       因为知道CAD这个


名号, 所以就装了CAD-R14的英文版.<BR>想也认识一下别人口中经常提到的CAD. 当时也不会用, 看着黑黑的屏幕, 我是不知道我要干吗. 后来买


了相关的学习书, 照着书一点一点的<BR>学, 才渐渐地掌握了基本的知识.       只是这个书没有介绍更多的建模知识, 只是介绍了用片面的方式建模


,后来我知道,这还不够,因为它不如实体造形好修改,特别是布尔运算.<BR>而且这本书根本没有提及到LISP语言. 我想当时大概没有多少人懂这个东西吧.<BR>2000年我失业了. 随后的两年没有工作, 待在家里. 在这两年里, 我学了一点Qbasic,及相近的VB, 再又


学了点C语言. 特别是C, 为我学奇怪的LISP打下了基础.<BR>两年后, 通过家人认识了在装饰行业的设计师.       他就用CAD制图的. 这样我就在一家装饰公司里做了一


名绘图员 . 那时, 学CAD就有了目的. 画图的技能是逐步地有了提高.<BR>也是看到来实习的大学生用键盘画图, 我也是按这个方式学会了. 然后在闲时就想了解CAD. 通过帮助文


件, 才知道CAD都配有LISP语言. 因为是英文的, 我就找了CAD-R14的中文版装了一下,<BR>感觉它的稳定性不太好, 时不时的会突然崩掉. 我就把它删了. 当然, 我把中文的帮助文件给留了下来.<BR>照着学LISP. 通过学习, 我是有了一些想法的. 这个中文帮助真的很好, 比英文的帮助上手容易多了.


所以我进一步想, 能不能把国外的优秀的软件的帮助文件也都翻译过来有多好, 这绝不比国家<BR>的863及任何的科技进步的计划都差! 要知道,这相当于是在培养潜在的人才啊. 我的英文确是差了点,


所以我只看中文的帮助.这样想来, 那以英文为主的西方人水平又比我们高了不知有多少啊. (有时我在


想, 不知哪个时候,我们看西方人, 就好比看外星人一样, 从头到脚地不懂了,因为他们太先进了!)<BR>后来,临时性的进入了一家建筑设计院的绘图部. 那时前年的冬天.       他们也用CAD , 也是R14版本的.<BR>知道了他们使用天正的外挂软件. 看着他们做的图,我了解到像门\窗等常用的图形是用块的形式插入的. <BR>这使我有了想法,编程实现这种做法的动力. 这样, 编了专门插入块的Sub, 可在插入时缩放的Sub,可只


限定X轴或Y轴缩放插入的Sub, 以及用鼠标给定三个点画2D门符号的Sub. 做图时确实提高了效率. 插入


块时, 就像是拼音输入法一法方便. 离开设计院后, 仍时不时地编一些程序. 编好了就合并在一起. 再


重新编译一下.这样,我的程序也是多了起来. 我总结了一下, 我所编的不过就是利用现成函数,及现成的


CAD命令,把它们有机的结合起来而已. 就看你想法多不多罢了. <BR>后来,用上了CAD2002. 发现它可以更好地保护我的LISP. 所以我就不用老版本了. 因为听说园方的渲染


软件不错,就安装了园方的8.0 , 其实后来才发现, 它还是不如LightScape出的效果好.在使用园方期间,


我注意到它给CAD带来的变化. 首先是4个视图的绘图界面给了我很深的印象. 还有视图的前裁与后裁,使


视图只关注图形的限定的的空间. 通过查找CAD的帮助, 了解到前裁与后裁就能用DV来实现. 因此我专门


针对此命令编了一个Sub, 这样我在做立体图的时候, 效果跟园方的一样. 还有四个视图, 我是在大量地<BR>了解视口的数据组合后才找到了编程的突破点, 也已经实现了. 还有园方的投影定位, 我也编出相应的


Sub实现了(园方只有Z轴向定位, 而我一并有了X轴向,Y轴向的投影定位). 这些对我做家装的立体效果图


很有帮助. 真的感谢园方, 没有它, 我就不会有触类旁通的想法,虽然我早已经不用园方.<BR>前面说到Logo,我觉得CAD就相当于Logo, 也能编程序, 也能画图. 不过实现的方法不一样罢了. CAD画图


方便,主要是用了鼠标, 还有视图可以平移, 几乎没有绘图的界线. 而Logo, 就差得多了. 想当时我在


Logo里照着书编了一段程序, 早在一年半前我把它用Lisp编好了. 现拿出来分享与大家.


        (DEFUN c:abc (/ p1 p2 dist ang delta lenth lenthdelta)<BR>                       <BR>                       (PRINC "请输入角度&lt;0 - 360&gt;: ")<BR>                       (SETQ delta (GETREAL)<BR>                                                                       ang               0<BR>                       ) <BR>                       (PRINC "\n请输入终止长度 ")<BR>                       (SETQ lenth (GETINT))<BR>                       (PRINC "\n请输入长度迭增值: ")<BR>                       (SETQ lenthdelta (GETREAL))<BR>                       (PRINC "\n请输入起始点位置")<BR>                       (SETQ p1 (GETPOINT))<BR>                       (SETQ dist 0)<BR>                       (WHILE (&lt; dist lenth)<BR>                                       (SETQ p2 (user_pxy p1 ang dist 0))<BR>                                       (ENTMAKE (LIST (CONS 0 "line") (CONS 10 p1) (CONS 11 p2)))<BR>                                       (SETQ p1 p2)<BR>                                       (SETQ ang (+ ang delta))<BR>                                       (SETQ dist (+ dist lenthdelta))<BR>                       ) ;wend<BR>                       <BR>       );endfun<BR>        (DEFUN user_pxy (p1 ang dist distz / px1 py1 pz1 px2 py2 pz2) <BR>                       (SETQ px1 (CAR p1)<BR>                                                                       py1 (CADR p1)<BR>                                                                       pz1 (CADDR p1)<BR>                                                                       px2 (+ px1 (* (COS (* (/ PI 180.0) ang)) dist))<BR>                                                                       py2 (+ py1 (* (SIN (* (/ PI 180.0) ang)) dist))<BR>                                                                       pz2 (+ pz1 distz 0.0)<BR>                       ) ;_ End_setq<BR>                       (LIST px2 py2 pz2)<BR>       );endfun


例1)       abc <BR>                                       角度: 121       <BR>       终止长度: 600 <BR>长度迭增值: 3 <BR>用鼠标定一点:


例2)       abc <BR>                                       角度: 90<BR>       终止长度: 600 <BR>长度迭增值: 5<BR>用鼠标定一点:

agui 发表于 2004-5-17 15:03:00

顶!

蟹少 发表于 2004-5-18 12:08:00

呵呵,看过

Keny 发表于 2004-5-20 10:25:00

支持!这对刚学得我很有帮助哦!


谢谢搂住!

kuhesang 发表于 2004-5-22 09:31:00

hao
页: 1 2 [3] 4 5 6 7 8 9 10 11
查看完整版本: AutoCAD学习心得