快速建立标注样式

freehand8008

顶起来看看！

davide888

学习学习         

sdbaijiao

收藏下来学习，谢谢。

hao3ren

楼主最近高产啊

lidaxiu

呵呵，最好是做成点图框，按图框比例生成标注样式，比如5倍图框，就生成1：5的标注样式，已经有这样的程序了好像

陨落

好帖！带讲解，这种帖子不多

用户3766035971

讲解详细，感谢分享

clinber

这个必须顶顶啊

ucuc2003

ynhh 发表于 2015-5-26 09:01
大师啊
能不能做一个
动态改变标注文字大小的程序啊

;;========================================
;;  动态比例
;; by  明经通道  QQ: 9034598 2013年6月30日
;;========================================
(defun c:t44( / xent obj pt sc1 pt pt2 pt3 sc2 LLe LLt h txt sname dxf o_DIMZIN)
(setvar "cmdecho" 0)
(setq xent (entsel "\n请选择标注对象:"))
(if (and xent (= (cdr (assoc 0 (entget (car xent)))) "DIMENSION"))(progn
(setq obj (vlax-ename->vla-object (car xent))
       pt (cadr xent))
(setq sc1 (vla-get-ScaleFactor obj)
      sname (vla-get-StyleName obj))
(creL pt pt)
(setq LLe (entget (entlast)))
(creT)
(setq LLt (entget (entlast)))
(while (or (= (car (setq mouse (grread t 5 0))) 5)(= (car mouse) 2))
   (setq o_DIMZIN (getvar "DIMZIN"))
   (setvar "DIMZIN" 0)
   (setq pt2 (cadr mouse)
           h (* 0.02 (getvar "VIEWSIZE"))
         sc2 (* sc1 (/ (distance pt pt2) h) 0.1)
        ;txt (strcat "出图比例=" (rtos sc2 2 1))
         txt (strcat "出图比例=" (rtos sc2 2))
         pt3 (polar pt2 (* -0.45 pi) (* 1.5 h)))
  (setvar "DIMZIN" o_DIMZIN)
  (foreach x (list (cons 1 txt)(cons 10 pt3)(cons 40 h))
           (setq LLt (subst x (assoc (car x) LLt) LLt)))
  (entmod LLt)
  (entmod (subst (cons 11 pt2)(assoc 11 LLe) LLe))
  (if (null (equal sc2 0 1e-6)) (vla-put-ScaleFactor obj sc2))
)
(setq dxf (entget (tblobjname "dimstyle" sname)))
(entmod (subst (cons 40 sc2)(assoc 40 dxf) dxf))
(command "-DIMSTYLE" "R" sname)
(entdel (cdr (assoc -1 LLE)))
(entdel (cdr (assoc -1 LLT)))
))
(setvar "cmdecho" 1)
(princ)
)

(defun creT()(entmake (list '(0 . "TEXT") (cons 1 "1") (list 10 0 0 0) (cons 40 1))))
(defun creL(p1 p2)(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))))

帝国银狐

学习学习看看怎么样