本帖最后由 SunSpring 于 2013-9-10 16:52 编辑
用了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)
- )
|