[LISP程序]：使用vlisp编写的图层设置程序

foxzmx

(DEFUN C:ZLA  ()
  (VL-LOAD-COM)
  (SETQ        ACADOBJECT   (VLAX-GET-ACAD-OBJECT)
        ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT)
        MSPACE             (VLA-GET-MODELSPACE ACADDOCUMENT))
  (VLA-SETVARIABLE ACADDOCUMENT "cmdecho" 0)
  (VLA-SETVARIABLE ACADDOCUMENT "attreq" 1)
  (VLA-SETVARIABLE ACADDOCUMENT "cursorsize" 100)
  (VLA-SETVARIABLE ACADDOCUMENT "osmode" 39)
  (VLA-SETVARIABLE ACADDOCUMENT "blipmode" 0)
  (VLA-SETVARIABLE ACADDOCUMENT "dimtol" 0)
  (LOAD-LINETYPE)
  (SETQ LAYERSEL (VLA-GET-LAYERS ACADDOCUMENT))
  (SETQ BASE (VLA-ADD LAYERSEL "BASE"))
  (VLA-PUT-COLOR BASE ACRED)
  (VLA-PUT-LINETYPE BASE "DASHED")
  (SETQ MARK (VLA-ADD LAYERSEL "MARK"))
  (VLA-PUT-COLOR MARK ACGREEN)
  (SETQ PREHID (VLA-ADD LAYERSEL "PREHID"))
  (VLA-PUT-COLOR PREHID ACYELLOW)
  (VLA-PUT-LINETYPE PREHID "HIDDEN")
  (SETQ REDESIGN (VLA-ADD LAYERSEL "REDESIGN"))
  (VLA-PUT-COLOR REDESIGN 9)
  (SETQ DIMENSION (VLA-ADD LAYERSEL "DIMENSION"))
  (VLA-PUT-COLOR DIMENSION ACRED)
  (SETQ HIDDEN (VLA-ADD LAYERSEL "HIDDEN"))
  (VLA-PUT-COLOR HIDDEN ACYELLOW)
  (VLA-PUT-LINETYPE HIDDEN "DASHED")

  (SETQ UE (VLA-ADD LAYERSEL "UE"))       
  (SETQ UEDIM (VLA-ADD LAYERSEL "UEDIM"))
  (VLA-PUT-COLOR UEDIM ACCYAN)
  (SETQ UEFORM (VLA-ADD LAYERSEL "UEFORM"))
  (VLA-PUT-COLOR UEFORM ACBLUE)
  (SETQ UEHID (VLA-ADD LAYERSEL "UEHID"))
  (VLA-PUT-COLOR UEHID ACYELLOW)
  (VLA-PUT-LINETYPE UEHID "HIDDEN")
  (SETQ UEMARK (VLA-ADD LAYERSEL "UEMARK"))
  (VLA-PUT-COLOR UEMARK ACGREEN)
  (SETQ UETH (VLA-ADD LAYERSEL "UETH"))
  (VLA-PUT-COLOR UETH ACRED)

  (SETQ HP (VLA-ADD LAYERSEL "HP"))       
  (SETQ HPDIM (VLA-ADD LAYERSEL "HPDIM"))
  (VLA-PUT-COLOR HPDIM ACCYAN)
  (SETQ HPFORM (VLA-ADD LAYERSEL "HPFORM"))
  (VLA-PUT-COLOR HPFORM ACBLUE)
  (SETQ HPHID (VLA-ADD LAYERSEL "HPHID"))
  (VLA-PUT-COLOR HPHID ACYELLOW)
  (VLA-PUT-LINETYPE HPHID "HIDDEN")
  (SETQ HPMARK (VLA-ADD LAYERSEL "HPMARK"))
  (VLA-PUT-COLOR HPMARK ACGREEN)
  (SETQ HPTH (VLA-ADD LAYERSEL "HPTH"))
  (VLA-PUT-COLOR HPTH ACRED)

  (SETQ BB (VLA-ADD LAYERSEL "BB"))       
  (SETQ BBDIM (VLA-ADD LAYERSEL "BBDIM"))
  (VLA-PUT-COLOR BBDIM ACCYAN)
  (SETQ BBFORM (VLA-ADD LAYERSEL "BBFORM"))
  (VLA-PUT-COLOR BBFORM ACBLUE)
  (SETQ BBHID (VLA-ADD LAYERSEL "BBHID"))
  (VLA-PUT-COLOR BBHID ACYELLOW)
  (VLA-PUT-LINETYPE BBHID "HIDDEN")
  (SETQ BBMARK (VLA-ADD LAYERSEL "BBMARK"))
  (VLA-PUT-COLOR BBMARK ACGREEN)
  (SETQ BBTH (VLA-ADD LAYERSEL "BBTH"))
  (VLA-PUT-COLOR BBTH ACRED)

  (SETQ HH (VLA-ADD LAYERSEL "HH"))       
  (SETQ HHDIM (VLA-ADD LAYERSEL "HHDIM"))
  (VLA-PUT-COLOR HHDIM ACCYAN)
  (SETQ HHFORM (VLA-ADD LAYERSEL "HHFORM"))
  (VLA-PUT-COLOR HHFORM ACBLUE)
  (SETQ HHHID (VLA-ADD LAYERSEL "HHHID"))
  (VLA-PUT-COLOR HHHID ACYELLOW)
  (VLA-PUT-LINETYPE HHHID "HIDDEN")
  (SETQ HHMARK (VLA-ADD LAYERSEL "HHMARK"))
  (VLA-PUT-COLOR HHMARK ACGREEN)
  (SETQ HHTH (VLA-ADD LAYERSEL "HHTH"))
  (VLA-PUT-COLOR HHTH ACRED)

  (SETQ BP (VLA-ADD LAYERSEL "BP"))       
  (SETQ BPDIM (VLA-ADD LAYERSEL "BPDIM"))
  (VLA-PUT-COLOR BPDIM ACCYAN)
  (SETQ BPFORM (VLA-ADD LAYERSEL "BPFORM"))
  (VLA-PUT-COLOR BPFORM ACBLUE)
  (SETQ BPHID (VLA-ADD LAYERSEL "BPHID"))
  (VLA-PUT-COLOR BPHID ACYELLOW)
  (VLA-PUT-LINETYPE BPHID "HIDDEN")
  (SETQ BPMARK (VLA-ADD LAYERSEL "BPMARK"))
  (VLA-PUT-COLOR BPMARK ACGREEN)
  (SETQ BPTH (VLA-ADD LAYERSEL "BPTH"))
  (VLA-PUT-COLOR BPTH ACRED)

  (SETQ PP (VLA-ADD LAYERSEL "PP"))       
  (SETQ PPDIM (VLA-ADD LAYERSEL "PPDIM"))
  (VLA-PUT-COLOR PPDIM ACCYAN)
  (SETQ PPFORM (VLA-ADD LAYERSEL "PPFORM"))
  (VLA-PUT-COLOR PPFORM ACBLUE)
  (SETQ PPHID (VLA-ADD LAYERSEL "PPHID"))
  (VLA-PUT-COLOR PPHID ACYELLOW)
  (VLA-PUT-LINETYPE PPHID "HIDDEN")
  (SETQ PPMARK (VLA-ADD LAYERSEL "PPMARK"))
  (VLA-PUT-COLOR PPMARK ACGREEN)
  (SETQ PPTH (VLA-ADD LAYERSEL "PPTH"))
  (VLA-PUT-COLOR PPTH ACRED)

  (SETQ SB (VLA-ADD LAYERSEL "SB"))       
  (SETQ SBDIM (VLA-ADD LAYERSEL "SBDIM"))
  (VLA-PUT-COLOR SBDIM ACCYAN)
  (SETQ SBFORM (VLA-ADD LAYERSEL "SBFORM"))
  (VLA-PUT-COLOR SBFORM ACBLUE)
  (SETQ SBHID (VLA-ADD LAYERSEL "SBHID"))
  (VLA-PUT-COLOR SBHID ACYELLOW)
  (VLA-PUT-LINETYPE SBHID "HIDDEN")
  (SETQ SBMARK (VLA-ADD LAYERSEL "SBMARK"))
  (VLA-PUT-COLOR SBMARK ACGREEN)
  (SETQ SBTH (VLA-ADD LAYERSEL "SBTH"))
  (VLA-PUT-COLOR SBTH ACRED)

  (SETQ SP (VLA-ADD LAYERSEL "SP"))       
  (SETQ SPDIM (VLA-ADD LAYERSEL "SPDIM"))
  (VLA-PUT-COLOR SPDIM ACCYAN)
  (SETQ SPFORM (VLA-ADD LAYERSEL "SPFORM"))
  (VLA-PUT-COLOR SPFORM ACBLUE)
  (SETQ SPHID (VLA-ADD LAYERSEL "SPHID"))
  (VLA-PUT-COLOR SPHID ACYELLOW)
  (VLA-PUT-LINETYPE SPHID "HIDDEN")
  (SETQ SPMARK (VLA-ADD LAYERSEL "SPMARK"))
  (VLA-PUT-COLOR SPMARK ACGREEN)
  (SETQ SPTH (VLA-ADD LAYERSEL "SPTH"))
  (VLA-PUT-COLOR SPTH ACRED)

  (SETQ UD (VLA-ADD LAYERSEL "UD"))       
  (SETQ UDDIM (VLA-ADD LAYERSEL "UDDIM"))
  (VLA-PUT-COLOR UDDIM ACCYAN)
  (SETQ UDFORM (VLA-ADD LAYERSEL "UDFORM"))
  (VLA-PUT-COLOR UDFORM ACBLUE)
  (SETQ UDHID (VLA-ADD LAYERSEL "UDHID"))
  (VLA-PUT-COLOR UDHID ACYELLOW)
  (VLA-PUT-LINETYPE UDHID "HIDDEN")
  (SETQ UDMARK (VLA-ADD LAYERSEL "UDMARK"))
  (VLA-PUT-COLOR UDMARK ACGREEN)
  (SETQ UDTH (VLA-ADD LAYERSEL "UDTH"))
  (VLA-PUT-COLOR UDTH ACRED)

  (SETQ DB (VLA-ADD LAYERSEL "DB"))       
  (SETQ DBDIM (VLA-ADD LAYERSEL "DBDIM"))
  (VLA-PUT-COLOR DBDIM ACCYAN)
  (SETQ DBFORM (VLA-ADD LAYERSEL "DBFORM"))
  (VLA-PUT-COLOR DBFORM ACBLUE)
  (SETQ DBHID (VLA-ADD LAYERSEL "DBHID"))
  (VLA-PUT-COLOR DBHID ACYELLOW)
  (VLA-PUT-LINETYPE DBHID "HIDDEN")
  (SETQ DBMARK (VLA-ADD LAYERSEL "DBMARK"))
  (VLA-PUT-COLOR DBMARK ACGREEN)
  (SETQ DBTH (VLA-ADD LAYERSEL "DBTH"))
  (VLA-PUT-COLOR DBTH ACRED)

  (SETQ OP (VLA-ADD LAYERSEL "OP"))       
  (SETQ OPDIM (VLA-ADD LAYERSEL "OPDIM"))
  (VLA-PUT-COLOR OPDIM ACCYAN)
  (SETQ OPFORM (VLA-ADD LAYERSEL "OPFORM"))
  (VLA-PUT-COLOR OPFORM ACBLUE)
  (SETQ OPHID (VLA-ADD LAYERSEL "OPHID"))
  (VLA-PUT-COLOR OPHID ACYELLOW)
  (VLA-PUT-LINETYPE OPHID "HIDDEN")
  (SETQ OPMARK (VLA-ADD LAYERSEL "OPMARK"))
  (VLA-PUT-COLOR OPMARK ACGREEN)
  (SETQ OPTH (VLA-ADD LAYERSEL "OPTH"))
  (VLA-PUT-COLOR OPTH ACRED)

  (SETQ OB (VLA-ADD LAYERSEL "OB"))       
  (SETQ OBDIM (VLA-ADD LAYERSEL "OBDIM"))
  (VLA-PUT-COLOR OBDIM ACCYAN)
  (SETQ OBFORM (VLA-ADD LAYERSEL "OBFORM"))
  (VLA-PUT-COLOR OBFORM ACBLUE)
  (SETQ OBHID (VLA-ADD LAYERSEL "OBHID"))
  (VLA-PUT-COLOR OBHID ACYELLOW)
  (VLA-PUT-LINETYPE OBHID "HIDDEN")
  (SETQ OBMARK (VLA-ADD LAYERSEL "OBMARK"))
  (VLA-PUT-COLOR OBMARK ACGREEN)
  (SETQ OBTH (VLA-ADD LAYERSEL "OBTH"))
  (VLA-PUT-COLOR OBTH ACRED)

  (SETQ DP (VLA-ADD LAYERSEL "DP"))       
  (SETQ DPDIM (VLA-ADD LAYERSEL "DPDIM"))
  (VLA-PUT-COLOR DPDIM ACCYAN)
  (SETQ DPFORM (VLA-ADD LAYERSEL "DPFORM"))
  (VLA-PUT-COLOR DPFORM ACBLUE)
  (SETQ DPHID (VLA-ADD LAYERSEL "DPHID"))
  (VLA-PUT-COLOR DPHID ACYELLOW)
  (VLA-PUT-LINETYPE DPHID "HIDDEN")
  (SETQ DPMARK (VLA-ADD LAYERSEL "DPMARK"))
  (VLA-PUT-COLOR DPMARK ACGREEN)
  (SETQ DPTH (VLA-ADD LAYERSEL "DPTH"))
  (VLA-PUT-COLOR DPTH ACRED)

  (SETQ CB (VLA-ADD LAYERSEL "CB"))       
  (SETQ CBDIM (VLA-ADD LAYERSEL "CBDIM"))
  (VLA-PUT-COLOR CBDIM ACCYAN)
  (SETQ CBFORM (VLA-ADD LAYERSEL "CBFORM"))
  (VLA-PUT-COLOR CBFORM ACBLUE)
  (SETQ CBHID (VLA-ADD LAYERSEL "CBHID"))
  (VLA-PUT-COLOR CBHID ACYELLOW)
  (VLA-PUT-LINETYPE CBHID "HIDDEN")
  (SETQ CBMARK (VLA-ADD LAYERSEL "CBMARK"))
  (VLA-PUT-COLOR CBMARK ACGREEN)
  (SETQ CBTH (VLA-ADD LAYERSEL "CBTH"))
  (VLA-PUT-COLOR CBTH ACRED)

  (SETQ DD (VLA-ADD LAYERSEL "DD"))       
  (SETQ DDDIM (VLA-ADD LAYERSEL "DDDIM"))
  (VLA-PUT-COLOR DDDIM ACCYAN)
  (SETQ DDFORM (VLA-ADD LAYERSEL "DDFORM"))
  (VLA-PUT-COLOR DDFORM ACBLUE)
  (SETQ DDHID (VLA-ADD LAYERSEL "DDHID"))
  (VLA-PUT-COLOR DDHID ACYELLOW)
  (VLA-PUT-LINETYPE DDHID "HIDDEN")
  (SETQ DDMARK (VLA-ADD LAYERSEL "DDMARK"))
  (VLA-PUT-COLOR DDMARK ACGREEN)
  (SETQ DDTH (VLA-ADD LAYERSEL "DDTH"))
  (VLA-PUT-COLOR DDTH ACRED)

  (SETQ CC (VLA-ADD LAYERSEL "CC"))       
  (SETQ CCDIM (VLA-ADD LAYERSEL "CCDIM"))
  (VLA-PUT-COLOR CCDIM ACCYAN)
  (SETQ CCFORM (VLA-ADD LAYERSEL "CCFORM"))
  (VLA-PUT-COLOR CCFORM ACBLUE)
  (SETQ CCHID (VLA-ADD LAYERSEL "CCHID"))
  (VLA-PUT-COLOR CCHID ACYELLOW)
  (VLA-PUT-LINETYPE CCHID "HIDDEN")
  (SETQ CCMARK (VLA-ADD LAYERSEL "CCMARK"))
  (VLA-PUT-COLOR CCMARK ACGREEN)
  (SETQ CCTH (VLA-ADD LAYERSEL "CCTH"))
  (VLA-PUT-COLOR CCTH ACRED)

  (SETQ DE (VLA-ADD LAYERSEL "DE"))       
  (SETQ DEDIM (VLA-ADD LAYERSEL "DEDIM"))
  (VLA-PUT-COLOR DEDIM ACCYAN)
  (SETQ DEFORM (VLA-ADD LAYERSEL "DEFORM"))
  (VLA-PUT-COLOR DEFORM ACBLUE)
  (SETQ DEHID (VLA-ADD LAYERSEL "DEHID"))
  (VLA-PUT-COLOR DEHID ACYELLOW)
  (VLA-PUT-LINETYPE DEHID "HIDDEN")
  (SETQ DEMARK (VLA-ADD LAYERSEL "DEMARK"))
  (VLA-PUT-COLOR DEMARK ACGREEN)
  (SETQ DETH (VLA-ADD LAYERSEL "DETH"))
  (VLA-PUT-COLOR DETH ACRED)

  (SETQ DH (VLA-ADD LAYERSEL "DH"))       
  (SETQ DHDIM (VLA-ADD LAYERSEL "DHDIM"))
  (VLA-PUT-COLOR DHDIM ACCYAN)
  (SETQ DHFORM (VLA-ADD LAYERSEL "DHFORM"))
  (VLA-PUT-COLOR DHFORM ACBLUE)
  (SETQ DHHID (VLA-ADD LAYERSEL "DHHID"))
  (VLA-PUT-COLOR DHHID ACYELLOW)
  (VLA-PUT-LINETYPE DHHID "HIDDEN")
  (SETQ DHMARK (VLA-ADD LAYERSEL "DHMARK"))
  (VLA-PUT-COLOR DHMARK ACGREEN)
  (SETQ DHTH (VLA-ADD LAYERSEL "DHTH"))
  (VLA-PUT-COLOR DHTH ACRED)
  (PROMPT "\n 图层恢复完毕!")
  (PRINC)
  )

HuaiYu

冲模二厂的图层?

xyp1964

LOAD-LINETYPE未定义……
全部用大写字母书写，看起来有点累！
为何不用layer命令？或许会更简单。