请求修改源码，改成可以多选改动态标注比例

haoxuan

2. (defun c:G11( / xent obj pt sc1 pt pt2 pt3 sc2 LLe LLt h txt sname dxf)
   
3.     (setvar "cmdecho" 0)
   
4.   (setq xent (entsel "\n请选择标注对象:"))
   
5.   (if (and xent (= (cdr (assoc 0 (entget (car xent)))) "DIMENSION"))
   
6.     (progn
   
7.       (setq obj (vlax-ename->vla-object (car xent))
   
8.         pt (cadr xent))
   
9.       (setq sc1 (vla-get-ScaleFactor obj)
   
10.         sname (vla-get-StyleName obj))
    
11.       (creL pt pt)
    
12.       (setq LLe (entget (entlast)))
    
13.       (creT)
    
14.       (setq LLt (entget (entlast)))
    
15.       (while (or (= (car (setq mouse (grread t 5 0))) 5)(= (car mouse) 2))
    
16.         (setq pt2 (cadr mouse)
    
17.           h (* 0.02 (getvar "VIEWSIZE"))
    
18.           sc2 (* sc1 (/ (distance pt pt2) h) 0.1)
    
19.           txt (strcat "ScaleF=" (rtos sc2 2))
    
20.           pt3 (polar pt2 (* -0.45 pi) (* 1.5 h)))
    
21.         (foreach x (list (cons 1 txt)(cons 10 pt3)(cons 40 h))
    
22.           (setq LLt (subst x (assoc (car x) LLt) LLt)))
    
23.         (entmod LLt)
    
24.         (entmod (subst (cons 11 pt2)(assoc 11 LLe) LLe))
    
25.         (if (null (equal sc2 0 1e-6)) (vla-put-ScaleFactor obj sc2))
    
26.       )
    
27.       (setq dxf (entget (tblobjname "dimstyle" sname)))
    
28.       (entmod (subst (cons 40 sc2)(assoc 40 dxf) dxf))
    
29.       (command "-DIMSTYLE" "R" sname)
    
30.       (entdel (cdr (assoc -1 LLE)))
    
31.       (entdel (cdr (assoc -1 LLT)))
    
32.     ))
    
33.   (setvar "cmdecho" 1)
    
34.   (princ)
    
35. )
    
36. (defun creT()(entmake (list '(0 . "TEXT") (cons 1 "1") (list 10 0 0 0) (cons 40 1))))
    
37. (defun creL(p1 p2)(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))))
    
38. (princ)
    

(defun c:G11( / xent obj pt sc1 pt pt2 pt3 sc2 LLe LLt h txt sname dxf)<br />     (setvar "cmdecho" 0)<br />   (setq xent (entsel "\n请选择标注对象:"))<br />   (if (and xent (= (cdr (assoc 0 (entget (car xent)))) "DIMENSION"))<br />     (progn<br />       (setq obj (vlax-ename->vla-object (car xent))<br />         pt (cadr xent))<br />       (setq sc1 (vla-get-ScaleFactor obj)<br />         sname (vla-get-StyleName obj))<br />       (creL pt pt)<br />       (setq LLe (entget (entlast)))<br />       (creT)<br />       (setq LLt (entget (entlast)))<br />       (while (or (= (car (setq mouse (grread t 5 0))) 5)(= (car mouse) 2))<br />         (setq pt2 (cadr mouse)<br />           h (* 0.02 (getvar "VIEWSIZE"))<br />           sc2 (* sc1 (/ (distance pt pt2) h) 0.1)<br />           txt (strcat "ScaleF=" (rtos sc2 2))<br />           pt3 (polar pt2 (* -0.45 pi) (* 1.5 h)))<br />         (foreach x (list (cons 1 txt)(cons 10 pt3)(cons 40 h))<br />           (setq LLt (subst x (assoc (car x) LLt) LLt)))<br />         (entmod LLt)<br />         (entmod (subst (cons 11 pt2)(assoc 11 LLe) LLe))<br />         (if (null (equal sc2 0 1e-6)) (vla-put-ScaleFactor obj sc2))<br />       )<br />       (setq dxf (entget (tblobjname "dimstyle" sname)))<br />       (entmod (subst (cons 40 sc2)(assoc 40 dxf) dxf))<br />       (command "-DIMSTYLE" "R" sname)<br />       (entdel (cdr (assoc -1 LLE)))<br />       (entdel (cdr (assoc -1 LLT)))<br />     ))<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> (defun creT()(entmake (list '(0 . "TEXT") (cons 1 "1") (list 10 0 0 0) (cons 40 1))))<br /> (defun creL(p1 p2)(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))))<br /> (princ)<br />

收集的到的源码，这个功能很常用。请求修改源码，改成可以多选改动态标注比例，目前只能单选

努.力

批量的动态修改的
http://bbs.mjtd.com/thread-169462-1-1.html

haoxuan

努.力 发表于 2023-12-8 10:47
批量的动态修改的
http://bbs.mjtd.com/thread-169462-1-1.html

可以记住这个比例吗？后续标注的没有改变，因为产品有大件也有小件，标注需要来回调

努.力

haoxuan 发表于 2023-12-9 10:47
可以记住这个比例吗？后续标注的没有改变，因为产品有大件也有小件，标注需要来回调

这个我也不会