Good afternoon,
I have used my primary script for years, and now when I try to load it or the new one, I get:
SCRIPT
File load canceled: X:\Autodesk\Script\LAYER.SCR
It work about a month ago, I don't think I changed anything,
I'll take any suggestions.
HD
Script #1
LAYER
N H1 C 1 H1 L CONTINUOUS H1
N H1C C 1 H1C L CENTER H1C
N H1D C 1 H1D L DASHED H1D
N H1H C 1 H1H L HIDDEN H1H
N H1P C 1 H1P L PHANTOM H1P
N H1W C 1 H1W L CONTINUOUS H1W
N H2 C 2 H2 L CONTINUOUS H2
N H2C C 2 H2C L CENTER H2C
N H2D C 2 H2D L DASHED H2D
N H2H C 2 H2H L HIDDEN H2H
N H2P C 2 H2P L PHANTOM H2P
N H3 C 3 H3 L CONTINUOUS H3
N H3C C 3 H3C L CENTER H3C
N H3D C 3 H3D L DASHED H3D
N H3H C 3 H3H L HIDDEN H3H
N H3P C 3 H3P L PHANTOM H3P
N H4 C 4 H4 L CONTINUOUS H4
N H4C C 4 H4C L CENTER H4C
N H4D C 4 H4D L DASHED H4D
N H4H C 4 H4H L HIDDEN H4H
N H4P C 4 H4P L PHANTOM H4P
N H5 C 5 H5 L CONTINUOUS H5
N H5C C 5 H5C L CENTER H5C
N H5D C 5 H5D L DASHED H5D
N H5H C 5 H5H L HIDDEN H5H
N H5P C 5 H5P L PHANTOM H5P
N H6 C 6 H6 L CONTINUOUS H6
N H6C C 6 H6C L CENTER H6C
N H6D C 6 H6D L DASHED H6D
N H6H C 6 H6H L HIDDEN H6H
N H6P C 6 H6P L PHANTOM H6P
N H7 C 7 H7 L CONTINUOUS H7
N H7C C 7 H7C L CENTER H7C
N H7D C 7 H7D L DASHED H7D
N H7H C 7 H7H L HIDDEN H7H
N H7P C 7 H7P L PHANTOM H7P
N HT4C C 4 HT4C L CONTINUOUS HT4C
N VIEWPORTS C 5 VIEWPORTS L CONTINUOUS VIEWPORTS
'GRAPHSCR
Script #2
LAYER
N A-ANNO-DIMS C 8 A-ANNO-DIMS L CONTINUOUS A-ANNO-DIMS D ANNOTATIONS-DIMENSIONS
N A-ANNO-IDEN C 8 A-ANNO-IDEN L CONTINUOUS A-ANNO-IDEN D ANNOTATION-IDENTIFICATION TAGS
N A-ANNO-KEYN C 8 A-ANNO-KEYN L CONTINUOUS A-ANNO-KEYN D ANNOTATION-KEY NOTES
N A-ANNO-NOTE C 8 A-ANNO-NOTE L CONTINUOUS A-ANNO-NOTE D ANNOTATION-NOTES
N A-ANNO-NPLT C 8 A-ANNO-NPLT L CONTINUOUS A-ANNO-NPLT D NON-PLOTTING GRAPHIC INFORMATION
N A-ANNO-RECV C 8 A-ANNO-RECV L CONTINUOUS A-ANNO-RECV D REVISION CLOUDS
N A-ANNO-REVS C 8 A-ANNO-RECS L CONTINUOUS A-ANNO-RECS D REVISION DELTA
N A-ANNO-SCHD C 8 A-ANNO-SCHD L CONTINUOUS A-ANNO-SCHD D ANNOTATION SCHEDULES
N A-ANNO-TEXT C 8 A-ANNO-TEXT L CONTINUOUS A-ANNO-TEXT D ANNOTATION-TEXT
N A-ANNO-RmNm C 8 A-ANNO-RmNm L CONTINUOUS A-ANNO-RmNm D ANNOTATION-ROOM NAME
N A-ANNO-RmNo C 8 A-ANNO-RmNo L CONTINUOUS A-ANNO-RmNo D ANNOTATION ROOM NUMBER
N A-AREA C 8 A-AREA L CONTINUOUS A-AREA D AREA
N A-CLNG C 250 A-CLNG L CONTINUOUS A-CLNG D CEILING
N A-CLNG-ACCS C 9 A-CLNG-ACCS L CONTINUOUS A-CLNG-ACCS D CEILING ACCESS
N A-CLNG-OPEN C 9 A-CLNG-OPEN L CONTINUOUS A-CLNG-OPEN D CEILING OPENINGS
N A-CLNG-TEES C 9 A-CLNG-TEES L CONTINUOUS A-CLNG-TEES D CEILING MAIN TEES
N A-CLNG-SUSP C 9 A-CLNG-SUSP L CONTINUOUS A-CLNG-SUSP D CEILING SUSPENDED ELEMENTS
N A-COLS C 8 A-COLS L CONTINUOUS A-COLS D COLUMNS
N A-COLS-CONV C 8 A-COLS-CONV L CONTINUOUS D CONVEING SYSTEMS
N A-DOOR C 40 A-DOOR L CONTINUOUS A-DOOR D DOORS
N A-DOOR-FULL C 40 A-DOOR-FULL L CONTINUOUS A-DOOR-FULL D DOORS-FULL HEIGHT-SWING AND LEAF
N A-DOOR-PRHT C 40 A-DOOR-PRHT L CONTINUOUS A-DOOR-PRHT D DOORS-PARTIAL HEIGHT-SWING AND LEAF
N A-EQPM C 98 A-EQPM L CONTINUOUS A-EQPM D EQUIPMENT
N A-EQPM-ACCS C 98 A-EQPM-ACCS L CONTINUOUS A-EQPM-ACCS D EQUIPMENT-ACCESS
N A-EQPM-FIXD C 98 A-EQPM-FIXD L CONTINUOUS A-EQPM-FIXD D EQUIPMENT-FIXED EQUIPMENT
N A-EQPM-MOVE C 98 A-EQPM-MOVE L CONTINUOUS A-EQPM-MOVE D EQUIPMENT-MOVABLE EQUIPMENT
N A-EQPM-NICN C 98 A-EQPM-NICN L CONTINUOUS A-EQPM-NICN D EQUIPMENT- NOT IN CONTRACT
N A-EQPM-OVHD C 98 A-EQPM-OVHD L CONTINUOUS A-EQPM-OVHD D EQUIPMENT-OVERHEAD
N A-FLOR C 8 A-FLOR L CONTINUOUS A-FLOR D FLOOR
N A-FLOR-CASE C 8 A-FLOR-CASE L CONTINUOUS A-FLOR-CASE D FLOOR-CASEWORK
N A-FLOR-EVTR C 8 A-FLOR-EVTR L CONTINUOUS A-FLOR-EVTR D FLOOR-ELEVATOR CARDS AND EQUIPMENT
N A-FLOR-HRAL C 8 A-FLOR-HRAL L CONTINUOUS A-FLOR-HRAL D FLOOR-HANDRAILS-GUARD RAILS
N A-FLOR-LEVL C 8 A-FLOR-LEVL L CONTINUOUS A-FLOR-LEVL D FLOOR-LEVEL CHANGES-RAMPS-PITS-DEPRESSIONS
N A-FLOR-OTLN C 8 A-FLOR-OTLN L CONTINUOUS A-FLOR-OTLN D FLOOR-OUTLINE
N A-FLOR-RISR C 8 A-FLOR-RISR L CONTINUOUS A-FLOR-RISR D FLOOR-OVERHEAD-ABOVE OBJECTS
N A-FLOR-SIGN C 8 A-FLOR-SIGN L CONTINUOUS A-FLOR-SIGN D FLOOR SIGNS
N A-FLOR-SPCL C 8 A-FLOR-SPCL L CONTINUOUS A-FLOR-SPCL D FLOOR-SPECIALTIES- TOILET ROOM ACCESSORIES-DISPLAY CASES
N A-FLOR-STRS C 8 A-FLOR-STRS L CONTINUOUS A-FLOR-STRS D STAIR TREADS-ESCALATORS-LADDERS
N A-FLOR-TPTN C 8 A-FLOR-TPTN L CONTINUOUS A-FLOR-TPTN D FLOOR-TOILET PARTITIONS
N A-FLOR-WDWK C 8 A-FLOR-WDWK L CONTINUOUS A-FLOR-WDWK D FLOOR ARCHITECTURAL WOODWORK
N A-FURN C 98 A-FURN L CONTINUOUS A-FURN D FURNISHINGS
N A-FURN-FILE C 98 A-FURN-FILE L CONTINUOUS A-FURN-FILE D FURNISHINGS FILE CABINETS
N A-FURN-FIXD C 98 A-FURN-FIXD L CONTINUOUS A-FURN-FIXD D FURNISHINGS FIXED IN PLACE
N A-FURN-FREE C 98 A-FURN-FREE L CONTINUOUS A-FURN-FREE D FURNISHINGS FREESTANDING
N A-FURN-PLNT C 98 A-FURN-PLNT L CONTINUOUS A-FURN-PLNT D FURNISHINGS-PLANTS
N A-FURN-PLNS C 98 A-FURN-PLNS L CONTINUOUS A-FURN-PLNS D FURNISHINGS SYSTEM PANELS
N A-FURN-SEAT C 98 A-FURN-SEAT L CONTINUOUS A-FURN-SEAT D FURNISHINGS-SEATING
N A-FURN-STOR C 98 A-FURN-STOR L CONTINUOUS A-FURN-STOR D FURNISHINGS-SYSTEM STORAGE COMPNONETS
N A-FURN-WKSF C 98 A-FURN-WKSF L CONTINUOUS A-FURN-WKSF D FURNISHINGS-SYSTEM WORK SURFACE COMPONENTS
N A-GLAZ C 9 A-GLAZ L CONTINUOUS A-GLAZ D GLAZING
N A-GLAZ-FULL C 9 A-GLAZ-FULL L CONTINUOUS A-GLAZ-FULL D GLAZING FULL HEIGHT
N A-GLAZ-PRHT C 9 A-GLAZ-PRHT L CONTINUOUS A-GLAZ-PRHT D GLAZING-PARTIAL HEIGHT
N A-GLAZ-SILL C 9 A-GLAZ-SILL L CONTINUOUS A-GLAZ-SILL D GLAZING-WINDOW SILLS
N A-HVAC C 8 L CONTINUOUS D HVAC
N A-HVAC-SDFF C 1 A-HVAC-SDFF L CONTINUOUS A-HVAC-SDFF D HVAC-SUPPLY DIFFUSERS
N A-HVAC-RDFF C 5 A-HVAC-RDFF L CONTINUOUS A-HVAC RDFF D HVAC-RETURN AIR DIFFUSERS
N A-LITE C 4 A-LITE L CONTINUOUS A-LITE D LIGHTING FIXTURES
N A-ROOF C 40 A-ROOF L CONTINUOUS A-ROOF D ROOF
N A-ROOF-HRAL C 8 A-ROOF-HRAL L CONTINUOUS A-ROOF-HRAL D ROOF-HANDRAIL
N A-ROOF-LEVL C 9 A-ROOF-LEVL L CONTINUOUS A-ROOF-LEVL D ROOF-LEVEL CHANGES
N A-ROOF-OTLN C 8 A-ROOF-OTLN L CONTINUOUS A-ROOF-OTLN D ROOF-OUTLINE
N A-ROOF-RISR C 8 A-ROOF-RISR L CONTINUOUS A-ROOF-RISR D ROOF-STAIR RISERS
N A-WALL C 40 A-WALL L CONTINUOUS D WALL
N A-WALL-CAVI C 40 A-WALL-CAVI L CONTINUOUS A-WALL-CAVI D WALL-CAVITY
N A-WALL-CNTR C 40 A-WALL-CNTR L CONTINUOUS A-WALL-CNTR D WALL-CENTERLINE
N A-WALL-FIRE C 40 A-WALL-FIRE L CONTINUOUS A-WALL-FIRE D WALL-FIREWALL
N A-WALL-FULL C 40 A-WALL-FULL L CONTINUOUS A-WALL-FULL D WALL-FULL HEIGHT
N A-WALL-HEAD C 40 A-WALL-HEAD L CONTINUOUS A-WALL-FULL D WALL-DOOR AND WINDOW HEADERS
N A-WALL-JAMB C 40 A-WALL-JAMB L CONTINUOUS A-WALL-JAMB D WALL-DOOR AND WINDOW JAMBS
N A-WALL-MOVE C 40 A-WALL-MOVE L CONTINUOUS A-WALL-MOVE D WALL-MOVEABLE PARTITIONS
N A-WALL-PRHT C 40 A-WALL-PRHT L CONTINUOUS A-WALL-PRHT D WALL-PARTIAL HEIGHTS
N A-WALL-PART C 40 A-WALL-PART L CONTINUOUS A-WALL-PART D WALL-PARTITIONS
N A-WALL-PATT C 9 A-WALL-PATT L CONTINUOUS A-WALL-PATT D WALL-TEXTURE OR HATCH PATTERNS
N A-FLOR-CONC-N C 9 A-FLOR-CONC-N L CONTINUOUS A-FLOR-CONC-N D FLOOR-CONCRETE
'GRAPHSCR
Sorry, I was allowed to attach them.
HD
Solved! Go to Solution.
Solved by jurgen.galba. Go to Solution.
Try this, instead of a script.
Its a Lisp Program
(defun c:amgcadstandard (/ ltlist layerlist uecho)
(vl-load-com)
(setq uecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
;Make Annotative Textstyle for AutoCAD 2008 +
(command "._STYLE" "textstyle" "ISOCPEUR.ttf" "Annotative" "Yes" "No" "0.00" "1.00" "0" "No" "No") ;Make or set textstyle
(setq ltlist '(("ACAD_ISO02W100" . "acadiso.lin") ;List of requested linetypes
("ACAD_ISO10W100" . "acadiso.lin")
("ACAD_ISO12W100" . "acadiso.lin")
("HIDDEN" . "acadiso.lin")))
(foreach lin ltlist ;Loading Linetypes
(if (tblsearch "LTYPE" (car lin))
(command ".-LINETYPE" "_LOAD" (car lin) (cdr lin) "_Yes" "")
(command ".-LINETYPE" "_LOAD" (car lin) (cdr lin) "")
) ;End if
) ;End foreach
;Layerslist with properties
(setq layerlist '(("0" "7" "Continuous" -3 :vlax-true "Standard AutoCAD layer - used for block insertion")
("10C" "9" "Continuous" 13 :vlax-true "Layer for existing installations and 3D framework")
("10D" "9" "ACAD_ISO10W100" 13 :vlax-true "Layer for existing installations and 3D framework")
("10H" "9" "ACAD_ISO02W100" 13 :vlax-true "Layer for existing installations and 3D framework (long striped line)")
("10H2" "9" "HIDDEN" 13 :vlax-true "Layer for existing installations and 3D framework (short hidden line)")
("18C" "4" "Continuous" 18 :vlax-true "Layer for existing installations and machines for visible contours and edges")
("18D" "4" "ACAD_ISO10W100" 18 :vlax-true "Layer for existing installations and machines for centerlines, symmetrical lines, etc.")
("18H" "4" "ACAD_ISO02W100" 18 :vlax-true "Layer for existing installations and machines for invisible contours and edges")
("18H2" "4" "HIDDEN" 18 :vlax-true "Layer for existing installations and machines for invisible contours and edges")
("18P" "4" "ACAD_ISO12W100" 18 :vlax-true "Layer for existing installations and machines for global contours of adjacent parts")
("25C" "2" "Continuous" 25 :vlax-true "Layer for new installations and machines for visible contours and edges")
("25D" "2" "ACAD_ISO10W100" 25 :vlax-true "Layer for new installations and machines for cutting face passages")
("25H" "2" "ACAD_ISO02W100" 25 :vlax-true "Layer for new installations and machines for invisible contours and edges ")
("25H2" "2" "HIDDEN" 25 :vlax-true "Layer for new installations and machines for invisible contours and edges (short hidden line)")
("35C" "1" "Continuous" 35 :vlax-true "Layer for new installations and machines for visible contours and edges")
("35D" "1" "ACAD_ISO10W100" 35 :vlax-true "Layer for new installations and machines for cutting face passages")
("50C" "7" "Continuous" 50 :vlax-true "Layer for new installations and machines for visible contours and edges")
("50H2" "7" "HIDDEN" 50 :vlax-true "Layer for new installations and machines for invisible contours and edges (short hidden line)")
("70C" "3" "Continuous" 70 :vlax-true "Layer for new installations and machines to display lines and/or parts more prominently")
("70H2" "3" "HIDDEN" 70 :vlax-true "Layer for new installations and machines for invisible contours and edges (short hidden line)")
("CLine" "1" "Continuous" 25 :vlax-false "Layer for Construction Lines and Ray - unplottable")
("Dim25C" "2" "Continuous" 25 :vlax-true "Layer for dimensions")
("Hatch10C" "9" "Continuous" 13 :vlax-true "Layer for existing installations and machines for hatching")
("Hatch18C" "4" "Continuous" 18 :vlax-true "Layer for existing installations and machines for hatching")
("Hatch25C" "2" "Continuous" 25 :vlax-true "Layer for new installations and machines for hatching")
("Raster" "8" "Continuous" -3 :vlax-true "Layer for scans and rasterimages")
("Text" "7" "Continuous" -3 :vlax-true "Layer for text, all heights")
("Vports" "1" "Continuous" 35 :vlax-false "Layer for Viewports or Frameclipping - unplottable")
)
)
(foreach layer layerlist
(progn
(setq LayObj
(vla-add (vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object))) (car layer))) ;Setting Layer
(vla-Put-Description layObj (nth 5 layer)) ;setting Layerdescription
(vla-put-Color LayObj (cadr layer)) ;Setting LayerColor
(vla-put-LineType LayObj (nth 2 layer)) ;Setting LayerLinetype
(vla-put-LineWeight LayObj (nth 3 layer)) ;Setting LayerLineweight
(vla-put-plottable LayObj (nth 4 layer)) ;Setting Layer Plot/NoPlot property
) ;End progn
) ;End foreach
(setvar "CLAYER" "50C") ;Make Layer 50C Current
(setvar "CMDECHO" uecho)
)
I will have to study this, so I can learn more of the LISP capabilities, but, outstanding, thank you.
HD