本帖最后由 langjs 于 2026-1-18 16:32 编辑




2026.01.18更新一下库













网友答: 感谢大神的共享！

网友答:
  (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)

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

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

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

网友答: 本帖最后由 tigcat 于 2021-9-20 21:27 编辑

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



网友答: 很强大，作为资料库也很强大

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


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

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

网友答:
估计是少选了参数吧？要选角钢厚度

网友答: 本帖最后由 自贡黄明儒 于 2021-9-21 17:25 编辑

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