求助：尺寸标注

liu22737

多谢楼上几位高手

另外 请求各位斑竹能否把以前的帖子整理分类一下，方便大家查找啊，

里面确实有好多精华帖子，但用的时候不容易找到。

liu22737

;;程序中尺寸参数dimtad的值 参考龙龙仔的程序求得

(defun c:dim_cen_above(/ d_dim StyleName TempList dim_tad)
(setq d_dim (car(entsel)))
(setq StyleName (cdr(assoc 3 (entget d_dim))))
(if (setq TempList (cddadr (assoc -3 (entget d_dim '("ACAD")))))
    (if (setq pos_s (vl-position (cons 1070 77) templist))
        (setq dim_tad (cdr(nth (+ pos_s 1) templist)))
        (setq dim_tad (cdr(assoc 77 (tblsearch "DIMSTYLE" StyleName)))))

(setq dim_tad (cdr(assoc 77 (tblsearch "DIMSTYLE" StyleName))))
 )

(if (= dim_tad 0)
(command "dimoverride" "dimtad" 1 "" d_dim "")
(command "dimoverride" "dimtad" 0 "" d_dim "")
))