本文共 4849 字,大约阅读时间需要 16 分钟。
以前写的,贡献给大家吧!
[PHP] ;;建立标准样式,分号后为对应系统变量及注释 (DEFUN C:DSTY (/ DIMSTY DIMNAMESTR BLTEXT DIMNAME BLNUM CHK_DIMSTYLE DIMSET BLOCK DIMPROMPT ) (PRINC "\n按建筑&结构要求设置标准样式!标注样式的前缀为\"BL_1-\":") (IF (NOT (TBLSEARCH "STYLE" "DIM_STYLE")) ;建立标准的文字样式 (ENTMAKE (LIST '(0 . "STYLE") ;对象名称 '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord" ) ;子类标记 '(2 . "DIM_STYLE") ;字体样式名 '(70 . 0) ;标注位码 '(40 . 0.0) ;文字高度 '(41 . 0.8) ;宽度系数 '(50 . 0.0) ;字斜角 '(71 . 0) ;文字生成标注位码2=反向,4=颠倒 '(3 . "TSSDENG.shx") ;西文字体名 '(4 . "HZTXT.shx") ;中文字体名 ) ;_ 结束LIST ) ;_ 结束ENTMAKE ) (SETQ DIMNAMESTR "BL_1-") (SETQ BLTEXT (GETSTRING "\n请输入你要建立的标注比例 1: ")) (IF (/= BLTEXT "") (PROGN ; (SETQ DIMNAME (STRCAT DIMNAMESTR BLTEXT)) (SETQ BLNUM (ATOI BLTEXT)) (SETQ CHK_DIMSTYLE (TBLSEARCH "DIMSTYLE" DIMNAME)) (IF (= CHK_DIMSTYLE NIL) (PROGN (SETQ DIMSET (LIST '(0 . "DIMSTYLE") '(100 . "AcDbSymbolTableRecord" ) '(100 . "AcDbDimStyleTableRecord" ) (CONS 2 DIMNAME) ;标注样式名 '(3 . "") ;"DIMPOST" 指定标注测量值的文字前缀或后缀(或者两者都指定) '(4 . "") ;"DIMAPOST" 为所有标注类型(角度标注除外)的换算标注测量值指定文字前缀或后缀(或两者都指定)。 '(40 . 1) ;"DIMSCALE" 为标注变量(指定尺寸、距离或偏移量)设置全局比例因子。 '(41 . 1.0) ;"DIMASZ" 控制尺寸线、引线箭头的大小 '(42 . 3.0) ;"DIMEXO" 指定尺寸界线偏移原点的距离。 ;'(43 . 3.0);"DIMDLI" 控制基线标注中尺寸线的间距。 '(44 . 1.0) ;"DIMEXE"指定尺寸界线超出尺寸线的距离 '(45 . 0.0) ;"DIMRND" 将所有标注距离舍入到指定值 '(46 . 0.0) ;"DIMDLE" 当使用小斜线代替箭头进行标注时,设置尺寸线超出尺寸界线的距离 ;'(47 . 0.0);"DIMTP" 在 DIMTOL 或 DIMLIM 系统变量设置为开的情况下,为标注文字设置最大(上)偏差。 ;'(48 . 0.0);"DIMTM" 为标注文字设置最小(下)偏差 '(70 . 32) ;"DIMTOL" 将公差附在标注文字之后 '(71 . 0) ;"DIMLIM" 将极限尺寸生成为默认文字。将 DIMLIM 设置为“开”将关闭 DIMTOL 系统变量。 '(73 . 0) ;"DIMTIH" 控制所有标注类型(坐标标注除外)的标注文字在尺寸界线内的位置 '(74 . 0) ;"DIMTOH" 控制标注文字在尺寸界线外的位置 '(75 . 0) ;"DIMSE1" 控制是否禁止显示第一条尺寸界线 '(76 . 0) ;"DIMSE2" 控制是否禁止显示第二条尺寸界线 '(77 . 1) ;"DIMTAD" 控制文字相对尺寸线的垂直位置 '(78 . 0) ;"DIMZIN" 控制是否对主单位值作消零处理 '(79 . 0) ;"DIMAZIN" 对角度标注作消零处理 '(140 . 3.0) ;"DIMTXT" 指定标注文字的高度,除非当前文字样式具有固定的高度 '(141 . 0.1) ;"DIMCEN" 圆或圆弧的圆心标记和中心线图形 '(142 . 0.0) ;"DIMTSZ" 指定线性标注、半径标注以及直径标注中替代箭头的小斜线尺寸 '(143 . 25.4) ;"DIMALTF" 控制换算单位乘数 (CONS 144 BLNUM) ;"DIMLFAC" 设置线性标注测量值的比例因子 '(145 . 0.0) ;"DIMTVP" 控制尺寸线上方或下方标注文字的垂直位置 '(146 . 1.0) ;"DIMTFAC" 按照 DIMTXT 系统变量的设置,相对于标注文字高度给分数值和公差值的文字高度指定比例因子 '(147 . 1.0) ;"DIMGAP" 当尺寸线分成段以在两段之间放置标注文字时,设置标注文字周围的距离 '(148 . 0.0) ;"DIMALTRND" 舍入换算标注单位 '(170 . 0) ;"DIMALT" 控制标注中换算单位的显示 '(171 . 2) ;"DIMALTD" 控制换算单位中小数位的位数 '(172 . 1) ;"DIMTOFL" 控制是否将尺寸线绘制在尺寸界线之间(即使文字放置在尺寸界线之外)。 '(173 . 0) ;"DIMSAH" 控制尺寸线箭头块的显示 '(174 . 1) ;"DIMTIX" 在尺寸界线之间绘制文字 '(175 . 0) ;"DIMSOXD" 控制是否允许尺寸线绘制到尺寸界线之外 '(176 . 2) ;"DIMCLRD" 为尺寸线、箭头和标注引线指定颜色 '(177 . 2) ;"DIMCLRE" 为尺寸界线指定颜色 '(178 . 0) ;"DIMCLRT" 为标注文字指定颜色 '(179 . 0) ;"DIMADEC" 控制角度标注的显示精确位数。 '(271 . 0) ;;;<<<"DIMDEC" 设置标注主单位显示的小数位位数 ' (272 . 0) ;"DIMTDEC" 为标注主单位的公差值设置显示的小数位位数 '(273 . 2) ;"DIMALTU" 为所有标注样式族(角度标注除外)换算单位设置单位格式 '(274 . 2) ;"DIMALTTD" 设置标注换算单位公差值小数位的位数 '(275 . 0) ;"DIMAUNIT" 设置角度标注的单位格式 '(276 . 0) ;"DIMFRAC" 在 DIMLUNIT 系统变量设置为 4(建筑)或 5(分数)时设置分数格式 '(277 . 2) ;"DIMLUNIT" 为所有标注类型(除角度标注外)设置单位制 '(279 . 2) ;"DIMTMOVE" 设置标注文字的移动规则 '(280 . 0) ;"DIMJUST" 控制标注文字的水平位置 '(281 . 0) ;"DIMSD1" 控制是否禁止显示第一条尺寸线 '(282 . 0) ;"DIMSD2" 控制是否禁止显示第二条尺寸线 '(283 . 1) ;"DIMTOLJ" 设置公差值相对名词性标注文字的垂直对正方式 '(284 . 0) ;"DIMTZIN" 控制是否对公差值作消零处理 '(285 . 0) ;"DIMALTZ" 控制是否对换算单位标注值作消零处理 '(286 . 0) ;"DIMALTTZ" 控制是否对公差值作消零处理 '(288 . 0) ;"DIMUPT" 控制用户定位文字的选项 '(289 . 3) ;"DIMATFIT" 当尺寸界线的空间不足以同时放下标注文字和箭头时,本系统变量将确定这两者的排列方式 '(371 . -2) ;"DIMLWD"(线宽枚举值) 指定尺寸线的线宽。其值是标准线宽。-3 BYLAYER -2 BYBLOCK '(372 . -2) ;"DIMLWE"(线宽枚举值) 指定尺寸界线的线宽。其值是标准线宽。-3 BYLAYER -2 BYBLOCK ) ; ) (SetQ DIMSTY (TblObjName "STYLE" "DIM_STYLE")) (SETVAR "DIMBLK" "_ARCHTICK") ;加载_ARCHTICK块 (SetQ BLOCK (Cdr (Assoc 330 (EntGet (TblObjName "BLOCK" "_ARCHTICK")))) ) (SetQ DIMSET (Append DIMSET (List (Cons 340 DIMSTY) (Cons 342 BLOCK))) ) (EntMakeX DIMSET) ) (PROGN (SETQ BLNUM (CDR (ASSOC 144 (ENTGET (TBLOBJNAME "DIMSTYLE" DIMNAME))))) (SETQ BLTEXT (RTOS BLNUM 2 1)) (SETQ DIMPROMPT (STRCAT "标注样式\"" DIMNAME "\"已经存在," "全局比例为1:" BLTEXT "," "请重新输入比例建立样式!" ) ) (ALERT DIMPROMPT) ) ) ) ) (COMMAND ".-DIMSTYLE" "R" DIMNAME) (PRINC) ) [/PHP]转:晓东CAD: http://bbs.xdcad.net/thread-84671-1-1.html
命令: (tblsearch "dimstyle" "iso-25")
((0 . "DIMSTYLE") (2 . "ISO-25") (70 . 0) (3 . "") (4 . "") (5 . "") (6 . "") (7 . "") (40 . 1.0) (41 . 2.5) (42 . 0.625) (43 . 3.75) (44 . 1.25) (45 . 0.0) (46 . 0.0) (47 . 0.0) (48 . 0.0) (140 . 2.5) (141 . 2.5) (142 . 0.0) (143 . 0.0393701) (144 . 1.0) (145 . 0.0) (146 . 1.0) (147 . 0.625) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0) (76 . 0) (77 . 1) (78 . 8) (170 . 0) (171 . 3) (172 . 1) (173 . 0) (174 . 0) (175 . 0) (176 . 0) (177 . 0) (178 . 0) (270 . 2) (271 . 2) (272 . 2) (273 . 2) (274 . 3) (340 . <图元名: 40090c88>) (275 . 0) (280 . 0) (281 . 0) (282 . 0) (283 . 0) (284 . 8) (285 . 0) (286 . 0) (287 . 3) (288 . 0))http://www.ceesky.com/book/cad2011/filesDXF/WS1a9193826455f5ff18cb41610ec0a2e719-7a53.htm
https://wenku.baidu.com/view/8499fed276a20029bd642d1c.html
转载地址:http://ndemi.baihongyu.com/