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

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

本帖最后由作者于 2007-7-7 15:29:34 编辑

后来我看到大家仍然不懈的在研究这个问题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 · 发表于 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 运行角钢命令，出现如下错误：

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

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

命令是什么?!

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

本帖最后由作者于 2007-6-13 11:27:14 编辑

命令:角铁

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

即将推出,敬请期待.

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

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

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

本帖最后由作者于 2007-6-18 11:53:46 编辑

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

命令：角铁、AngSteel

槽钢、channel

工字钢、I-Steel

1.支持中英文命令；

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

3,支持不等边角铁；

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

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

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

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

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

用什么命令打开？

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

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

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

在命名行输入

命令: 角铁

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

2006不能运行……

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

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

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评

最新版本

本帖子中包含更多资源