管线标注程序改版

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

写得很棒，支持！

账号		自动登录	找回密码
密码			注册

[源码] 管线标注程序改版