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

shenhung

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

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

sunfj

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

greatspark

强大，膜拜中

小毛草

谢谢了，大师

龙城飞将36

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

guankuiwu

很好！多谢分享

e2002

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

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)

sunfj

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

20060510412

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