本帖最后由 SunSpring 于 2013-9-10 16:52 编辑
用了AutoCAD Mechanical一段时间,觉得增强标注不错,在论坛上没找到相关程序,于是自己用Lisp写了一个.
支持dli,dra,dal,ddi,dor,dan等常用标注命令.在不同比例的图框中自动切换全局比例.
图框名为GB_A*,可以在程序中修改.比例根据块比例得到.
赠送:选图框自动根据图框比例修改图框内全部标注全局比例
增加对文字高度,线型比例,填充线比例支持.
网友答: 总感觉这样不好，标注样式的全局比例一时一个样，全变了，当别人没有这个程序，人家改图的时候变得困难，最起码得建个村注样式，全局比例就是固定的那个(不能把某个标注样式，全局比例有好几个吧)，不能方便自己，为难别人呀，人家会说这是垃圾图的。（另外，楼主后面那个程序不会用，出个GIF吧）网友答:
楼主可以考虑研究一下“注释性”，配合"布局" 标注、文字、引线、线条的比例问题都不是问题了网友答:
本帖最后由 zhangrunze 于 2024-4-20 12:02 编辑
不懂怎么加~
不知道这个是不是~
先贴下~
网友答: 不同比例等于缩放图块比例？网友答:
图框比例就等于图框块缩放比例.网友答: 感觉不错 下来学习网友答: 不错，下载看看！网友答: 楼主，能不能改下：套图库后自动缩放原有尺寸比例？网友答: 留个脚印。。网友答: 我试了怎么不成功？网友答:
请注意一下块名是否和程序内的一致,如不一至,请更改程序或你的块名.图框块名程序内为"GB_A*".网友答:
想法不错 全自动化了
用了AutoCAD Mechanical一段时间,觉得增强标注不错,在论坛上没找到相关程序,于是自己用Lisp写了一个.
支持dli,dra,dal,ddi,dor,dan等常用标注命令.在不同比例的图框中自动切换全局比例.
图框名为GB_A*,可以在程序中修改.比例根据块比例得到.
赠送:选图框自动根据图框比例修改图框内全部标注全局比例
增加对文字高度,线型比例,填充线比例支持.
- (defun c:ds ( / entdata entgrp entname n ptlist scale)
- (prompt "根据图框比例自动改变图框内所有标注全局比例")
- (if (setq entname (entsel))
- (if (= "INSERT" (cdr (assoc 0 (entget (car entname)))))
- (progn
- (setq ptlist (ax:getboundingbox (car entname)))
- (setq entgrp (ssget "W" (car ptlist) (cadr ptlist) '((0 . "DIMENSION"))))
- (setq entdata (entget (car entname)))
- (setq scale (cdr (assoc 41 entdata)))
- (repeat (setq n (sslength entgrp))
- (setq entname (ssname entgrp (setq n (1- n))))
- (vla-put-ScaleFactor (vlax-ename->vla-object entname) scale)
- )
- )
- )
- )
- (princ)
- )
网友答: 总感觉这样不好，标注样式的全局比例一时一个样，全变了，当别人没有这个程序，人家改图的时候变得困难，最起码得建个村注样式，全局比例就是固定的那个(不能把某个标注样式，全局比例有好几个吧)，不能方便自己，为难别人呀，人家会说这是垃圾图的。（另外，楼主后面那个程序不会用，出个GIF吧）网友答:
楼主可以考虑研究一下“注释性”，配合"布局" 标注、文字、引线、线条的比例问题都不是问题了网友答:
本帖最后由 zhangrunze 于 2024-4-20 12:02 编辑 huxu823 发表于 2024-4-20 09:54
我找到原因了，标注--文字--文字外观--文字样式里的字高必须设置成0，否则标注随图框变化时，字高不变！
不懂怎么加~
不知道这个是不是~
先贴下~
- (defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)
- (setq RValue(vl-catch-all-apply '(lambda()
- (vla-put-Height
- (vla-item
- (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))
- TextStyles
- )
- Height
- )
- )))
- (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue) RValue);返回值
- )
网友答: 不同比例等于缩放图块比例？网友答:
hao3ren 发表于 2013-1-13 13:11
不同比例等于缩放图块比例？
图框比例就等于图框块缩放比例.网友答: 感觉不错 下来学习网友答: 不错，下载看看！网友答: 楼主，能不能改下：套图库后自动缩放原有尺寸比例？网友答: 留个脚印。。网友答: 我试了怎么不成功？网友答:
长风（尚品） 发表于 2013-1-14 12:33
我试了怎么不成功？
请注意一下块名是否和程序内的一致,如不一至,请更改程序或你的块名.图框块名程序内为"GB_A*".网友答:
bai2000 发表于 2013-1-13 16:32
楼主，能不能改下：套图库后自动缩放原有尺寸比例？
想法不错 全自动化了