R14系统变量子程序[原创]

jingsabing

(defun B_INITVAR_SYS
  (
  /
  )
  (prompt "\n正在初始化系统变量... ")
  (setvar "ANGBASE"       0.0000)
  (setvar "ANGDIR"        0)
  (setvar "APERTURE"      8)
  (setvar "ATTDIA"        1)
  (setvar "ATTMODE"       1)
  (setvar "ATTREQ"        1)
  (setvar "AUDITCTL"      0)
  (setvar "AUNITS"        0)
  (setvar "AUPREC"        2)
  (setvar "BLIPMODE"      0)
  (setvar "CECOLOR"       "BYLAYER")
  (setvar "CELTSCALE"     1.0000)
  (setvar "CELTYPE"       "BYLAYER")
  (setvar "CHAMFERA"      0.0000)
  (setvar "CHAMFERB"      0.0000)
  (setvar "CHAMFERC"      0.0000)
  (setvar "CHAMFERD"      0.0000)
  (setvar "CHAMMODE"      1)
  (setvar "CIRCLERAD"     0.0000)
  ;(setvar "CLAYER"        "0")
  (setvar "CMDDIA"        1)
  (setvar "CMDECHO"       0)
  (setvar "CMLJUST"       0)
  (setvar "CMLSCALE"      1.0000)
  (setvar "CMLSTYLE"      "STANDARD")
  (setvar "COORDS"        2)
  (setvar "CVPORT"        2)
  (setvar "DCTCUST"       "")
  (setvar "DCTMAIN"       "")
  (setvar "DELOBJ"        1)
  (setvar "DISPSILH"      0)
  (setvar "DONUTID"       0.5000)
  (setvar "DONUTOD"       1.0000)
  (setvar "DRAGMODE"      2)
  (setvar "DRAGP1"        10)
  (setvar "DRAGP2"        25)
  (setvar "EDGEMODE"      1)
  (setvar "ELEVATION"     0.0000)
  (setvar "EXPERT"        0)
  (setvar "EXPLMODE"      1)
  (setvar "FACETRES"      0.5000)
  (setvar "FILEDIA"       1)
  (setvar "FILLETRAD"     0.0000)
  (setvar "FILLMODE"      1)
  (setvar "FONTALT"       "")
  (setvar "GRIDMODE"      0)
  (setvar "GRIDUNIT"      '(0.0000 0.0000))
  (setvar "GRIPBLOCK"     1)
  (setvar "GRIPCOLOR"     5)
  (setvar "GRIPHOT"       1)
  (setvar "GRIPS"         1)
  (setvar "GRIPSIZE"      3)
  (setvar "HIGHLIGHT"     1)
  (setvar "HPANG"         0.0000)
  (setvar "HPBOUND"       1)
  (setvar "HPDOUBLE"      0)
  (setvar "HPNAME"        "ANSI31")
  (setvar "HPSCALE"       1.0000)
  (setvar "HPSPACE"       1.0000)
  (setvar "INSBASE"       '(0.0000 0.0000 0.0000))
  (setvar "INSNAME"       "")
  (setvar "ISAVEBAK"      1)
  (setvar "ISAVEPERCENT"  50)
  (setvar "ISOLINES"      4)
  (setvar "LASTPOINT"     '(0.0000 0.0000 0.0000))
  (setvar "LIMCHECK"      0)
  (setvar "LUNITS"        2)
  (setvar "LUPREC"        4)
  (setvar "LIMMAX"        '(297.0000 210.0000))
  (setvar "LIMMIN"        '(0.0000 0.0000))
  (setvar "LTSCALE"       8.0000)
  (setvar "MAXACTVP"      16)
  (setvar "MAXSORT"       512)
  (setvar "MENUCTL"       1)
  (setvar "MENUECHO"      0)
  (setvar "MIRRTEXT"      0)
  (setvar "MODEMACRO"     "版权所有，翻录不究")
  (setvar "MTEXTED"       "Internal")
  (setvar "OFFSETDIST"    -1.0000)
  (setvar "ORTHOMODE"     1)
  (setvar "OSMODE"        51)
  (setvar "DMODE"        0)
  (setvar "DSIZE"        0.0000)
  (setvar "ELLIPSE"      0)
  (setvar "ICKADD"       1)
  (setvar "ICKAUTO"      1)
  (setvar "ICKBOX"       4)
  (setvar "ICKDRAG"      0)
  (setvar "ICKFIRST"     1)
  (setvar "ICKSTYLE"     3)
  (setvar "LINEGEN"      0)
  (setvar "LINEWID"      0.0000)
  (setvar "LOTID"        "")
  (setvar "LOTROTMODE"   1)
  (setvar "LOTTER"       0)
  (setvar "OLYSIDES"     6)
  (setvar "ROJMODE"      1)
  (setvar "SLTSCALE"     0)
  (setvar "SPROLOG"      "")
  (setvar "SQUALITY"     75)
  (setvar "QTEXTMODE"     0)
  (setvar "RASTERPREVIEW" 1)
  (setvar "REGENMODE"     1)
  (setvar "RE-INIT"       0)
  (setvar "SAVETIME"      30)
  (setvar "SHADEDGE"      1)
  (setvar "SHADEDIF"      70)
  (setvar "SHPNAME"       "")
  (setvar "SKETCHINC"     1.0000)
  (setvar "SKPOLY"        1)
  (setvar "SNAPANG"       0)
  (setvar "SNAPBASE"      '(0.0000 0.0000))
  (setvar "SNAPISOPAIR"   0)
  (setvar "SNAPMODE"      0)
  (setvar "SNAPSTYL"      0)
  (setvar "SNAPUNIT"      '(1.0000 1.0000))
  (setvar "SORTENTS"      3)
  (setvar "SPLFRAME"      0)
  (setvar "SPLINESEGS"    8)
  (setvar "SPLINETYPE"    6)
  (setvar "SURFTAB1"      6)
  (setvar "SURFTAB2"      6)
  (setvar "SURFTYPE"      6)
  (setvar "SURFU"         6)
  (setvar "SURFV"         6)
  (setvar "TABMODE"       0)
  (setvar "TEXTEVAL"      0)
  (setvar "TEXTFILL"      1)
  (setvar "TEXTQLTY"      50)
  (setvar "TEXTSIZE"      2.5000)
  ;(setvar "TEXTSTYLE"     "STANDARD")
  (setvar "THICKNESS"     0.0000)
  (setvar "TILEMODE"      1)
  (setvar "TOOLTIPS"      1)
  (setvar "TRACEWID"      0.0500)
  (setvar "TREEDEPTH"     3020)
  (setvar "TREEMAX"       10000000)
  (setvar "TRIMMODE"      1)
  (setvar "UCSFOLLOW"     0)
  (setvar "UCSICON"       3)
  (setvar "UNITMODE"      0)
  (setvar "VISRETAIN"     0)
  (setvar "WORLDVIEW"     1)
  (setvar "XREFCTL"       0)
  (prompt "\nOK ")
  (prompt "\n初始化系统变量结束")
  (princ)
);end-B_INITVAR_SYS