r14尺寸变量子程序[原创]

jingsabing

(defun B_INITVAR_DIM
  (
  /
  )
  (prompt "\n正在初始化尺寸变量... ")
  (setq B_dim_drawing (getvar "USERI1"))
  (setq B_dim_scale (getvar "USERR1"))
  (command "style" "STANDARD" "TXT.shx" "0.0000" "1.0000" "0.00" "n" "n" "n")
  (setvar "DIMTXSTY"      "STANDARD")
  (setvar "DIMASZ"        (* B_dim_drawing 2.5))
  (setvar "DIMEXE"        (* B_dim_drawing 1.0))
  (setvar "DIMEXO"        (* B_dim_drawing 0.66778844))
  (setvar "DIMGAP"        (* B_dim_drawing 2.0))
  (setvar "DIMTXT"        (* B_dim_drawing 3.5))
  (setvar "DIMALT"        0)
  (setvar "DIMALTD"       2)
  (setvar "DIMALTF"       25.4)
  (setvar "DIMALTTD"      3)
  (setvar "DIMALTTZ"      0)
  (setvar "DIMALTU"       2)
  (setvar "DIMALTZ"       0)
  (setvar "DIMAPOST"      "")
  (setvar "DIMASO"        1)
  (setvar "DIMAUNIT"      0)
  (setvar "DIMBLK"        "")
  (setvar "DIMBLK1"       "")
  (setvar "DIMBLK2"       "")
  (setvar "DIMCEN"        0)
  (setvar "DIMCLRD"       1)
  (setvar "DIMCLRE"       1)
  (setvar "DIMCLRT"       0)
  (setvar "DIMDEC"        4)
  (setvar "DIMDLE"        0.0000)
  (setvar "DIMDLI"        (* B_dim_drawing 5))
  (setvar "DIMFIT"        3)
  (setvar "DIMJUST"       0)
  (setvar "DIMLFAC"       1.0000)
  (setvar "DIMLIM"        0)
  (setvar "DIMPOST"       "")
  (setvar "DIMRND"        0.0000)
  (setvar "DIMSAH"        0)
  (setvar "DIMSCALE"      (* B_dim_scale 1.0))
  (setvar "DIMSD1"        0)
  (setvar "DIMSD2"        0)
  (setvar "DIMSE1"        0)
  (setvar "DIMSE2"        0)
  (setvar "DIMSHO"        1)
  (setvar "DIMSOXD"       0)
  (setvar "DIMTAD"        0)
  (setvar "DIMTDEC"       4)
  (setvar "DIMTFAC"       0.714285714)
  (setvar "DIMTIH"        0)
  (setvar "DIMTIX"        0)
  (setvar "DIMTM"         0.0000)
  (setvar "DIMTOFL"       0)
  (setvar "DIMTOH"        0)
  (setvar "DIMTOL"        0)
  (setvar "DIMTOLJ"       0)
  (setvar "DIMTP"         0.0000)
  (setvar "DIMTSZ"        0.0000)
  (setvar "DIMTVP"        0.0000)
  (setvar "DIMTZIN"       8)
  (setvar "DIMUNIT"       2)
  (setvar "DIMUPT"        0)
  (setvar "DIMZIN"        8)
  (prompt "\nOK")
  (prompt "\n初始化尺寸变量结束")
  (princ)
);end-B_INITVAR_DIM