fawn_lgc 发表于 2007-3-6 10:01:00

[原创]最新版本型钢命令,支持系统还原,使用实时拖动技术

本帖最后由 作者 于 2007-7-7 15:29:34 编辑 <br /><br /> <p>我曾经发表过实时拖动的讨论（<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=3189&amp;replyID=13540&amp;skin=1"><font color="#000000" size="+0">lisp如何实现实时动态显示</font></a>）</p><p>后来我看到大家仍然不懈的在研究这个问题<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=19401">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=19401</a></p><p>吐血送上我开发的角铁程序,使用了实时拖动技术。</p><p></p><p><font color="#ff0000"><strong>最新版本在5楼</strong></font></p><p>使用&nbsp;insert 实现实时拖动，相关程序如下：</p><p>&nbsp;(princ "插入点：")<br/>&nbsp; (if(vl-cmdf "_.insert" AngSteelName "s" 1 "r" 0 pause)<br/>&nbsp;&nbsp;&nbsp; (entdel (entlast));;删除对象<br/>&nbsp;&nbsp;&nbsp; (quit)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (setq pt (getvar "lastpoint"))<br/>&nbsp; (princ "\n旋转角度&lt;0&gt;: ")<br/>&nbsp; (vl-cmdf "_.insert" AngSteelName&nbsp; pt "" ""&nbsp; pause)</p><p>但实时拖动的效果函数不理想。</p><p>插入点：按右键会出现下列问题：</p><p>需要点或选项关键字。<br/>指定插入点或 [比例(S)/X/Y/Z/旋转(R)/预览比例(PS)/PX/PY/PZ/预览旋转(PR)]:<br/>旋转角度&lt;0&gt;:</p><p>为了保护我的劳动成果，程序其它部分不能公开请大家谅解。</p>

liunian0524 发表于 2022-10-10 09:59:32

角铁,槽钢,工字钢 程序已加载,小鹿软件"角铁,槽钢,工字钢 程序已加载,小鹿软件"
命令: 角铁
FAWN错误: 参数类型错误: stringp nil
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)。

fundoll 发表于 2022-11-19 10:20:56

cad2008 运行角钢命令，出现如下错误：:L
no function definition: FAWN_ASSOC_ADD

e2002 发表于 2022-11-21 09:23:17

角钢型号是标准件，弄个参数化动态块即可。

zhong_4436 发表于 2007-3-6 15:05:00

谢谢LZ分享，下了试试

nts888 发表于 2007-6-12 08:59:00

<p>然后可直接在命令行输入相关命令运行</p><p>命令是什么?!</p>

fawn_lgc 发表于 2007-6-13 10:53:00

本帖最后由 作者 于 2007-6-13 11:27:14 编辑 <br /><br /> <p>命令:角铁</p><p>随便说一句,改进版本正在开发中,支持槽钢,工字钢,支持自定义型号,支持快速插入等等</p><p>即将推出,敬请期待.</p>

tcsl9621 发表于 2007-6-13 23:02:00

好的，开始编程都是编的这类东东。希望努力下去。开发出有特色的好东东。我开始编LISP程序是绘制标准螺栓的。

fawn_lgc 发表于 2007-6-18 11:45:00

最新版本

本帖最后由 作者 于 2007-6-18 11:53:46 编辑 <br /><br /> <p>最新版本支持角铁、槽钢、工字钢</p><p>命令：角铁、AngSteel</p><p>槽钢、channel</p><p>工字钢、I-Steel</p><p>1.支持中英文命令；</p><p>2.支持自定义角铁参数（打开*_dat.lsp进行编辑）；</p><p>3,支持不等边角铁；</p><p>4,默认参数记忆功能，能记住每种型号的角铁上次使用的壁厚；</p><p>5,杜绝使用对话框，操作更快捷，执行更迅速；</p><p>6.支持快速插入，最快一键完成操作；</p><p>7,系统还原功能，当数据文件（*_dat.lsp 和*.dat）损坏时,只需将其删除,即可恢复出厂参数。</p><p></p>

yzwanfu 发表于 2007-6-20 11:43:00

用什么命令打开？

fawn 发表于 2007-6-30 12:32:00

<p>请使用WinRAR软件打开"<a href="http://www.mjtd.com/bbs/viewFile.asp?Boardid=3&amp;ID=35404" target="_blank"><font color="#000000">角铁.rar</font></a>"压缩文件,所有文件放到到AutoCAD支持路径.</p><p>通过工具菜单-&gt;加载应用程序 可加载"<a href="http://www.mjtd.com/bbs/viewFile.asp?Boardid=3&amp;ID=33081" target="_blank"><font color="#000000">角铁.fas</font></a>"程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将"<a href="http://www.mjtd.com/bbs/viewFile.asp?Boardid=3&amp;ID=33081" target="_blank"><font color="#000000">角铁.fas</font></a>"文件放在启动组中。</p><p>在命名行输入</p><p>命令: 角铁</p>

xotoo 发表于 2007-12-31 12:51:00

2006不能运行……

mice6672 发表于 2008-6-13 19:38:00

<p>支持楼主，非常感谢，动态插入这个理念不错，在lisp里实现感觉很难，还没这样做过</p>
页: [1] 2
查看完整版本: [原创]最新版本型钢命令,支持系统还原,使用实时拖动技术