标注

tear

在标注时，比如说轴的剖面图，要标注成直径，就是说尺寸数字前得加一个直径符号，每次都得输入T，再写%%C，太烦了，有没有更方便的方法，我是说比如二次开发的程序！

前生

(DEFUN C:HOD ( / ls en str)
  (setq ls nil en nil)
  (SETQ LS (ENTSEL "\n请选择一个dim:.."))
  (if ls
   (progn
      (setq en (car ls))
      (setq str (cdr (assoc 0 (entget en))))
    )
  )
  (if (= "DIMENSION" STR)
  (COMMAND "DIM1" "new" "%%c<>" en "")
  (PRINC "\n 没有选中dim")
   )
)

Raheleh

前生

(Defun C:Hd ()
;;;____________________________________
  (defun hd1 ()
    (setvar "dimtoh" 0)
    (setvar "dimexe" 0.4)
    (setq p1 nil
          p2 nil
    )
    (setq p1 (getpoint "\n &Ouml;&cedil;&para;¨&micro;&Uacute;&Ograve;&raquo;&Igrave;&otilde;&sup3;&szlig;&acute;&ccedil;&frac12;&ccedil;&Iuml;&szlig;&AElig;&eth;&micro;&atilde;"))
    (if        p1
      (setq p2 (getpoint p1 "\n &Ouml;&cedil;&para;¨&micro;&Uacute;&Ograve;&raquo;&Igrave;&otilde;&sup3;&szlig;&acute;&ccedil;&frac12;&ccedil;&Iuml;&szlig;&AElig;&eth;&micro;&atilde;"))
    )
    (if        (and p2 p1)
      (progn
        (Command "Dim1" "Hor" p1 p2 pause "")
        (setq ls (entlast))
        (setq p1 nil
              p2 nil
        )
      )
      (progn
        (setq en (entsel "\n &Ccedil;&euml;&Ntilde;&iexcl;&Egrave;&iexcl;&Oacute;&ucirc;±ê×&cent;&micro;&Auml;&Ecirc;&micro;&Igrave;&aring;:.."))
        (if en
          (progn
            (Command "Dim1" "Hor" "" en pause "")
            (setq ls (entlast))
            (setq en nil)
          )
        )
      )
    )
  )
;;;____________________________________
;;;  (SETLAY "DIM" 1 "CONTINUOUS")
  (setq ls nil)
  (hd1)
;;;  (setq ls (entlast))
  (if ls
    (progn
      (setvar "dimpost" "%%C<>")
      (command "dim1" "update" ls "")
      (setvar "dimpost" "")
      (setq ls nil)
    )
  )
  (setq hd1 nil)
  (princ)
)

mccad

前生

东哥

修改尺寸标注上的文字，一次命令可以连着对多个标注去修改，第一次输入“%%c”后把它放到剪贴板上（ctrl+c），改好一个标注后再选后一个标注，将光标移至最前面后用（ctrl+v），就好了。

mccad