(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(princ "\n请选择要修改的标注")
(setq ss (ssget '((0 . "DIMENSION"))))
(if (/= ss nil)
(progn
(setq i 0)
(repeat 漏兄(sslength ss)
(setq ss1 (entget (ssname ss i))
i (+ i 1)
h1 (rtos (cdr (assoc 42 ss1)) 2 2)取得标注数值；返游袭最后一个2表示小数点后2位
h2 (assoc 1 ss1)
磨绝 h1 (strcat "\\A1\\U+00D8" h1 "{\\H0.7x\\S+0.005^+0.002}")替换的内容
h1 (cons 1 h1)
ss1 (subst h1 h2 ss1))
(entmod ss1)
)
)
)
(prin1)
)
框选你要修改的标注，来修改你要的数值。替换内容是第一个是直径，第二个是数值，第三个是你要的差值。根据需要来修改。
1.输入命令【dimstyle】，在文字里面修改标注文数弊行字高度。
修改标注样式文字高度
2.单个标注的文字高度修改，可以使用autolisp来实现，代码如下：【注意英文打字】
修改文字及标注文字高度
(defun C:w1 ( / &k1 &kw1 &n1 &ob1)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(if (null vlax-dump-object) (vl-load-com) )
(if (null #n#1) (setq #n#1 300) )
(initget 6)
(if (setq &n1 (getdist (strcat "\n请输入文字高度或默认:<" (rtos #n#1) ">")))
(setq #n#1 &n1)
(setq &n1 #n#1)
)
(while (setq &kw1 (ssget ":s" '薯哗((0 . "TEXT,MTEXT,DIMENSION"))))
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &卜返kw1))
(setq &ob1 (vlax-ename->vla-object &k1))
(if (member (vla-get-objectname &ob1) '("AcDbMText" "AcDbText"))
(vla-put-Height &ob1 &n1)
(vla-put-TextHeight &ob1 &n1)
)
)
)while
(princ)
)修改文字，多行文字及标注的文字高度
代码复制到记事本用<ANSI>编码，以[.lsp]为后缀如：<w.lsp>命名，文件加载到CAD就可以使用。
3.程序修改文字高度 *** 作方法如下：
程序修改CAD文字高度
Auto CAD常用快捷键命令大全：
Auto CAD绘圆弧快捷键命令——【A】
Auto CAD测量区域和周长快捷键命令——【AA】
Auto CAD对齐快捷键命令——【AL】
Auto CAD提取轮廓快捷键命令——【ALT+MUP】
Auto CAD线性标注ALT+VV4快速创建四个视口快捷键命令——【ALT+NL】
Auto CAD如快速选择快捷键命令——【ALT+TK】
Auto CAD加载*lsp程系快捷键命令——【AP】
Auto CAD阵列快捷键命令——【AR】
Auto CAD打开视图对话框快捷键命令——【AV】
Auto CAD定义块快捷键命令——【B】
Auto CAD画圆快捷键命搭野令——【C】
Auto CAD捕捉到圆心快捷键命令——【CEN】
Auto CAD打开特性对话框快捷键命令——【Ctrl+1】
Auto CAD打开图象慎枝运资源管理器快捷键命令——【Ctrl+2】
Auto CAD打开工具选项板快捷键命令——【Ctrl+3】
Auto CAD打开图象数据原子快捷键命令——【Ctrl+6】
Auto CAD快速计算器快捷键命令——【Ctrl+8或QC】
Auto CAD栅格捕捉模式宽梁控制快捷键命令——【Ctrl+B】
Auto CAD将选择的对象复制到剪切板上快捷键命令——【Ctrl+C】
Auto CAD控制是否实现对象自动捕捉快捷键命令——【Ctrl+F】
Auto CAD栅格显示模式控制快捷键命令——【Ctrl+G】
Auto CAD重复执行上一步命令快捷键命令——【Ctrl+J】
Auto CAD超级链接快捷键命令——【Ctrl+K】
Auto CAD打开选项对话框快捷键命令——【Ctrl+M】
Auto CAD新建图形文件快捷键命令——【Ctrl+N】
Auto CAD打开图象文件快捷键命令——【Ctrl+O】
Auto CAD打开打印对说框快捷键命令——【Ctrl+P】
Auto CAD保存文件快捷键命令——【Ctrl+S】
Auto CAD极轴模式控制快捷键命令——【Ctrl+U】
Auto CAD粘贴剪贴板上的内容快捷键命令——【Ctrl+v】
Auto CAD对象追踪式控制快捷键命令——【Ctrl+W】
Auto CAD剪切所选择的内容快捷键命令——【Ctrl+X】
Auto CAD重做快捷键命令——【Ctrl+Y】
Auto CAD取消前一步的 *** 作快捷键命令——【Ctrl+Z】
Auto CAD尺寸资源管理器快捷键命令——【D】
Auto CAD对齐标注快捷键命令——【DAL】
Auto CAD角度标注快捷键命令——【DAN】
Auto CAD直径标注快捷键命令——【DDI】
Auto CAD测量两点间的距离快捷键命令——【DI】
Auto CAD半径标注快捷键命令——【DRA】
Auto CAD文本的设置快捷键命令——【DT】
Auto CAD删除快捷键命令——【E】
Auto CAD捕捉到端点快捷键命令——【END】
Auto CAD倒圆角快捷键命令——【F】
Auto CAD极轴模式控制快捷键命令——【F10】
Auto CAD对象追踪模式控制快捷键命令——【F11】
Auto CAD实现作图窗和文本窗口的切换快捷键命令——【F2】
Auto CAD控制是否实现对象自动捕捉快捷键命令——【F3】
Auto CAD数字化仪控制快捷键命令——【F4】
Auto CAD等轴测平面切换快捷键命令——【F5】
Auto CAD控制状态行上坐标的显示方式快捷键命令——【F6】
Auto CAD栅格显示模式控制快捷键命令——【F7】
Auto CAD正交模式控制快捷键命令——【F8】
Auto CAD栅格捕捉模式控制快捷键命令——【F9】
Auto CAD对相组合快捷键命令——【G】
Auto CAD填充快捷键命令——【H】
Auto CAD插入快捷键命令——【I】
Auto CAD指定坐标快捷键命令——【ID】
Auto CAD捕捉到交点快捷键命令——【INT】
Auto CAD对接快捷键命令——【J】
Auto CAD直线快捷键命令——【L】
Auto CAD图层管理器快捷键命令——【La】
Auto CAD引线标注快捷键命令——【LE】
Auto CAD指定集体的坐标快捷键命令——【LI】
Auto CAD移动快捷键命令——【M】
Auto CAD捕捉到中点快捷键命令——【MID】
Auto CAD捕捉到最近点快捷键命令——【NEA】
Auto CAD捕捉到节点快捷键命令——【NOD】
Auto CAD偏移快捷键命令——【O】
Auto CAD插入外部对象快捷键命令——【OI】
Auto CAD移动快捷键命令——【P】
Auto CAD捕捉到垂足快捷键命令——【PER】
Auto CAD捕捉到象限点快捷键命令——【QUA】
Auto CAD更新显示快捷键命令——【RE】
Auto CAD旋转快捷键命令——【RO】
Auto CAD拉伸快捷键命令——【S】
Auto CAD缩放比例快捷键命令——【SC】
Auto CAD打开对象自动捕捉对话框快捷键命令——【SE】
Auto CAD栅格捕捉模式设置快捷键命令——【SN】
Auto CAD绘制二围面快捷键命令——【SO】
Auto CAD拼音的校核快捷键命令——【SP】
Auto CAD打开字体设置对话框快捷键命令——【ST】
Auto CAD单行文本输入快捷键命令——【ST】
Auto CAD多行文本输入快捷键命令——【T】
Auto CAD捕捉到切点快捷键命令——【TAN】
Auto CAD恢复上一次 *** 做快捷键命令——【U】
Auto CAD设置当前坐标快捷键命令——【V】
Auto CAD定义块并保存到硬盘中快捷键命令——【W】
Auto CAD炸开快捷键命令——【X】
Auto CAD缩放快捷键命令——【Z】
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）