如何将标注的尺寸编序号？如图

如何将标注的尺寸编序号？如图，不要插入属性快的方式，对于任意角度旋转的都方便才好，请赐教！

有没有高手做一个出来用一下嘛

支持

1。画图标；
2。”属性定义“--ATTDEF，将数字属性化；
3。块定义；
4。写块；
5。插入块。
OK！

[ 本帖最后由 linduyu_y 于 2006-5-28 11:51 编辑 ]

;;;********************************************************************1
;;;标尺寸序号
;;;command: DA
;;;2005-10-05    Chen Jian
;;;Version 1.1   Add    "Enter a start number<1>
;;;2005-08-25    Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun cA (/ i dia)
  (setvar "cmdecho" 0)
  (setq i nil)
  (setq dia nil)
  (setq i (getint "Enter a start number<1>:"))
  (if (null i)
    (setq i 1)
  )
  (setq        dia (getreal
              "Enter diameter<5>:"
            )
  )
  (if (null dia)
    (setq dia 5)
  )
  (Princ "\n---Enter---to  EXIT...")
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq inpoint (getpoint))
  (while inpoint
    (setq sc 0.5)
    (if        (> i 10)
      (setq sc 0.5)
    )
    (if        (> i 99)
      (setq sc 0.4)
    )
    (command "text"
             inpoint
             (rtos (* sc dia) 2 1)
             ""
             (rtos i 2 0)
    )

    (setq ss (ssget "L"))
    (setq ssn (ssname ss 0))
    (setq ssdata (entget ssn))
    (setq sstyp (cdr (assoc 0 ssdata)))
    (if        (= sstyp "TEXT")
      (progn
        (command "ucs" "e" ssn)
        (setq box (textbox ssdata))
        (setq p1 (car box))
        (setq p3 (cadr box))
        (setq p2 (list (car p3) (cadr p1)))
        (setq p4 (list (car p1) (cadr p3)))
        (setq dda (+ (/ (distance p1 p2) 2) 1))
        (setq cen (inters p1 p3 p2 p4))
        (command "circle" cen (* dia 0.5))
        (command "ucs" "")
      )
    )
    (setq i (1+ i))
    (setq inpoint nil)
    (setq inpoint (getpoint))
  )
  (setvar "osmode" os)
;;;  (command "ucs" "")
  (Princ "\n---------------Bye cA 标尺寸序号---------------"
  )
  (prin1)
)
在这个基础上改一改就可以了

等待

我也来期待一下！

真的就这么地了！谁会编个lisp程序，设计得全面些！

这个功能很实用,希望高手们解决!

期待 中 ，等待高手