Community
AutoCAD Forum
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

A little hepl with a script problem if you could please

2 REPLIES 2
SOLVED
Reply
Message 1 of 3
HullDrafter
444 Views, 2 Replies

A little hepl with a script problem if you could please

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

 

2 REPLIES 2
Message 2 of 3
jurgen.galba
in reply to: HullDrafter

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)
)

- Aut viam inveniam aut faciam -
(I shall either find a way or make one.)
Message 3 of 3
HullDrafter
in reply to: jurgen.galba

I will have to study this, so I can learn more of the LISP capabilities, but, outstanding, thank you.

HD

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost