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

fawn_lgc

我曾经发表过实时拖动的讨论（lisp如何实现实时动态显示）

后来我看到大家仍然不懈的在研究这个问题http://bbs.mjtd.com/forum.php?mod=viewthread&tid=19401

吐血送上我开发的角铁程序,使用了实时拖动技术。

最新版本在5楼

使用 insert 实现实时拖动，相关程序如下：

 (princ "插入点：")
  (if(vl-cmdf "_.insert" AngSteelName "s" 1 "r" 0 pause)
    (entdel (entlast));;删除对象
    (quit)
    )
  (setq pt (getvar "lastpoint"))
  (princ "\n旋转角度<0>: ")
  (vl-cmdf "_.insert" AngSteelName  pt "" ""  pause)

但实时拖动的效果函数不理想。

插入点：按右键会出现下列问题：

需要点或选项关键字。
指定插入点或 [比例(S)/X/Y/Z/旋转(R)/预览比例(PS)/PX/PY/PZ/预览旋转(PR)]:
旋转角度<0>:

为了保护我的劳动成果，程序其它部分不能公开请大家谅解。

liunian0524

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

fundoll

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

e2002

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

zhong_4436

谢谢LZ分享，下了试试

nts888

然后可直接在命令行输入相关命令运行

命令是什么?!

fawn_lgc

命令:角铁

随便说一句,改进版本正在开发中,支持槽钢,工字钢,支持自定义型号,支持快速插入等等

即将推出,敬请期待.

tcsl9621

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

fawn_lgc

最新版本支持角铁、槽钢、工字钢

命令：角铁、AngSteel

槽钢、channel

工字钢、I-Steel

1.支持中英文命令；

2.支持自定义角铁参数（打开*_dat.lsp进行编辑）；

3,支持不等边角铁；

4,默认参数记忆功能，能记住每种型号的角铁上次使用的壁厚；

5,杜绝使用对话框，操作更快捷，执行更迅速；

6.支持快速插入，最快一键完成操作；

7,系统还原功能，当数据文件（*_dat.lsp 和*.dat）损坏时,只需将其删除,即可恢复出厂参数。

yzwanfu

用什么命令打开？

fawn

请使用WinRAR软件打开"角铁.rar"压缩文件,所有文件放到到AutoCAD支持路径.

通过工具菜单->加载应用程序 可加载"角铁.fas"程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将"角铁.fas"文件放在启动组中。

在命名行输入

命令: 角铁

xotoo

2006不能运行……

mice6672

支持楼主，非常感谢，动态插入这个理念不错，在lisp里实现感觉很难，还没这样做过