求高手写个点直线加一个命令，线上面正中就会跑出标注文字并提示输入文字

zong82

第一个程序在标题里，第二个就是，画线时上面就会叫你输入文本

szx025

(defun c:TB (/ pt1 pt2 pt3 pt4 p1 ku1 str)
    ;;保存系统变量设置
    (setq old_CMD (getvar "CMDECHO"))
    (setvar "CMDECHO" 0)
    (setq ortho (getvar "orthomode"));_取得变量值
    (setvar "orthomode" 0);_关
    (if        (and (setq pt1 (getpoint "\n定位点:"))
             (setq pt2 (getpoint pt1 "\n定位点:"))
             (not (grdraw pt1 pt2 10))
    (setvar "orthomode" 1);_开
             (setq pt3 (getpoint pt2 "\n定位点:"))
        )
        (progn
            ;;刷新图形窗口
            (redraw)
            (setq ku1 (angle pt2 pt3)
                  pt4 (polar pt2 ku1 2100)
            )
            (command "-layer" "m" "文字" "C" "10" "" "")
            (command "_.line" "non" pt1 "non" pt2 "non" pt4 "")
            (setq pt_mid (mid_pt pt2 pt4)
                  p1         (polar pt_mid (* 0.5 pi) 100)
            )
            ;;文字起点
            (setq str (getstring "\n请输入详图号/页数<1/48>:"))
            (if        (= str "")
                (setq str "TB2005-1/48")
                (setq str (strcat "TB2005-" str))
            )
            (command "text" "j" "c" "non" p1 300 0 str)
            ;;执行完毕返回0层
            (setvar "clayer" "0")
        )
    )
    ;;刷新图形窗口
    (redraw)
    (setvar "CMDECHO" old_CMD)
    (setvar "orthomode" ortho);_恢复变量
    (princ)
)

zong82

怎么会用不起呢

zqb05

搞不明白