894560869
发表于 2019-6-3 06:39:11
有没3维空间标注，自动转XY平面的
hl2006
发表于 2021-12-23 10:06:43
本帖最后由 hl2006 于 2021-12-25 01:01 编辑
加载了显示中心位置不对
shcvip
发表于 2022-2-7 00:23:16
本帖最后由 shcvip 于 2022-2-7 00:26 编辑
1、如果是个矩形，那测的长度，就是矩形的长度了，而不是所想要的管道长度了。2、 多重块的时候，也不能选择直线。
shcvip
发表于 2022-2-8 22:39:17
dabingrain 发表于 2016-4-20 00:13
GOOD，修改了一下，可以不显示坡度了
如何记住上一次的管径呢，在下一次执行的时候？
shcvip
发表于 2022-2-8 22:42:52
alpha223334 发表于 2018-7-19 07:50
感谢 77077 ！感谢guangdonglbq！根据你们的的程序修改到我需要的管线标注了，花了不少时间，大家帮忙验证
提示：字体无法使用
shcvip
发表于 2023-10-26 13:12:30
shcvip 发表于 2022-2-8 22:39
如何记住上一次的管径呢，在下一次执行的时候？
如何记住上一次的管径呢，在下一次执行的时候？
wline
发表于 2024-7-3 09:21:36
alpha223334 发表于 2018-7-19 07:50
感谢 77077 ！感谢guangdonglbq！根据你们的的程序修改到我需要的管线标注了，花了不少时间，大家帮忙验证
大哥，选择直线后，cad显示选择直线或多段线:no function definition:GL:KEYMONITOR，这怎么回事啊
guankuiwu
发表于 2024-7-5 14:42:10
shcvip 发表于 2023-10-26 13:12
如何记住上一次的管径呢，在下一次执行的时候？
(defun fz ()
(setq %%$$GJstr (GET_TILE "gj"))
(setq %%$$PDJstr (GET_TILE "pd"))
(setq %%$$zgstr (GET_TILE "zg"))
(setq %%$$zg (* 3.5(atof %%$$zgstr)));;取得比例
);;;临时生成Dcl文件 返回文件名
(defun Write_Dcl (/ Dcl_File file str)
(setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
(setq file (open Dcl_File "W"))
(foreach str (list
"RECT:dialog"
"{label=\"管线标注\";"
":edit_box {key=\"gj\";"
"label=\"管线规格：\";"
(strcat "value=" "\"" %%$$GJstr "\"" ";")
"}"
":edit_box {key=\"pd\";"
"label=\"管线坡度：\";"
(strcat "value=" "\"" %%$$PDJstr "\"" ";")
"}"
":edit_box {key=\"zg\";"
"label=\"出图比例：\";"
(strcat "value=" %%$$zgstr ";")
"}"
"ok_only;}"
)
(write-line str file)
)
(close file)
Dcl_File
)
(setq %%$$GJstr (if %%$$GJstr (strcat %%$$GJstr) "\"DN300\""))
(setq %%$$PDJstr (if %%$$PDJstr %%$$PDJstr "\"2.0%\""))
(setq %%$$zgstr (if %%$$zgstr %%$$zgstr "1.0"))
shcvip
发表于 2024-8-8 19:52:22
guankuiwu 发表于 2024-7-5 14:42
(defun fz ()
(setq %%$$GJstr (GET_TILE "gj"))
(setq %%$$PDJstr (GET_TILE "pd"))
已经私信，可否帮着再完善一下。
huang222100
发表于 2024-8-12 23:32:42
写得很棒，支持！