（承做毕业设计）autolisp visuallisp 价格全国合理
本帖最后由 作者 于 2010-2-23 17:42:31 编辑 <br /><br /> <p>Lisp毕设1群：104768753</p><p>Lisp毕设2群：104769309 </p><p>VLisp 视频教程报名班：17164061</p><p>注：以上QQ群请不要重复添加，群主都是我</p><p></p><p>联系方式: QQ43797405</p><p>EMAIL: <a href="mailto:nonsmall@163.com">nonsmall@163.com</a></p><p>如果你想自己学习来动手编写，我也提供全套的lisp视频教程</p><p>几个人合买一份，少去一次快餐店即可</p> <p>QQ: 444285140</p><p>MSN: <a href="mailto:arxitem@126.com">arxitem@126.com</a></p> 二楼的客户可以留下要求 老猫的能力与信誉是有目共睹的。 <p>谢谢郑总支持!</p><p>一般的二维本科参数化毕计可确保1-3天做好,</p><p>研究生的也可以在线谈.</p><p>下面是部分代码的预览:</p><p></p><p> (If (Not (Tblsearch "layer" "图层2"))(Command ".Layer" "n" "图层2" ""));如果没有图层 "图层2" 则建立<br/> (Command ".layer" "C" 7 "图层2" "");_修改图层 "图层2" 颜色为 7 号色<br/> (Command ".layer" "L" "CONTINUOUS" "图层2" "");_修改图层 "图层2" 线型为 "CONTINUOUS"<br/> (Setvar "clayer" "图层2");_修改图层为 "图层2" 层<br/> (Setvar "cecolor" "256");_修改颜色为 256 号色<br/> (Setvar "celtype" "BYLAYER");_修改线型为 "BYLAYER" <br/> (Setq pt56 pt0);将变量pt0的值赋给pt56<br/> (Setq pt57 pt1);将变量pt1的值赋给pt57<br/> (Setq angle25 (* pi 0.5));设置角度angle25<br/> (Setq dist25 (* dist2 0.2));把长度变量dist2的0.2倍值赋给dist25<br/> (Setq pt58 (Polar pt1 angle25 dist25));在变量pt1点上进行偏移后赋给pt58<br/> (Command ".dimlinear" pt56 pt57 pt58);绘制一条线型标注,标注起点为pt56标注终点为pt57拉伸点为pt58</p> <p>什么烂程序</p><p>我除非万不得已,一般不用command</p><p>command只算是脚本,不能算程序</p> caiqs发表于2009-6-4 6:59:00static/image/common/back.gif什么烂程序我除非万不得已,一般不用commandcommand只算是脚本,不能算程序<p>老兄,说话要考虑清楚,若没有技术含量敢在这里说话么?</p><p><font color="#ff0000">上面的代码(包括注释)完全由我的开发工具全自动生成</font></p><p>现在我可以实现简单的参数化设计从DCL对话框设计到LIsp的绘图过程</p><p>95%以上完全由开发工具自动编写代码.(我几分钟可以做出你几小时的代码量)</p><p>另外:毕业设计一般都是简单的,所以用command</p><p>高级vlisp开发我也同样可以接单.</p> 如果连lisp也算是“高级技术”的话，洗洗睡吧，可笑而且可怜的井底之蛙 真不明白为什么国人都如此浮躁，不沉下心来研究技术，拿点皮毛的劣等工具和所谓的“高级技术”就想到处骗钱，shameful <p>我暂时认为1楼和5楼是同一位,但我不能确认</p><p>我对前面的争论不发表意见,对于楼主所说的"代码自动生成"(上面的代码(包括注释)完全由我的开发工具全自动生成)我是不会的,我感觉是脑袋可以批量生产了,若真能如此,技术前面加任何定语都不为过.</p><p>我比较感兴趣的是楼主所说的Lisp实现多线程,我去看了一下(没有测试,我应当测试不了),下面代码(来自nonsmall.ys168.com)应该是楼主实现多线程的关键代码,但我看见主线程一直停留在一个while循环里面,若是这样,当谈不上什么多线程(我的理解,没有测试的理解).</p><p>(defun Form1_load( / dcl_id Dialog_Return key keys Dcl_File)<br/> (vl-load-com)<br/> (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl))));对话框加载<br/> (vl-file-delete Dcl_File);加载后删除DCL文件<br/> (setq Dialog_Return 2)<br/> (while (> Dialog_Return 1) ;循环控制对话框是否结束<br/> (new_dialog "Form1" dcl_id);建立窗体<br/>;-->-->-对话框初始化->-->--<br/> (setq keys '("test1" "test2" "Command1" "accept"));列表全部控件名称<br/> (foreach key keys;全部控件的初始化<br/> (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容<br/> (action_tile key "(Action_Form1_Keys $key $value)");点击动作<br/> )<br/>;--<--<-对话框初始化完成-<--<--<br/> (setq Dialog_Return (start_dialog));开启对话框(用户可见)<br/> )<br/> (unload_dialog dcl_id);退出时卸载对话框<br/> (princ);防止函数回显<br/>)</p><p>另外楼主上面有贴出代码,楼主贴出来招商引资的,当属楼主精品,精品当不怕别人说三道四,我想说三道四一下<br/>1(If (Not (Tblsearch "layer" "图层2"))(Command ".Layer" "n" "图层2" ""));如果没有图层 "图层2" 则建立<br/>2(Command ".layer" "C" 7 "图层2" "");_修改图层 "图层2" 颜色为 7 号色<br/>3(Command ".layer" "L" "CONTINUOUS" "图层2" "");_修改图层 "图层2" 线型为 "CONTINUOUS"<br/>说三道四:2和3句代码当可以在1句里面一起实现<br/>4(Setvar "clayer" "图层2");_修改图层为 "图层2" 层<br/>5(Setvar "cecolor" "256");_修改颜色为 256 号色<br/>6(Setvar "celtype" "BYLAYER");_修改线型为 "BYLAYER" <br/>说三道四:4句,若当前层已经是"图层2",何必再设置一次?5,6句同理<br/>7(Setq pt56 pt0);将变量pt0的值赋给pt56<br/>8(Setq pt57 pt1);将变量pt1的值赋给pt57<br/>说三道四:出现在精品代码的行列里面,实在看不出这两句代码有什么用<br/>9(Setq angle25 (* pi 0.5));设置角度angle25<br/>10(Setq dist25 (* dist2 0.2));把长度变量dist2的0.2倍值赋给dist25<br/>11(Setq pt58 (Polar pt1 angle25 dist25));在变量pt1点上进行偏移后赋给pt58<br/>12(Command ".dimlinear" pt56 pt57 pt58);绘制一条线型标注,标注起点为pt56标注终点为pt57拉伸点为pt58<br/>说三道四:假如pt56 pt57 pt58附近有别的点,而恰好系统的捕捉功能是打开的,结果可能不是预期的那样<br/>我不认为上面的代码是楼主自己写的,若自动生成的是这样子,何必呢?大炼钢贴(铁)?</p><p>再:本人不对使用Command发表意见,本人是希望能不用就不用Command,但在Auto Lisp里面Command不失为一个简便的方法</p><p>最后:废话多多,有怪莫怪!</p>
页:
[1]
2