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

pzweng

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

程序的第1992行起

能上一份完整的吗

pzweng

这工具让我震惊了

huxu823

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

程序的第1992行起

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

at1636

大佬牛批！！！！

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)

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

seamopan

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

XPG

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

kis_mj

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

cxjcqu

优秀

时光飞逝

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