[求助]：怎么能快速标注出这些尺寸？

lzws03

求能快速标注出这些尺寸的程序。如图。
文件格式为autocad2000

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (cmdla0)
  (command ".undo" "BE")
  (setq        SS (ssget '((0 . "LINE")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (dxf 10 (entget s1))
          pt2 (dxf 11 (entget s1))
          )
    (command "_dim1" "alig" pt1 pt2 pt1 "")
  )
  (command ".undo" "E")
  (cmdla1)
)
[/php]

lzws03

多谢版主，我下载回去试一下，下次再上时就把意见反馈给您！

程序已经试用了！
版主做的程序很好用！非常感谢！
楼主能否告诉我，如果我想调整一个尺寸线及文字离开所标直线的距离时应该更改程序里的哪个参数呢？单位是mm吧？如果要改标注文字的大小就像平时在CAD里改标注样式或文字样式一样的操作吧？

xyp1964

离开所标直线定距：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (cmdla0)
  (command ".undo" "BE")
  (setq        SS (ssget '((0 . "LINE")))
        no1 (ureal 1 "" "\n离开所标直线的距离" no1)
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (dxf 10 (entget s1))
          pt2 (dxf 11 (entget s1))
          pt3 (polar pt1 (* pi 0.5) no1)
    )
    (command "_dim1" "alig" pt1 pt2 pt3 "")
  )
  (command ".undo" "E")
  (cmdla1)
)
[/php]