[编程交流] DXF码层描述

;; LAYER group codes 
;;  
;; Group codes -   Description
;;  
;; 100 - Subclass marker (AcDbLayerTableRecord)
;;  
;; 2  -   Layer name
;;  
;; 70 - Standard flags (bit-coded values):
;; 1  = Layer is frozen; otherwise layer is thawed
;; 2  = Layer is frozen by default in new viewports
;; 4  = Layer is locked
;; 16 = If set, table entry is externally dependent on an xref
;; 32 = If both this bit and bit 16 are set, the externally 
;;      dependent xref has been successfully resolved
;; 64 = If set, the table entry was referenced by at least 
;;      one entity in the drawing the last time the drawing 
;;      was edited. (This flag is for the benefit of AutoCAD 
;;      commands. It can be ignored by most programs that 
;;      read DXF files and need not be set by programs that 
;;      write DXF files)
;;  
;; 62 - Color number (if negative, layer is off)
;;  
;; 6 - Linetype name
;;  
;; 290 - Plotting flag. If set to 0, do not plot this layer
;;  
;; 370 - Lineweight enum value
;;
;; 380 - Ploy Style Name
;;  
;; 390 - Hard-pointer ID/handle of PlotStyleName object
 
(entmake (list
           '(0 . "LAYER")
           '(100 . "AcDbSymbolTableRecord")
           '(100 . "AcDbLayerTableRecord")
           (cons 2 "G-Anno-Note") ; layername
           (cons 70 0) ; stuff
           (cons 62 141); color number
           ;; (cons 290 ; plot
           (cons 6 "Continuous") ;; linetype
           (cons 370 050)
           ;;  LAYER LINEWEIGHT
           ;;  this should be an integer representing one of the standard lineweight
           ;;  values multiplied by 100 (i.e. 2.11mm becomes 211). Use -3 to specify the
           ;;  'Default' lineweight.
 
           ;; (cons 390 "Normal")
 
           (list -3 (list "AcAecLayerStandard" '(1000 . "") (cons 1000 "This is a description")))
         )
)

(entget(tblobjname "LAYER" "LAYERNAME")'("AcAecLayerStandard"))

(-3 ("AcAecLayerStandard" (1000 . "") (1000 . "Sample Description Info"))

_$ (elist (tblobjname "layer" "0"))
 
(
    (-1 . )
    (0 . "LAYER")
    (5 . "10")
    (102 . "{ACAD_XDICTIONARY")
    (360 . )
    (102 . "}")
    (330 . )
    (100 . "AcDbSymbolTableRecord")
    (100 . "AcDbLayerTableRecord")
    (2 . "0")
    (70 . 0)
    (62 . 7)
    (6 . "Continuous")
    (290 . 1)
    (370 . -3)
    (390 . )
    (347 . )
    (348 . )
    (-3
        (
            "AcAecLayerStandard"
            (1000 . "")
            (1000 . "Layer 0 Description")
        )
    )
)