freehand8008 发表于 2015-5-26 11:06:34

顶起来看看！

davide888 发表于 2015-5-26 11:12:58

学习学习         

sdbaijiao 发表于 2015-5-26 12:32:51

收藏下来学习，谢谢。

hao3ren 发表于 2015-5-26 12:55:10

楼主最近高产啊

lidaxiu 发表于 2015-5-26 13:45:45

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

陨落 发表于 2015-5-26 14:36:32

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

用户3766035971 发表于 2015-5-26 16:55:23

讲解详细，感谢分享

clinber 发表于 2015-5-26 21:26:36

这个必须顶顶啊

ucuc2003 发表于 2015-5-26 22:16:53

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


;;========================================
;;动态比例
;; 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))))

帝国银狐 发表于 2015-5-27 06:11:23

学习学习看看怎么样
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 快速建立标注样式