[求助]各位大侠帮忙编个标管长的LSP

wowan1314

    在实际工作中经常要对PL线画的管子标管径，管长，坡度。每次都先复制文字再旋转，后量取长度再修改。

想请大侠编个LSP实现如下功能：1，选择管线即可在管线上标注单行文字:DN300  L=30.0  i=0.004（管线可能是L线或者PL线）。（各元素间用空格隔离，若有难度可由DN300－L=30.0-i=0.004代替）

2，其中L=后面的数字是框选管线后得到的(保留一位小数)！ 其他部分照标就是（我的计算才能确定）

3，文字随鼠标在管线上面移动，由鼠标左键确定是上或者下！右键退出！（能实现上两步就很好了）

希望大侠能帮忙思考！      不胜感激！!  ! 

wowan1314

另外文字样式应设定为TXT+HZTXT,出现的单行文字应该于线平行！ 字线距离与文字大小为可设置选项，默认字线距离80，字高300。             期待

wowan1314

忘记今天休假哦！ 高手度假去了！　为免帖子沉了！我顶起

sailorcwx

sailorcwx

上面是我自编自用的
其实你说的不是不能实现，只是我觉得点管线不是很理想，最好是点2个检查井来测量距离。因为管线可能在交叉的时候打断过，这个时候读取的长度不是我们想要的长度。

wowan1314

楼上的程序看着蛮好！ 说的也有道理，我忽略了管线在检查井处打断过了！看来楼上也是做水的把！

那么更正一点：： 由点取两点（一般是两圆心点）来确定管线的长度与文字的角度问题！(那么对象捕捉应该被开启)。

楼上程序再修改下应该能实现这个功能吧！？

请高手试着编写。

leeyuan

基本满足楼主的要求，可能局部需要调整。

(defun c:WF (/ old_osmode d i p1 ent p2 di ds pt dn ang)
  (setq old_osmode (getvar "osmode"))
  (setq old_layer (getvar "clayer"))
  (if (not (setq d (getreal "\n输入管径 D<200mm>:")))
    (setq d 200)
  )
  (if (= d 200)
    (setq i "0.008")
    (setq i "0.005")
  )
  (while (setq p1 (getpoint "\n选择第一点<回车退出>:"))
    (setvar "osmode" 5)
    (setq p2 (getpoint p1 "\n选择第二点:"))
    (setvar "osmode" 0)
    (setq di (distance p1 p2))
    (setq ds (rtos (/ di 1000) 2 1))
    (setq dn (strcat "D" (rtos d 2 0) ",L=" ds ",i=" i))
    (setq ang (angle p1 p2))
    (setq ang (* ang (/ 180 3.1415926)))
    (setq pt (getpoint "\n输入文字脚点:"))
    (setvar "clayer" "s-Wsbz")
    (command "text" pt gao ang dn)
    (command "move" (entlast) "" pt pause)
    (setvar "osmode" 5)
  )
  (setvar "osmode" old_osmode)
;;;  (setvar "clayer" old_layer)
  (princ)
)

wowan1314

关于四楼的标注应该很多！ 建议7楼搜索下“管径标注LSP”就好了！但随鼠标上下移动估计就难找点了！

感谢8楼的热心！但似乎程序有点问题！ 无法执行！思路差不多了！ 先点取两点来确定长度与方向！而文字输入位置最好能像四楼一样可以在线上下移动！而最初应该加上设置比例（默认1：100）这样比较好把！

期待新版本！    谢谢

ZZXXQQ

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