社区 › AutoLISP/Visual LISP 编程技术 › 画紧固件和型钢的参数化图库（更新全部采用entmake）

pzweng 发表于 2022-5-17 16:12:40

elitefish 发表于 2022-5-16 15:23
非常棒的程序，我修改了下界面布局，列表可以多显示些内容

程序的第1992行起

能上一份完整的吗

pzweng 发表于 2022-5-17 16:35:40

这工具让我震惊了

huxu823 发表于 2022-5-26 13:32:58

elitefish 发表于 2022-5-16 15:23
非常棒的程序，我修改了下界面布局，列表可以多显示些内容

程序的第1992行起

改了你的这部分代码后，程序用不了了，提示参数太多:L

at1636 发表于 2022-5-26 16:45:26

大佬牛批！！！！

duotu007 发表于 2022-5-26 18:07:01

elitefish 发表于 2022-5-16 15:23
非常棒的程序，我修改了下界面布局，列表可以多显示些内容

程序的第1992行起

(setq dclname (vl-filename-mktemp "TUKU.dcl")
file (open dclname "w")
)
(write-line "dcl_settings:default_dcl_settings{audit_level=3;}" file)
(write-line "mbt:button{horizontal_margin=none;vertical_margin=none;}" file)
(write-line "mit:image_button{horizontal_margin=none;vertical_margin=none;}" file)
(write-line "lbt:list_box{horizontal_margin=none;vertical_margin=none;}" file)
(write-line "TUKU2:dialog{label=\"参数化图库V1.0by:langjs\";" file)
(write-line ":row{" file)
(write-line ":lbt{key=\"e01\";width=40;fixed_width=true;}" file)
(write-line ":column{" file)
(write-line ":lbt{key=\"e02\";height=30;fixed_height=true;}" file)
(write-line ":row{" file)
(write-line ":lbt{key=\"e03\";width=45;height=18;fixed_width=true;fixed_height=true;}" file)
(write-line ":mit{key=\"e04\";width=45;height=17;fixed_width=true;fixed_height=true;}}}}" file)
(write-line ":row{spacer_1;ok_cancel;}}" file)
(close file)

补上几个斜杠，可以运行了。

seamopan 发表于 2022-5-29 17:35:40

大佬标准件程序中能加入这个标准件吗？
“十字槽凹穴六角头螺栓弹簧垫圈和平垫圈组合件（GB 9074.13）”

XPG 发表于 2022-5-30 14:14:08

咋用啊 ？输入TUKU 后选中没反应

kis_mj 发表于 2022-6-1 09:19:48

谢谢大师的分享.
win10 ACAD2022 加载后
命令: TUKU
显示正常，选择各项参数后提示
超出关联图元 (块定义) -- 需要修复

cxjcqu 发表于 2022-6-1 12:17:17

优秀

时光飞逝 发表于 2022-6-11 18:44:58

非常有用，谢谢大佬，就是法兰少了一点，不过研究研究应该可以自己加

查看完整版本: 画紧固件和型钢的参数化图库（更新全部采用entmake）