标注样式的快速修改

726613

如何用LISP编写程序快速修改：
文字样式：设为“standerd"；
文字颜色：设为“byblock"；
文字高度：设为“1“；
文字位置：  垂直项 设为“置中”；水平项 设为“置中”；
文字对齐：设“水平”
   


(defun c:tt ()
(command  "celtype" "bylayer"  
                    "color" "bylayer"
                    "style" "Standard" "宋体" "0" "0.7" "0" "n" "n"      
                     “DIMTXSTY”   "STANDARD"
                       ”DIMTXT“   “1.0“）
   (princ)
)

              

669423907

论坛有很多现成的了：

;(defun S::STARTUP()
(defun c:bz()

(setvar "cmdecho" 0)
;(setvar "clayer" "标注层")

(if (= first_time nil)
        (progn
                (command "style" "yanming_1" "楷体_GB2312" "100" "1" "0" "n" "n")
                (command "style" "yanming_2" "迷你简雕刻" "100" "1" "0" "n" "n")
                (command "style" "yanming_3" "方正彩云简体" "100" "1" "0" "n" "n")


                ;;;;;(setvar "dimadec" 0);;;控制角度标注中显示精度的小数位数
                ;;;;;(setvar "dimalt" );;;控制标注中的换算单位的显示,初始值: 关
                ;;;;;(setvar "dimaltd" );;;控制换算单位中的小数位数
                ;;;;;(setvar "dimaltf" 25.4000);;;控制换算单位的乘数
                ;;;;;(setvar "dimaltu" 2);;;设置所有标注子样式（角度标注除外）的换算单位的单位格式
                ;;;;;(setvar "dimarcsym" 0);;;控制弧长标注中圆弧符号的显示
                (setvar "dimasz" 100);;;控制尺寸线和引线箭头的大小。并控制基线的大小
                ;;;;;(setvar "dimatfit" 3);;;尺寸界线内的空间不足以同时放下标注文字和箭头时，此系统变量将确定这两者的排列方式
                ;;;;;(setvar "dimaunit" 0);;;设置角度标注的单位格式
                (setvar "dimblk" "_OBLIQUE");;;设置尺寸线末端显示的箭头块
                ;;;;;(setvar "dimblk1" ".");;;设置尺寸线第一个端点的箭头（当 DIMSAH 开时）。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。
                ;;;;;(setvar "dimblk2" ".");;;设置尺寸线第二个端点的箭头（当 DIMSAH 开时）。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。
                (setvar "dimclrd" 256);;;为尺寸线、箭头和标注引线指定颜色。
                (setvar "dimclre" 256);;;为尺寸界线指定颜色。颜色数显示在“选择颜色”对话框中。对于“随块”，输入 0。对于“随层”，输入 256。
                (setvar "dimdec" 0);;;设置标注主单位中显示的小数位数。精度基于选定的单位或角度格式
                ;;;;;(setvar "dimdsep");;;指定创建单位格式为十进制的标注时要使用的单字符小数分隔符
                ;;;;;(setvar "dimrnd"0.000);;;将所有标注距离舍入到指定值
                (setvar "dimclrt" 2);;;为标注文字指定颜色。此颜色可以是任意有效的颜色编号。
                (setvar "dimtfill" 0);;;控制标注文字的背景
                (setvar "dimtfillclr" 7);;;设置标注中文字背景的颜色。颜色数显示在“选择颜色”对话框中。对于“随块”，输入 0。对于“随层”，输入 256
                (setvar "dimgap" 25);;;尺寸线分成两段从而将标注文字放置在两段之间时，设置标注文字周围的距离
                ;;;;;(setvar "dimdle" 0.0000);;;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
                (setvar "dimexo" 50);;;指定尺寸界线偏离原点的距离。对于固定长度的尺寸界线，此值将决定最小偏移量
                ;;;;;(setvar "dimexe" 50);;;指定尺寸线超出尺寸界线的距离
                ;;;;;(setvar "dimfxl" 1.0000);;;设置尺寸界线的总长度，起始于尺寸线，直到标注原点。以图形单位设置长度
                ;;;;;(setvar "dimfxlon" );;;控制是否将尺寸界线设置为固定长度。DIMFXLON 打开时，尺寸界线设置为 DIMFXL 指定的长度
                ;;;;;(setvar "dimjust" 0);;;控制标注文字的水平位置
                (setvar "dimldrblk" "_OPEN30");;;指定引线箭头的类型。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)
                ;;;;;(setvar "dimsah" );;;控制尺寸线箭头块的显示
                ;;;;;(setvar "dimsd1" );;;控制是否显示第一条尺寸线和箭头
                ;;;;;(setvar "dimsd2" );;;控制是否显示第二条尺寸线和箭头
                ;;;;;(setvar "dimse1" );;;控制是否禁止显示第一条尺寸界线
                ;;;;;(setvar "dimse2" );;;控制是否禁止显示第二条尺寸界线
                ;;;;;(setvar "dimsoxd" );;;如果尺寸界线内没有足够的空间，则隐藏箭头
                ;;;;;(setvar "dimtad" 0);;;控制文字相对于尺寸线的垂直位置
                ;;;;;(setvar "dimtih" );;;控制所有标注类型（坐标标注除外）的标注文字在尺寸界线内的位置
                ;;;;;(setvar "DIMTIX" 1);;;尺寸界线之间绘制文字
                (setvar "dimtxsty" "yanming_1");;;指定标注的文字样式
                ;(setvar "dimtxt" 100);;;指定标注文字的高度（除非当前文字样式具有固定的高度）。
                (command "dimstyle" "s" "yanming_1")



                ;;;;;(setvar "dimadec" 0);;;控制角度标注中显示精度的小数位数
                ;;;;;(setvar "dimalt" );;;控制标注中的换算单位的显示,初始值: 关
                ;;;;;(setvar "dimaltd" );;;控制换算单位中的小数位数
                ;;;;;(setvar "dimaltf" 25.4000);;;控制换算单位的乘数
                ;;;;;(setvar "dimaltu" 2);;;设置所有标注子样式（角度标注除外）的换算单位的单位格式
                ;;;;;(setvar "dimarcsym" 0);;;控制弧长标注中圆弧符号的显示
                (setvar "dimasz" 100);;;控制尺寸线和引线箭头的大小。并控制基线的大小
                ;;;;;(setvar "dimatfit" 3);;;尺寸界线内的空间不足以同时放下标注文字和箭头时，此系统变量将确定这两者的排列方式
                ;;;;;(setvar "dimaunit" 0);;;设置角度标注的单位格式
                (setvar "dimblk" "_OBLIQUE");;;设置尺寸线末端显示的箭头块
                ;;;;;(setvar "dimblk1" ".");;;设置尺寸线第一个端点的箭头（当 DIMSAH 开时）。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。
                ;;;;;(setvar "dimblk2" ".");;;设置尺寸线第二个端点的箭头（当 DIMSAH 开时）。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。
                (setvar "dimclrd" 256);;;为尺寸线、箭头和标注引线指定颜色。
                (setvar "dimclre" 256);;;为尺寸界线指定颜色。颜色数显示在“选择颜色”对话框中。对于“随块”，输入 0。对于“随层”，输入 256。
                (setvar "dimdec" 0);;;设置标注主单位中显示的小数位数。精度基于选定的单位或角度格式
                ;;;;;(setvar "dimdsep");;;指定创建单位格式为十进制的标注时要使用的单字符小数分隔符
                ;;;;;(setvar "dimrnd"0.000);;;将所有标注距离舍入到指定值
                (setvar "dimclrt" 2);;;为标注文字指定颜色。此颜色可以是任意有效的颜色编号。
                (setvar "dimtfill" 0);;;控制标注文字的背景
                (setvar "dimtfillclr" 7);;;设置标注中文字背景的颜色。颜色数显示在“选择颜色”对话框中。对于“随块”，输入 0。对于“随层”，输入 256
                (setvar "dimgap" 25);;;尺寸线分成两段从而将标注文字放置在两段之间时，设置标注文字周围的距离
                ;;;;;(setvar "dimdle" 0.0000);;;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
                (setvar "dimexo" 50);;;指定尺寸界线偏离原点的距离。对于固定长度的尺寸界线，此值将决定最小偏移量
                ;;;;;(setvar "dimexe" 50);;;指定尺寸线超出尺寸界线的距离
                ;;;;;(setvar "dimfxl" 1.0000);;;设置尺寸界线的总长度，起始于尺寸线，直到标注原点。以图形单位设置长度
                ;;;;;(setvar "dimfxlon" );;;控制是否将尺寸界线设置为固定长度。DIMFXLON 打开时，尺寸界线设置为 DIMFXL 指定的长度
                ;;;;;(setvar "dimjust" 0);;;控制标注文字的水平位置
                (setvar "dimldrblk" "_OPEN30");;;指定引线箭头的类型。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)
                ;;;;;(setvar "dimsah" );;;控制尺寸线箭头块的显示
                ;;;;;(setvar "dimsd1" );;;控制是否显示第一条尺寸线和箭头
                ;;;;;(setvar "dimsd2" );;;控制是否显示第二条尺寸线和箭头
                ;;;;;(setvar "dimse1" );;;控制是否禁止显示第一条尺寸界线
                ;;;;;(setvar "dimse2" );;;控制是否禁止显示第二条尺寸界线
                ;;;;;(setvar "dimsoxd" );;;如果尺寸界线内没有足够的空间，则隐藏箭头
                ;;;;;(setvar "dimtad" 0);;;控制文字相对于尺寸线的垂直位置
                ;;;;;(setvar "dimtih" );;;控制所有标注类型（坐标标注除外）的标注文字在尺寸界线内的位置
                ;;;;;(setvar "DIMTIX" 1);;;尺寸界线之间绘制文字
                (setvar "dimtxsty" "yanming_2");;;指定标注的文字样式
                ;(setvar "dimtxt" 100);;;指定标注文字的高度（除非当前文字样式具有固定的高度）。
                (command "dimstyle" "s" "yanming_2")



                ;;;;;(setvar "dimadec" 0);;;控制角度标注中显示精度的小数位数
                ;;;;;(setvar "dimalt" );;;控制标注中的换算单位的显示,初始值: 关
                ;;;;;(setvar "dimaltd" );;;控制换算单位中的小数位数
                ;;;;;(setvar "dimaltf" 25.4000);;;控制换算单位的乘数
                ;;;;;(setvar "dimaltu" 2);;;设置所有标注子样式（角度标注除外）的换算单位的单位格式
                ;;;;;(setvar "dimarcsym" 0);;;控制弧长标注中圆弧符号的显示
                (setvar "dimasz" 100);;;控制尺寸线和引线箭头的大小。并控制基线的大小
                ;;;;;(setvar "dimatfit" 3);;;尺寸界线内的空间不足以同时放下标注文字和箭头时，此系统变量将确定这两者的排列方式
                ;;;;;(setvar "dimaunit" 0);;;设置角度标注的单位格式
                (setvar "dimblk" "_OBLIQUE");;;设置尺寸线末端显示的箭头块
                ;;;;;(setvar "dimblk1" ".");;;设置尺寸线第一个端点的箭头（当 DIMSAH 开时）。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。
                ;;;;;(setvar "dimblk2" ".");;;设置尺寸线第二个端点的箭头（当 DIMSAH 开时）。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。
                (setvar "dimclrd" 256);;;为尺寸线、箭头和标注引线指定颜色。
                (setvar "dimclre" 256);;;为尺寸界线指定颜色。颜色数显示在“选择颜色”对话框中。对于“随块”，输入 0。对于“随层”，输入 256。
                (setvar "dimdec" 0);;;设置标注主单位中显示的小数位数。精度基于选定的单位或角度格式
                ;;;;;(setvar "dimdsep");;;指定创建单位格式为十进制的标注时要使用的单字符小数分隔符
                ;;;;;(setvar "dimrnd"0.000);;;将所有标注距离舍入到指定值
                (setvar "dimclrt" 2);;;为标注文字指定颜色。此颜色可以是任意有效的颜色编号。
                (setvar "dimtfill" 0);;;控制标注文字的背景
                (setvar "dimtfillclr" 7);;;设置标注中文字背景的颜色。颜色数显示在“选择颜色”对话框中。对于“随块”，输入 0。对于“随层”，输入 256
                (setvar "dimgap" 25);;;尺寸线分成两段从而将标注文字放置在两段之间时，设置标注文字周围的距离
                ;;;;;(setvar "dimdle" 0.0000);;;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
                (setvar "dimexo" 50);;;指定尺寸界线偏离原点的距离。对于固定长度的尺寸界线，此值将决定最小偏移量
                ;;;;;(setvar "dimexe" 50);;;指定尺寸线超出尺寸界线的距离
                ;;;;;(setvar "dimfxl" 1.0000);;;设置尺寸界线的总长度，起始于尺寸线，直到标注原点。以图形单位设置长度
                ;;;;;(setvar "dimfxlon" );;;控制是否将尺寸界线设置为固定长度。DIMFXLON 打开时，尺寸界线设置为 DIMFXL 指定的长度
                ;;;;;(setvar "dimjust" 0);;;控制标注文字的水平位置
                (setvar "dimldrblk" "_OPEN30");;;指定引线箭头的类型。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)
                ;;;;;(setvar "dimsah" );;;控制尺寸线箭头块的显示
                ;;;;;(setvar "dimsd1" );;;控制是否显示第一条尺寸线和箭头
                ;;;;;(setvar "dimsd2" );;;控制是否显示第二条尺寸线和箭头
                ;;;;;(setvar "dimse1" );;;控制是否禁止显示第一条尺寸界线
                ;;;;;(setvar "dimse2" );;;控制是否禁止显示第二条尺寸界线
                ;;;;;(setvar "dimsoxd" );;;如果尺寸界线内没有足够的空间，则隐藏箭头
                ;;;;;(setvar "dimtad" 0);;;控制文字相对于尺寸线的垂直位置
                ;;;;;(setvar "dimtih" );;;控制所有标注类型（坐标标注除外）的标注文字在尺寸界线内的位置
                ;;;;;(setvar "DIMTIX" 1);;;尺寸界线之间绘制文字
                (setvar "dimtxsty" "yanming_3");;;指定标注的文字样式
                ;(setvar "dimtxt" 100);;;指定标注文字的高度（除非当前文字样式具有固定的高度）。
                (command "dimstyle" "s" "yanming_3")



                (setq first_time 0)
        )
)


(prin1)
)
(prompt "\n*****<<bz>>*****标注样式\n")

999999

非常的详细，谢谢大神们的分享

王航

669423907 发表于 2013-5-14 22:02
论坛有很多现成的了：

;(defun S::STARTUP()

解释的非常透彻，谢谢！

tranney

蛮好的，最近一直在学习这个

726613

把贴顶起来

davide888

非常感谢   

zgxwychengg

学习了，谢谢

jyzas

有些系统变量04版的不存在出错

skg123

669423907 发表于 2013-5-14 22:02
论坛有很多现成的了：

;(defun S::STARTUP()

很全面，楼主辛苦

skg123

669423907 发表于 2013-5-14 22:02
论坛有很多现成的了：

;(defun S::STARTUP()

很全面，楼主辛苦。