本帖最后由 lee50310 于 2024-12-30 13:54 编辑
edrise 发表于 2024-12-30 12:04
原来如此，确实没想过这个，也暂时不会，如果是这样，把线型组码删了能将就用用不用删线型组码
建议在程式开头可加入此函数 (Load_LinType)
另外 我的CAD2018繁体版 没有 DASH线型 有DASHED及DASHED2
但载入后 虚线间隔还是太宽最后找到 JIS_02_1.2线型可取代
若使用JIS_02_1.2
必须将程式中所有'(6 . "DASH"); 改为'(6 . "JIS_02_1.2")
;;------------------------------------------------------------------
;;https://www.theswamp.org/index.php?topic=54136.0
;;;;线型加载及重载
(defun Load_LinType()
(foreach lt '("JIS_02_1.2" "DASH" "DASHED2" "Hidden" "Hidden2" );要载入的线型名称
(if(not(tblsearch "ltype" lt))
(command "_.-linetype" "_l" lt "acadiso.lin" "")
); end if
); end foreach
(princ)
); end of Load_LinType
;;------------------------------------------------------------------
lee50310 发表于 2024-12-30 13:44
不用删线型组码
建议在程式开头可加入此函数 (Load_LinType)
另外 我的CAD2018繁体版 没有 DASH线型 有DA ...
感谢大佬完善，学习了
edrise 发表于 2024-12-30 12:58
大佬，你的插件加载报错是咋回事呢，CAD2021
cad插件常见问题 2021后会这样将LISPSYS变量改为0 然后重启cad再加载就可以了
xj6019 发表于 2024-12-30 15:15
cad插件常见问题 2021后会这样将LISPSYS变量改为0 然后重启cad再加载就可以了
好的，不过LISPSYS置0以后，vlide就变回CAD自带的了，我现在用的是vscode，需要置1。求较下大佬知不知道什么情况下置1会加载报错呢？写代码的时候好想办法避免。
lee50310 发表于 2024-12-30 13:44
不用删线型组码
建议在程式开头可加入此函数 (Load_LinType)
另外 我的CAD2018繁体版 没有 DASH线型 有DA ...
我是这么干的，我把后边需要用到的线型DXF数据搞出来，然后
(vl-every'(lambda(x / e)(setq e(tblobjname"ltype"(car x)))
(if e(entmod(cons(cons -1 e)(cdr x)))(entmakex(cdr x))))
'(("X5"(0 . "LTYPE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbLinetypeTableRecord")(2 . "X5")(70 . 0)(3 . "")(72 . 65)(73 . 2)(40 . 3.0)(49 . 2.0)(74 . 0)(49 . -1.0)(74 . 0))
("X32"(0 . "LTYPE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbLinetypeTableRecord")(2 . "X32")(70 . 0)(3 . "")(72 . 65)(73 . 2)(40 . 1.5)(49 . 1.0)(74 . 0)(49 . -0.5)(74 . 0))))
edrise 发表于 2024-12-29 18:16
看你这个比较简单，练手顺手写了个糙的，可以实现你需要的功能，有币的话就给我吧，缺币中...
坐标标注可能不对，没按间距变化
bai2000 发表于 2025-1-1 13:14
坐标标注可能不对，没按间距变化
因为贴主没有坐标与真实距离的关系，截图中每一个代表5，但真实格长度不详，只能揣测不管间距是多大，每一格都代表5。如果按真实距离写数值变化函数，网格就要做得很小，与真实需求可能就差距比较大了。如果要调改数值随网格间距变化，需要把代码中变量d相关的公式都根据自己需求调整一下，比如按比例计算之类的。
方格网文字后面三个0怎么去掉？
哪位大师帮忙看看，怎么去掉数字后面小数3个0？
水仙的错 发表于 2025-3-27 18:20
哪位大师帮忙看看，怎么去掉数字后面小数3个0？
截个图看看呢