画紧固件和型钢的参数化图库（更新全部采用entmake）

langjs

论坛里找了一些画螺栓螺母的程序，感觉不是太好用，于是自己花了一点时间做了一个。目前可以画下面的这些。
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)

我爱lisp

很好的分享，不过给大师提点建议：对于数据量特别大的内容，是否考虑调用外部txt或者access来读取，这样方便后期维护数据。

duotu007

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.0  by: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)

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

elitefish

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

程序的第1992行起

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

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

guosheyang

感谢大神的共享！

自贡黄明儒

先说界面设计，就是一流水平，比好多专业设计软件的界面好。
运行画角钢出错。
如果螺栓之类的，最后是组更方便些，便于移动。

tigcat

这个程序非常大,单看界面就知道展示了好多技巧:
1、临时dcl存取（dcl与lsp合并）
2、dcl图像展示（看着图框展示图块形状），刚刚看了一下源码，大概与3700多行用于像素描点，占据了总行7451的半壁江山
3、dcl与lisp交互
4、展示了各种类型图元、符号表的entmake用法5、……（再看看后补充）
langjs大师的程序都很大，感觉用了很多心思，这个时间发出，真是中秋送给明经兄弟的大礼啊！

yyz123121

很强大，作为资料库也很强大

tigcat

大师，型钢库的画不出来。命令: tuku
无效的选项关键字。

tigcat

tigcat 发表于 2021-9-20 22:12
大师，型钢库的画不出来。命令: tuku
无效的选项关键字。

经测试，2012版cad各种都正常，但2014不知什么原因，型钢库的均出现问题。

langjs

tigcat 发表于 2021-9-20 22:20
经测试，2012版cad各种都正常，但2014不知什么原因，型钢库的均出现问题。

我用的就是2014啊，不知道为啥出问题

langjs

自贡黄明儒 发表于 2021-9-20 19:23
先说界面设计，就是一流水平，比好多专业设计软件的界面好。
运行画角钢出错。
如果螺栓之类的，最后是组 ...

估计是少选了参数吧？要选角钢厚度

自贡黄明儒

langjs 发表于 2021-9-20 22:39
估计是少选了参数吧？要选角钢厚度

我win10 2008下，插入槽钢，显示defun fillet出错,加一个变量控制就好了。(SETVAR 'PEDITACCEPT 0)