帮我看看这个效果是怎么实现的呢 ？我自己写的代码不知道哪里有问题》
(defun c:xxxx()(func1)
(func2)
(func3)
(func4)
)
(defun func1()
(if (not (tblsearch "layer" "S-BEAM-标注箍筋)"))
(command "layer" "m" "S-BEAM-标注箍筋" "c" 135 "l" "CONTINUOUS" "")
(command "layer" "s" "S-BEAM-标注箍筋" "")
(prin1)
)
)
(defun func2()
(if (not (tblsearch "dimstyle" "标注箍筋"))
(command "dimstyle" "s" "标注箍筋")
(command "dimstyle" "v" "标注箍筋")
)
)
(defun func3()
(setvar "dimASO" "关")
(setvar "dimSTYLE" "TSSD_100_100")
(setvar "dimADEC" 0)
(setvar "dimALT" 关)
(setvar "dimALTD" 2)
(setvar "dimALTF" 25.40)
(setvar "dimALTRND" 0.00)
(setvar "dimALTTD" 2)
(setvar "dimALTTZ" 0)
(setvar "dimALTU" 2)
(setvar "dimALTZ" 0)
(setvar "dimAPOST" "")
(setvar "dimASZ" 100.00)
(setvar "dimATFIT" 3)
(setvar "dimAUNIT" 0)
(setvar "dimAZIN" 0)
(setvar "dimBLK" ArchTick)
(setvar "dimBLK1" ArchTick)
(setvar "dimBLK2" ArchTick)
(setvar "dimCEN" 0.00)
(setvar "dimCLRD" 0)
(setvar "dimCLRE" 0)
(setvar "dimDEC" 0)
(setvar "dimDLE" 100.00)
(setvar "dimDLI" 0.00)
(setvar "dimDSEP" .)
(setvar "dimEXE" 100.00)
(setvar "dimEXO" 250.00)
(setvar "dimFRAC" 0)
(setvar "dimGAP" 30.00)
(setvar "dimJUST" 0)
(setvar "dimLDRBLK" 实心闭合)
(setvar "dimLFAC" 1.00)
(setvar "dimLIM" 关)
(setvar "dimLUNIT" 2)
(setvar "dimLWD" -2)
(setvar "dimLWE" -2)
(setvar "dimPOST" "")
(setvar "dimRND" 0.00)
(setvar "dimSAH" 关)
(setvar "dimSCALE" 1.00)
(setvar "dimSD1" 关)
(setvar "dimSD2" 关)
(setvar "dimSE1" 关)
(setvar "dimSE2" 关)
(setvar "dimSOXD" 关)
(setvar "dimTAD" 1)
(setvar "dimTDEC" 0)
(setvar "dimTFAC" 1.00)
(setvar "dimTIH" 关)
(setvar "dimTIX" 开)
(setvar "dimTM" 0.00)
(setvar "dimTMOVE" 2)
(setvar "dimTOFL" 开)
(setvar "dimTOH" 关)
(setvar "dimTOL" 关)
(setvar "dimTOLJ" 1)
(setvar "dimTP" 0.00)
(setvar "dimTSZ" 0.00)
(setvar "dimTVP" 0.00)
(setvar "dimTXSTY" TSSD_dimension)
(setvar "dimTXT" 350.00)
(setvar "dimTZIN" 0)
(setvar "dimUPT" 关)
(setvar "dimZIN" 0)
)
(defun func4()
(command "dimlinear" pause pause "t" "\\u+00828@120(2)" pause)
) (defun func3()
(setvar "dimASO" 0)
(setvar "dimSTYLE" "TSSD_100_100")
(setvar "dimADEC" 0)
(setvar "dimALT" 0)
(setvar "dimALTD" 2)
(setvar "dimALTF" 25.4)
(setvar "dimALTRND" 0.0)
(setvar "dimALTTD" 2)
(setvar "dimALTTZ" 0)
(setvar "dimALTU" 2)
(setvar "dimALTZ" 0)
(setvar "dimAPOST" "")
(setvar "dimASZ" 100.0)
(setvar "dimATFIT" 3)
(setvar "dimAUNIT" 0)
(setvar "dimAZIN" 0)
(setvar "dimBLK" "_ARCHTICK")
(setvar "dimBLK1" "_ARCHTICK")
(setvar "dimBLK2" "_ARCHTICK")
(setvar "dimCEN" 0.00)
(setvar "dimCLRD" 0)
(setvar "dimCLRE" 0)
(setvar "dimDEC" 0)
(setvar "dimDLE" 100.00)
(setvar "dimDLI" 0.00)
(setvar "dimDSEP" .)
(setvar "dimEXE" 100.00)
(setvar "dimEXO" 250.00)
(setvar "dimFRAC" 0)
(setvar "dimGAP" 30.00)
(setvar "dimJUST" 0)
(setvar "dimLDRBLK" "")
(setvar "dimLFAC" 1.00)
(setvar "dimLIM" 0)
(setvar "dimLUNIT" 2)
(setvar "dimLWD" -2)
(setvar "dimLWE" -2)
(setvar "dimPOST" "")
(setvar "dimRND" 0.00)
(setvar "dimSAH" 0)
(setvar "dimSCALE" 1.00)
(setvar "dimSD1" 0)
(setvar "dimSD2" 0)
(setvar "dimSE1" 0)
(setvar "dimSE2" 0)
(setvar "dimSOXD" 0)
(setvar "dimTAD" 1)
(setvar "dimTDEC" 0)
(setvar "dimTFAC" 1.00)
(setvar "dimTIH" 0)
(setvar "dimTIX" 1)
(setvar "dimTM" 0.00)
(setvar "dimTMOVE" 2)
(setvar "dimTOFL" 1)
(setvar "dimTOH" 0)
(setvar "dimTOL" 0)
(setvar "dimTOLJ" 1)
(setvar "dimTP" 0.00)
(setvar "dimTSZ" 0.00)
(setvar "dimTVP" 0.00)
(setvar "dimTXSTY" "TSSD_dimension")
(setvar "dimTXT" 350.00)
(setvar "dimTZIN" 0)
(setvar "dimUPT" 0)
(setvar "dimZIN" 0)
)
ZZXXQQ 发表于 2014-11-21 08:09 static/image/common/back.gif
按照你说的这个改了，但是输入命令就直接退出了，没有提示是未知命令，C:\Documents and Settings\Administrator\桌面\11111111
bingshuier 发表于 2014-11-21 13:15 static/image/common/back.gif
按照你说的这个改了，但是输入命令就直接退出了，没有提示是未知命令，
这是这种情况哈不知道哪里有问题呢
页:
[1]