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

jingsabing · 发表于 2002-6-7 15:17:00

(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 &quotDMODE"       0)
  (setvar &quotDSIZE"       0.0000)
  (setvar &quotELLIPSE"    0)
  (setvar &quotICKADD"    1)
  (setvar &quotICKAUTO"    1)
  (setvar &quotICKBOX"    4)
  (setvar &quotICKDRAG"    0)
  (setvar &quotICKFIRST"    1)
  (setvar &quotICKSTYLE"    3)
  (setvar &quotLINEGEN"    0)
  (setvar &quotLINEWID"    0.0000)
  (setvar &quotLOTID"       "")
  (setvar &quotLOTROTMODE" 1)
  (setvar &quotLOTTER"    0)
  (setvar &quotOLYSIDES"    6)
  (setvar &quotROJMODE"    1)
  (setvar &quotSLTSCALE"    0)
  (setvar &quotSPROLOG"    "")
  (setvar &quotSQUALITY"    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

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

发表回复

精选推荐

浏览过的版块