增强标注-不同图框自动更改全局比例

SunSpring

用了AutoCAD Mechanical一段时间,觉得增强标注不错,在论坛上没找到相关程序,于是自己用Lisp写了一个.
支持dli,dra,dal,ddi,dor,dan等常用标注命令.在不同比例的图框中自动切换全局比例.
图框名为GB_A*,可以在程序中修改.比例根据块比例得到.




赠送:选图框自动根据图框比例修改图框内全部标注全局比例
增加对文字高度,线型比例,填充线比例支持.

2. (defun c:ds ( / entdata entgrp entname n ptlist scale)
   
3.   (prompt "根据图框比例自动改变图框内所有标注全局比例")
   
4.   (if (setq entname (entsel))
   
5.     (if (= "INSERT" (cdr (assoc 0 (entget (car entname)))))
   
6.       (progn
   
7.         (setq ptlist (ax:getboundingbox (car entname)))
   
8.         (setq entgrp (ssget "W" (car ptlist) (cadr ptlist) '((0 . "DIMENSION"))))
   
9.         (setq entdata (entget (car entname)))
   
10.         (setq scale (cdr (assoc 41 entdata)))
    
11.         (repeat (setq n (sslength entgrp))
    
12.           (setq entname (ssname entgrp (setq n (1- n))))
    
13.           (vla-put-ScaleFactor (vlax-ename->vla-object entname) scale)
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:ds ( / entdata entgrp entname n ptlist scale)<br />   (prompt "根据图框比例自动改变图框内所有标注全局比例")<br />   (if (setq entname (entsel))<br />     (if (= "INSERT" (cdr (assoc 0 (entget (car entname)))))<br />       (progn<br />         (setq ptlist (ax:getboundingbox (car entname)))<br />         (setq entgrp (ssget "W" (car ptlist) (cadr ptlist) '((0 . "DIMENSION"))))<br />         (setq entdata (entget (car entname)))<br />         (setq scale (cdr (assoc 41 entdata)))<br />         (repeat (setq n (sslength entgrp))<br />           (setq entname (ssname entgrp (setq n (1- n))))<br />           (vla-put-ScaleFactor (vlax-ename->vla-object entname) scale)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

429014673

总感觉这样不好，标注样式的全局比例一时一个样，全变了，当别人没有这个程序，人家改图的时候变得困难，最起码得建个村注样式，全局比例就是固定的那个(不能把某个标注样式，全局比例有好几个吧)，不能方便自己，为难别人呀，人家会说这是垃圾图的。（另外，楼主后面那个程序不会用，出个GIF吧）

hutengfei

楼主可以考虑研究一下“注释性”，配合"布局"  标注、文字、引线、线条的比例问题都不是问题了

zhangrunze

huxu823 发表于 2024-4-20 09:54
我找到原因了，标注--文字--文字外观--文字样式里的字高必须设置成0，否则标注随图框变化时，字高不变！

不懂怎么加~
不知道这个是不是~
先贴下~

2. (defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)
   
3.   (setq RValue(vl-catch-all-apply  '(lambda()
   
4.     (vla-put-Height
   
5.       (vla-item
   
6.       (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))
   
7.       TextStyles
   
8.       )
   
9.       Height
   
10.     )
    
11.   )))
    
12. (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)  RValue);返回值
    
13. )

(defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)<br />   (setq RValue(vl-catch-all-apply  '(lambda()<br />     (vla-put-Height<br />       (vla-item<br />       (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))<br />       TextStyles<br />       )<br />       Height<br />     )<br />   ))) <br /> (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)  RValue);返回值<br /> )

hao3ren

不同比例等于缩放图块比例？

SunSpring

hao3ren 发表于 2013-1-13 13:11
不同比例等于缩放图块比例？

图框比例就等于图框块缩放比例.

davide888

感觉不错  下来学习

Q1241274614

不错，下载看看！

bai2000

楼主，能不能改下：套图库后自动缩放原有尺寸比例？

love12314

留个脚印。。

长风（尚品）

我试了怎么不成功？

SunSpring

长风（尚品） 发表于 2013-1-14 12:33
我试了怎么不成功？

请注意一下块名是否和程序内的一致,如不一至,请更改程序或你的块名.图框块名程序内为"GB_A*".

davide888

bai2000 发表于 2013-1-13 16:32
楼主，能不能改下：套图库后自动缩放原有尺寸比例？

想法不错  全自动化了