zong82 发表于 2011-9-24 22:38:35

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

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

szx025 发表于 2011-9-26 09:37:18

(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 发表于 2011-10-23 17:17:00

怎么会用不起呢

zqb05 发表于 2011-11-22 00:41:18

搞不明白
页: [1]
查看完整版本: 求高手写个点直线加一个命令，线上面正中就会跑出标注文字并提示输入文字