Jhun Gonzalo 发表于 2022-7-6 14:38:47

管道内底标高

你好
 
大家好：D，请问有没有人有Lisp路线，可以创建一个水平尺寸文字，第一次拾取地面标高，第二次拾取到管道的底线，以获得管道的距离高度，然后引线箭头将定位到第二次拾取，水平文字将定位任何我想要的位置。
 
如果有，请提供：lol:me一条显示下图的路线
非常感谢。
 
当做
JG公司

Lee Mac 发表于 2022-7-6 14:56:22

又快又脏：
 

(defun c:ql (/ pt1 pt2)
(setq oldcmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(while (and (setq pt1 (getpoint "\nSelect First Point: "))
             (setq pt2 (getpoint pt1 "\nSelect Second Point: ")))
   (command "_qleader" pt2 pause "" ""
            (strcat "IL +" (rtos (distance pt1 pt2) 2 2) "mm") ""))
(setvar "CMDECHO" 1)
(princ))

Jhun Gonzalo 发表于 2022-7-6 15:12:44

哇：D谢谢李，太棒了，没什么要求，能不能让领头的拿到3分，这样我就可以把领头的紧握在文本旁边。
再次感谢：哈哈：
 

(defun c:ql (/ pt1 pt2)
(setq oldcmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(while (and (setq pt1 (getpoint "\nSelect First Point: "))
             (setq pt2 (getpoint pt1 "\nSelect Second Point: ")))
   (command "_qleader" pt2 pause "" ""
            (strcat "IL +" (rtos (distance pt1 pt2) 2 2) "mm") ""))
(setvar "CMDECHO" 1)
(princ))

Lee Mac 发表于 2022-7-6 15:26:04

这可能取决于您的初始引导设置，但请试一试
 

(defun c:ql (/ oldcmd pt1 pt2)
(setq oldcmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(while (and (setq pt1 (getpoint "\nSelect First Point: "))
             (setq pt2 (getpoint pt1 "\nSelect Second Point: ")))
   (command "_qleader" pt2 pause pause ""
            (strcat "IL +" (rtos (distance pt1 pt2) 2 2) "mm") ""))
(setvar "CMDECHO" oldcmd)
(princ))

Jhun Gonzalo 发表于 2022-7-6 15:30:22

是的，李，我知道了。谢谢
 
干杯：D

Lee Mac 发表于 2022-7-6 15:50:03

很乐意帮忙
页: [1]
查看完整版本: 管道内底标高