[求助]一个管径标注的LSP请高手帮助修改一下

lz689706

修改要求：1.选择多义线时能够将管径标注在鼠标点取的位置。

                  2.管径距管线的距离120mm。

(DEFUN C:ggg(/ cstr cstr0 cstr1 a0 ab num num1 pt pt0 pt1 zang1)
;;;defun err
    (defun err (msg)
    (setq *error* olderr)
    (setvar "osmode" ccmd)
    (setvar "clayer" clay)
    (setq num nil)
    (princ "操作错误!请先键入NEA，再选择管线!")
    (princ) 
    )      ;for defun fi-err
;;;main 
     (setq olderr *error* *error* err)
     (setq clay (getvar "clayer"))   
     (setq ccmd (getvar "osmode"))
     (setvar "osmode" 0)
 (setq sc1 sc) ;;;get current scale
;;;the following sets current scale
 (if (or (null sc) (<= sc 0))
  (if (not (numberp sc))
   (progn
     (setq sc 100 sc1 100)
     (initget (+ 2 4))
     (setq sc (getreal (strcat "图纸比例--1:<" (rtos sc1) ">")))

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

包仁的花生壳

eii 发表于 2019-7-17 12:28
ZZXXQQ 总栽树，我乘凉哈根据ZZXXQQ 的代码调整了下，主要修改了不能连续标注的bug，另外将文字离管 ...

下载不了了，正在急用看看大神的作品怎么样的

eii

ZZXXQQ 总栽树，我乘凉哈根据ZZXXQQ 的代码调整了下，主要修改了不能连续标注的bug，另外将文字离管线的距离与文字的高度关联
命令：tt

lz689706

你好！非常感谢你的帮助。1.我的要求是在line和pline上都可以标注，你帮我修改的文件不能在line上标注了。另外我只要求标注管径就可以，不需要管径和长度同时标注，请取消长度。2.测试时很容易出错，再次感谢你的帮助。

ZZXXQQ

二楼已改，再试试。

lz689706

你好zzxxQQ今天试啦一下，挺好的，还想请你再调整一下。

一、管线的默认值应该根据点选的不同管线而不同，排水管DN100 给水管DN15.....我想应该跟下面这段有关。

1. ((= lnm "排水管") (setq cstr1 "150"))
2.     ((= lnm "雨水") (setq cstr1 "150"))
3.     ((= lnm "给水管") (setq cstr1 "15"))
4.     ((= lnm "热水") (setq cstr1 "15"))
5.     ((= lnm "消防") (setq cstr1 "100"))

二、第一次加载输入图纸比例即可。

三、管径文字标注的位置，当我点选的位置偏下时，标注会跑到管线的下方，这不符合制图规范。水平管线应在线的上方,始终按顺时方向，竖向管线，标注应在左侧，这个调整会不会很麻烦。

第一个问题是最需改进的，如果以后给排水的网友能用到这个程序，我和他们向你表示感谢！

ZZXXQQ

二楼又改了。再试试。

lz689706

标注管道时会出现下面的错误。

GGG 图纸比例--1:<100>
选择要标注的管线:默认管径值是10
请输入管径:
参数类型错误: numberp: nil

ZZXXQQ

第50行错了。
应将(T (setq cstr1 10))
改成(T (setq cstr1 "10"))

lz689706

你好zzxxQQ，可能我说的不太明白，管径的默认值应该是变化的，当我点取排水管时，默认的管径应为DN100,即第29行的值，我点取给水管时，默认的管径应为DN15,即第31行的值，以此类推，当点取喷淋管时，管径根据喷头的数量是变化的，39～46行的值。

ZZXXQQ

二楼又改了改，再试试。