[建议]：那位高手写一个在的R14下逐点标注的命令

wcf

现在很多人习惯于在R14平台上绘图，主要原因是很多专业软件是在R14上开发的，那位高手写一个在的R14下逐点标注的命令，谢谢!

叶子

逐点标注这个功能天正和TSSD里都有的

coving

我来一个！
相关文件内有：f-bl.lsp,jt1.dwg：
相关文件.rar
以下程序内容：

(defun C:dimtch(/ lay pt pte dis)
  (setvar "CMDECHO" 0)
  (if (not bl) (load"f-bl"))
  (command "insert" "jt1" ^c)
  (command "dim" "dimblk" "jt1" "exit")
  (setvar "userr5" bl)
  (setvar "dimse1" 0)  ;界线开关
  (setvar "dimse2" 0)
  (setvar "dimaso" 1)  ;具有相关性质
  (setvar "dimaltu" 2) ;设置单位格式
  (setvar "dimtih" 0)  ;为1时文字说明总是水平的
  (setvar "dimtoh" 0)  ;为1时文字在界线外且水平画出
  (setvar "dimtad" 1)  ;文字说明在尺寸线上方
  (setvar "dimsho" 1)  ;控制拖动时改变尺寸值
  (setvar "dimrnd" 1)  ;舍入值为1
  (setvar "dimtvp" 0.5)  ;尺寸文字垂直位置
  (setvar "dimtix" 1)    ;说明文字必须在界线内
  (setvar "dimtofl" 1)   ;说明文字可超出界线
  (setvar "dimtsz" 0)    ;斜线长度，为0时画箭头
  (setvar "dimasz" 1)    ;箭头尺寸或比例
  (setvar "dimscale" 1)  ;总比例参数
  (setvar "dimtxt" 300)  ;文字的大小
  (setvar "dimexo" 0.0)  ;界线偏离
  (setvar "dimexe" 300)    ;界线延长
  (setvar "dimlfac" bl)  ;长度参数的比例系数
  (setvar "dimzin" 8)      ;消除主单位十进制标注中的后续零
  (setvar "dimclrd" 3)     ;尺寸线、箭头、标注引线的颜色
  (setvar "dimclre" 3)     ;为尺寸界线指定颜色
  (setvar "dimclrt" 7)     ;标注文字的颜色

(princ "\nTCH标注设置完成 ! 比例 1:1")
(princ)

  (setq lay (getvar "clayer"))

  (if (or (= nil (tblsearch "style" "txt"))
          (/= (cdr (assoc 40 (tblsearch "style" "txt"))) 0)
      )
  (command "STYLE" "standard" "" "" ".75" "0" "n" "n" "n")
  )
  (setq pt (getpoint "\n尺寸线起点<退出>:"))
     (setq pte (getpoint pt "\n尺寸线终点<退出>:"))
      (setq ang1 (angle pt pte))
      (setq ang2 (- ang1 (/ pi 2)))

      (setq dis (distance pt pte))
     (setvar "dimgap" 100)

          (setq ptel (polar pt ang1 (/ dis 2)))
          (setq pt01 (polar pt ang2 300))
          (setq pt02 (polar pte ang2 300))
      (command "layer" "m" "dim_tch" "color" "green" "dim_tch" "")
      (command "LAYER" "m" "dim_tch" "")
      (command "dim" "_aligned" pt01 pt02 ptel "")
      (command "layer" "s" lay "")
  (command "exit")
  (princ)
)