画紧固件和型钢的参数化图库（更新全部采用entmake）
本帖最后由 langjs 于 2022-6-1 20:20 编辑论坛里找了一些画螺栓螺母的程序，感觉不是太好用，于是自己花了一点时间做了一个。目前可以画下面的这些。
2022.06.01更新一下库
一、紧固件库六角头螺栓 全螺纹 (GB/T 5783六角头螺栓 半螺纹 (GB/T 5782)内六角圆柱头螺钉(GB/T 70.1十字槽沉头螺钉 (GB/T 819.1)十字槽盘头螺钉 (GB/T 818)开槽盘头螺钉 (GB/T 67)十字槽盘头自攻锁紧螺钉(GB/T6560)小半圆头低方颈螺栓(GB/T801)吊环螺钉 (GB/T 825)1型六角螺母 (GB/T 6170)六角薄螺母 (GB/T 6172.1)1型六角锁紧螺母 (GB/T 889.1)DIN尼龙锁紧螺母 (DIN 985)平头六角铆螺母 (GB/T 17880.5)平垫圈 (GB/T 97.1)大垫圈 (GB/T 96.1)标准型弹簧垫圈 (GB/T 93)手工焊用焊接螺柱(GB/T 902.1)等长双头螺柱B级(GB/T 901)
二、型钢库槽钢 (GB/T 706)工字钢 (GB/T 706)等边角钢 (GB/T 706)不等边角钢 (GB/T 706)H型钢 HW宽翼缘型(GB/T 11263)H型钢 HM中翼缘型(GB/T 11263)H型钢 HN窄翼缘型(GB/T 11263)H型钢 HT薄壁型 (GB/T 11263)
三、母线框库MD3母线框 (单排)MD4母线框 (双排MD8母线框 (三排)MD10母线框 (三排)MD2母线框 (单排，四相)MD5母线框 (双排，四相)MG4母线夹MDN母线框 (单排)MDN母线框 (双排)MDN母线框 (三排)
四、铜排搭接库垂直搭接(1) 四孔垂直搭接(2) 两孔垂直搭接(3) 两孔垂直搭接(4) 单孔直接搭接(1) 四孔直接搭接(2) 两孔直接搭接(3) 单孔
五、其它深沟球轴承 (GB/T 276)链轮 (GB/T 1243)齿轮、齿条 (GB/T 1356)平键、键槽 (GB/T 1095、96)O形橡胶密封圈 (GB/T 3452.1)板式平焊法兰 RF (GB/T 9119)板式平焊法兰 FF (GB/T 9119)长半径弯头 (GB/T 12459长半径异径弯头 (GB/T 12459)长半径180°弯头(GB/T 12459)短半径弯头 (GB/T 12459)短半径180°弯头(GB/T 12459)90°和45°3D弯头 (GB/T 12459)等径三通和四通 (GB/T 12459)异径三通和四通 (GB/T 12459)翻边短节 (GB/T 12459)管帽 (GB/T 12459)异径接头 (GB/T 12459)
很好的分享，不过给大师提点建议：对于数据量特别大的内容，是否考虑调用外部txt或者access来读取，这样方便后期维护数据。 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)
补上几个斜杠，可以运行了。 非常棒的程序，我修改了下界面布局，列表可以多显示些内容
程序的第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)
感谢大神的共享！ 先说界面设计，就是一流水平，比好多专业设计软件的界面好。
运行画角钢出错。
如果螺栓之类的，最后是组更方便些，便于移动。 本帖最后由 tigcat 于 2021-9-20 21:27 编辑
这个程序非常大,单看界面就知道展示了好多技巧:
1、临时dcl存取（dcl与lsp合并）
2、dcl图像展示（看着图框展示图块形状），刚刚看了一下源码，大概与3700多行用于像素描点，占据了总行7451的半壁江山
3、dcl与lisp交互
4、展示了各种类型图元、符号表的entmake用法5、……（再看看后补充）
langjs大师的程序都很大，感觉用了很多心思，这个时间发出，真是中秋送给明经兄弟的大礼啊！
很强大，作为资料库也很强大 大师，型钢库的画不出来。命令: tuku
无效的选项关键字。
tigcat 发表于 2021-9-20 22:12
大师，型钢库的画不出来。命令: tuku
无效的选项关键字。
经测试，2012版cad各种都正常，但2014不知什么原因，型钢库的均出现问题。 tigcat 发表于 2021-9-20 22:20
经测试，2012版cad各种都正常，但2014不知什么原因，型钢库的均出现问题。
我用的就是2014啊，不知道为啥出问题 自贡黄明儒 发表于 2021-9-20 19:23
先说界面设计，就是一流水平，比好多专业设计软件的界面好。
运行画角钢出错。
如果螺栓之类的，最后是组 ...
估计是少选了参数吧？要选角钢厚度
,,
本帖最后由 自贡黄明儒 于 2021-9-21 17:25 编辑langjs 发表于 2021-9-20 22:39
估计是少选了参数吧？要选角钢厚度
我win10 2008下，插入槽钢，显示defun fillet出错,加一个变量控制就好了。(SETVAR 'PEDITACCEPT 0)