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

shenhung 发表于 2022-5-5 10:24:16

尘缘一生 发表于 2022-5-3 19:13
郎大师这个程序，本坛应该早引起重视。




能自已建立資料庫是最好的.

sunfj 发表于 2022-5-7 21:17:00

本帖最后由 sunfj 于 2022-6-12 22:13 编辑

。。。。，。。。。。。。。。。。。。。

greatspark 发表于 2022-5-12 08:28:35

强大，膜拜中

小毛草 发表于 2022-5-12 13:37:48

谢谢了，大师

龙城飞将36 发表于 2022-5-13 17:29:35

填充部分不显示，填充的代码是哪一段？

guankuiwu 发表于 2022-5-13 18:38:57

很好！多谢分享

e2002 发表于 2022-5-14 09:04:38

机械专业的大佬们，把这些标准库做成动态块就最好了...

elitefish 发表于 2022-5-16 15:23:00

非常棒的程序，我修改了下界面布局，列表可以多显示些内容

程序的第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)

sunfj 发表于 2022-5-16 22:20:17

本帖最后由 sunfj 于 2022-6-12 22:14 编辑

。。。。。。。。。。。。。。。。。。。。。

20060510412 发表于 2022-5-16 23:50:05

谢谢楼主分享，楼主是个热心人！

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