批量偏移尺寸的OFFSET

Lisphk

1. (defun c:Test (/ gp sel in sn)
   
2.   (vl-load-com)
   
3.   (if (not acdoc)
   
4.     (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
   
5.   )
   
6.   (if (and (setq gp (getdist "\n Specify Text gap <offset> :"))
   
7.            (setq sel (ssget "_:L" '((0 . "*DIMENSION"))))
   
8.       )
   
9.     (progn
   
10.       (vla-StartUndoMark acdoc)
    
11.       (repeat (setq in (sslength sel))
    
12.         (setq sn (ssname sel (setq in (1- in))))
    
13.         (vla-put-textgap (vlax-ename->vla-object sn) gp)
    
14.       )
    
15.       (vla-endUndoMark acdoc)
    
16.     )
    
17.     (princ)
    
18.   )
    
19.   (princ)
    
20. )
    

(defun c:Test (/ gp sel in sn)<br />   (vl-load-com)<br />   (if (not acdoc)<br />     (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))<br />   )<br />   (if (and (setq gp (getdist "\n Specify Text gap <offset> :"))<br />            (setq sel (ssget "_:L" '((0 . "*DIMENSION"))))<br />       )<br />     (progn<br />       (vla-StartUndoMark acdoc)<br />       (repeat (setq in (sslength sel))<br />         (setq sn (ssname sel (setq in (1- in))))<br />         (vla-put-textgap (vlax-ename->vla-object sn) gp)<br />       )<br />       (vla-endUndoMark acdoc)<br />     )<br />     (princ)<br />   )<br />   (princ)<br /> )<br />

aeo

应该在样式里面改呀

如果是单独改，夹点不就可以？

newer

aeo 发表于 2017-12-10 22:24

夹点不就不能批量了嘛。改样式，就都改了，这个可以挑选想改的，其实就是加override.

kqqt6236

谢谢分享。