发个字段功能的lisp

freeok · 发表于 2016-11-5 21:29:39

看着挺强大的，但是好像有点不懂。。。

davide888 · 发表于 2017-8-17 13:05:20

用不了

fangmin723 · 发表于 2017-8-18 08:31:25

本帖最后由 fangmin723 于 2017-8-18 08:34 编辑

请补齐函数：(err_go) (err_EN) (P_go) (P_EN) (X_填材料)

sws · 发表于 2020-6-22 02:50:24

TY ; 错误: no function definition: ERR_GO

zhangcan0515 · 发表于 2020-6-25 16:07:17

学习了谢谢

生活丨好无奈 · 发表于 2020-6-29 22:36:14

实用的程序！！！

zhangcan0515 · 发表于 2022-9-10 15:27:23

: ERR_GO 楼主少了一个自定义函数

jkop · 发表于 2023-8-9 10:08:17

TY ; 错误: no function definition: ERR_GO

求解

tranque · 发表于 2025-6-5 10:29:48

本帖最后由 tranque 于 2025-6-5 10:31 编辑

2025-06-05前来考古
看楼主的演示应该是个好插件，但是评论区很多都在说运行后，TY ; 错误: no function definition: ERR_GO
实在太可惜这样的插件不被大家用到，被埋没得话还是太可惜，所以用元宝AI对插件进行了一个修复，目前测试了插件不在命令行报错了，但是没弄懂具体的使用场景，麻烦有懂得坛友告知我具体使用场景

AI修改如下

移除单项材料函数及其在字段综合中的选项。
在字段综合函数中，去掉err_go和err_EN的调用。
添加(vl-load-com)在代码开头，确保ActiveX函数可用。
由于单项材料被移除，我们将选项5从菜单中移除。

注意：由于原代码较长，我们只修改有问题的部分。
修改后的字段综合函数：
(defun 字段综合 (/ aa)
(initget "1 2 3 4")
(setq aa (getkword "[1单个 /2标高 /3图框 /4视口比例]"))
(cond
((= aa "4") (比例_内容))
((= aa "3") (图框属性继承))
((= aa "2") (标高继承))
((= aa "1") (单个))
)
(princ)
)
同时，我们完全移除单项材料函数。
另外，我们注意到在标高继承函数中，调用了(对象id ent_002)，而对象id函数会设置全局变量nna，这可能会影响其他函数。但由于该函数只在局部使用，且原代码就是这样设计的，我们保留。
最后，我们添加(vl-load-com)在代码最前面。

Andy_668 · 发表于 2025-6-5 13:24:20

先做个记号，节后再来学习。

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

发个字段功能的lisp

本帖子中包含更多资源