[讨论]：如何改变标注样示

啵浪鼓

标注样式不可重复写入，不然会取代之前属于此样示的所有标注！

狂刀

怎么回事？是要提要求还是在介绍经验？

啵浪鼓

我想说如何用程序实现：
1，如果未发现ok标注样示，则执行：
(DEFUN c:h ()
(princ "Standard Dimension Load...")
(setvar "cmdecho" 0)
(command "style" "standard" "txt.shx,china.shx" "" "0.7" "" "N" "N" "N")
;(command "dimstyle" "save" "ok" "y")
(if(not(tblsearch "layer" "DIM"))
(command "layer" "new" "DIM" "set" "DIM" "c" "2" "DIM" "")
)
(if(not(tblsearch "layer" "TEXT"))
(command "layer" "new" "TEXT" "set" "TEXT" "c" "2" "TEXT" "")
)
(command
"DIMADEC" "2" ;Angular decimal places
"DIMALT" "Off" ;Alternate units selected
"DIMALTD" "2" ;Alternate unit decimal places
"DIMALTF" "25.40" ;Alternate unit scale factor
"DIMALTRND" "0.00" ;Alternate units rounding value
"DIMALTTD" "2" ;Alternate tolerance decimal places
"DIMALTTZ" "0" ;Alternate tolerance zero suppression
"DIMALTU" "2" ;Alternate units
"DIMALTZ" "0" ;Alternate unit zero suppression
"DIMAPOST" "" ;Prefix and suffix for alternate text
"DIMASZ" "0.4" ;Arrow size
"DIMATFIT" "3" ;Arrow and text fit
"DIMAUNIT" "0" ;Angular unit format
"DIMAZIN" "0" ;Angular zero supression
"DIMBLK" "" ;Arrow block name "ClosedFilled"
"DIMBLK1" "" ;First arrow block name "ClosedFilled"
"DIMBLK2" "" ;Second arrow block name "ClosedFilled"
"DIMCEN" "0.20" ;Center mark size
"DIMCLRD" "2" ;Dimension line and leader color
"DIMCLRE" "2" ;Extension line color
"DIMCLRT" "3" ;Dimension text color
"DIMDEC" "2" ;Decimal places
"DIMDLE" "0.00" ;Dimension line extension
"DIMDLI" "0.38" ;Dimension line spacing
"DIMDSEP" "." ;Decimal separator
"DIMEXE" "0.34" ;Extension above dimension line
"DIMEXO" "0.34" ;Extension line origin offset
"DIMFRAC" "0" ;Fraction format
"DIMGAP" "0.09" ;Gap from dimension line to text
"DIMJUST" "0" ;Justification of text on dimension line
"DIMLDRBLK" "" ;Leader block name "ClosedFilled"
"DIMLFAC" "1.00" ;Linear unit scale factor
"DIMLIM" "Off" ;Generate dimension limits
"DIMLUNIT" "2" ;Linear unit format
"DIMLWD" "-2" ;Dimension line and leader lineweight
"DIMLWE" "-2" ;Extension line lineweight
"DIMPOST" "" ;Prefix and suffix for dimension text
"DIMRND" "0.00" ;Rounding value
"DIMSAH" "Off" ;Separate arrow blocks
"DIMSCALE" "0.00" ;Overall scale factor
"DIMSD1" "Off" ;Suppress the first dimension line
"DIMSD2" "Off" ;Suppress the second dimension line
"DIMSE1" "Off" ;Suppress the first extension line
"DIMSE2" "Off" ;Suppress the second extension line
"DIMSOXD" "Off" ;Suppress outside dimension lines
"DIMTAD" "0" ;Place text above the dimension line
"DIMTDEC" "2" ;Tolerance decimal places
"DIMTFAC" "1.00" ;Tolerance text height scaling factor
"DIMTIH" "Off" ;Text inside extensions is horizontal
"DIMTIX" "Off" ;Place text inside extensions
"DIMTM" "0.00" ;Minus tolerance
"DIMTMOVE" "0" ;Text movement
"DIMTOFL" "Off" ;Force line inside extension lines
"DIMTOH" "Off" ;Text outside horizontal
"DIMTOL" "Off" ;Tolerance dimensioning
"DIMTOLJ" "1" ;Tolerance vertical justification
"DIMTP" "0.00" ;Plus tolerance
"DIMTSZ" "0.00" ;Tick size
"DIMTVP" "0.00" ;Text vertical position
"DIMTXSTY" "standard" ;Text style
"DIMTXT" "1.51" ;Text height
"DIMTZIN" "0" ;Tolerance zero suppression
"DIMUPT" "Off" ;User positioned text
"DIMZIN" "0" ;Zero suppression
)
(command "layer" "set" "DIM" "")
(princ)
)

2，如果ok标注样式已建立，而目前为standard样式，则将ok定义为当前标注样式

上面的程序这段(command "dimstyle" "save" "ok" "y")能转换之，但每次加载会改变原来已有的属于ok样示的标注，尺寸会回到最初的ok样式。。。

我想知道如何加载ok而之前属于ok的标注尺寸不会乱？

ttthhh_hb

会乱的。最好取一个不重复的样式名。

啵浪鼓

(command "dimstyle" "save" "ok" "y")
看来上面这段只能用一次，多次加载就会乱了，难道就不能像图层一样，如果没有。。。则加载，如果已是当前样式，则不予执行？

ttthhh_hb

请看下面代码：
(if(not(tblsearch "dimstyle" "OK"))  ;如果不存在“OK”标注样式，则(..................................
..................................
)
)

啵浪鼓

好，谢谢楼上的朋友