[编程交流] 带Lisp的标注样式

(command"dim"
        "DIMADEC" (if (or(= unit 3)(= unit 4)) '2 '0 )
        "DIMALT" "0"
        "DIMALTD" (if (or(= unit 3)(= unit 4)) '0 '3 )
        "DIMALTF" (if (or(= unit 3)(= unit 4)) '25.4 '0.0393701 )                
        "DIMALTRND" "0.00"
        "DIMALTTD" "2"
        "DIMALTTZ" "0"
        "DIMALTU" (if (or(= unit 3)(= unit 4)) '2 '4 )
        "DIMALTZ" (if (or(= unit 3)(= unit 4)) '8 '3 )
        "DIMAPOST" "."
        "DIMASZ" (* 1.5 scle)
        "DIMATFIT" "3"
        "DIMAUNIT" "0"
        "DIMAZIN" "0"
        "DIMBLK" "_dot"
        "DIMBLK1" "."
        "DIMBLK2" "."
        "DIMCEN" "2.00"
        "DIMCLRD" "8"
        "DIMCLRE" "8"
        "DIMCLRT" "bylayer"
        "DIMDEC" (if (or(= unit 3)(= unit 4)) '3 '0 )
        "DIMDLE" (* 1.5 scle)
        "DIMDLI" (* 4 scle)
        "DIMDSEP" "."
        "DIMEXE" (* 1.5 scle)
        "DIMEXO" (* 2 scle)
        "DIMFRAC" "0"
        "DIMGAP" (* 0.6 scle)
        "DIMJUST" "0"
        "DIMLDRBLK" "Open90"
        "DIMLFAC" "1.00"
        "DIMLIM" "0"
        "DIMLUNIT" (if (or(= unit 3)(= unit 4)) '4 '2 )
        "DIMLWD" "-2"
        "DIMLWE" "-2"
        "DIMPOST" "."
        "DIMRND" "0.00"
        "DIMSAH" "0"
        "DIMSCALE" "1.00"
        "DIMSD1" "0"
        "DIMSD2" "0"
        "DIMSE1" "0"
        "DIMSE2" "0"
        "DIMSOXD" "0"
        "DIMTAD" "1"
        "DIMTDEC" "0"
        "DIMTFAC" "1.00"
        "DIMTIH" "0"
        "DIMTIX" "1"
        "DIMTM" "0.00"
        "DIMTMOVE" "2"
        "DIMTOFL" "1"
        "DIMTOH" "0"
        "DIMTOL" "0"
        "DIMTOLJ" "1"
        "DIMTP" "0.00"
        "DIMTSZ" "0.00"
        "DIMTVP" "0.00"
        "DIMTXSTY" "Arch-DIM"
        "DIMTXT" (* 2.25 scle)
        "DIMTZIN" "8"
        "DIMUPT" "0"
        "DIMZIN" (if (or(= unit 3)(= unit 4)) '3 '8 )
        (if (tblsearch "dimstyle" "MMS-1")
                (command "save" "MMS-1" "y")
                (command "save" "MMS-1" )
        )
)
(princ)

Your Code Here

Your Code Here