不知哪位高手能编一个标注前面能加正负号的标注公具条

hfjhfj

不知哪位高手能编一个标注前面能加正负号的标注公具条.这样我们搞测量的同志就能方便多,不用一个一个来加符号,望高手们帮忙.谢谢!

killer9806

偶做了一个小程式，在标注前加“+”的

(defun c:jia ()
  (setq ss (ssget '((0 . "DIMENSION")))
 n  0
  )
  (repeat (sslength ss)
    (setq entlst (entget (ssname ss n))
   n  (1+ n)
   olddxf (cdr (assoc 1 entlst))
    )
    (if (= olddxf "")
      (setq newdxf (cons 1 "+<>"))
      (setq newdxf (cons 1 (strcat "+" olddxf))
      )
    )
    (setq entlst (subst newdxf (assoc 1 entlst) entlst))
    (entmod entlst)
  )
  (princ)
)

qianglcq

请参考以下代码

;;;尺寸工具
;;;Copyrignt chengqiang Lin 2007 for yuksang
(defun c:sd ()
  (setvar "cmdecho" 0)
  (prompt "\n请选择尺寸：")
  (setq ss (ssget  '((0 . "DIMENSION")))
 n  0
  )
  (setq pc1 (getstring "\n输入上偏差:"))
  (setq pc3 (getstring "\n输入下偏差:"))
  (setq pc_a_1 (atof pc1))
  (setq pc_a_2 (atof pc3))
  (setq pc_a_3 (+ pc_a_1 pc_a_2))
  (if (= pc_a_3 0.0)
  (progn
  (setq t0 "%%p")
  (setq t3 pc_a_1)
  (setq t3 (rtos t3))
  (setq nam (strcat t0 t3 ))
  )
  (princ)
  )
  (if (/= pc_a_3 0.0)
  (progn
  (setq t0 "\\A1;")
  (setq t1 "<>")
  (setq t2 "{\\H0.7x;\\S")
  (setq t3 pc1)
  (setq t4 "^")
  (setq t5 pc3)
  (setq t6 ";}")
  (setq nam (strcat t0 t1 t2 t3 t4 t5 t6))
  )
  (princ)
  )
  (repeat (sslength ss)
    (setq entlst (entget (ssname ss n))
   n  (1+ n)
   olddxf (cdr (assoc 1 entlst))
    )
    (if (= olddxf "")

      (setq newdxf (cons 1 (strcat olddxf nam))
      )
    )
    (setq entlst (subst newdxf (assoc 1 entlst) entlst))
    (entmod entlst)
  )
  (princ)
)
(defun c:as ()
  (setvar "cmdecho" 0)
  (prompt "\n请选择尺寸：")
  (setq ss (ssget  '((0 . "DIMENSION")))
 n  0
  )
  (setq nam "%%C<>")
  (repeat (sslength ss)
    (setq entlst (entget (ssname ss n))
   n  (1+ n)
   olddxf (cdr (assoc 1 entlst))
    )
    (if (= olddxf "")

      (setq newdxf (cons 1 (strcat olddxf nam))
      )
    )
    (setq entlst (subst newdxf (assoc 1 entlst) entlst))
    (entmod entlst)
  )
  (princ)
)
(defun c:aq ()
  (setvar "cmdecho" 0)
  (prompt "\n请选择尺寸：")
  (setq ss (ssget  '((0 . "DIMENSION")))
 n  0
  )
  (setq nam "%%p<>")
  (repeat (sslength ss)
    (setq entlst (entget (ssname ss n))
   n  (1+ n)
   olddxf (cdr (assoc 1 entlst))
    )
    (if (= olddxf "")

      (setq newdxf (cons 1 (strcat olddxf nam))
      )
    )
    (setq entlst (subst newdxf (assoc 1 entlst) entlst))
    (entmod entlst)
  )
  (princ)
)
(defun c:aw ()
  (setvar "cmdecho" 0)
  (prompt "\n请选择尺寸：")
  (setq ss (ssget  '((0 . "DIMENSION")))
 n  0
  )
  (setq nam "<>%%d")
  (repeat (sslength ss)
    (setq entlst (entget (ssname ss n))
   n  (1+ n)
   olddxf (cdr (assoc 1 entlst))
    )
    (if (= olddxf "")

      (setq newdxf (cons 1 (strcat olddxf nam))
      )
    )
    (setq entlst (subst newdxf (assoc 1 entlst) entlst))
    (entmod entlst)
  )
  (princ)
)

aytxq

这个好像不用那么麻烦吧，弄一个工具按钮出来。然后把相关的变量写进去就行了吧

xbbcad

请教楼上的怎么弄工具栏?