Entmake 符号表

/db_自贡黄明儒_

;;Entmake 符号表
;;哪些是必要条件，http://bbs.xdcad.net/forum.php?m ... p;extra=#pid3511478
(defun C:w2 (/ DATA FLN FLO L1 LST YAO)
  (cond        ((and (setq FLN (getfiled "輸出的LISP文件:" "" "LSP" 1))
              (setq FLO (open FLN "w"))
         )
         (setq lst '("Layer" "Ltype" "View" "Style" "Appid" "Ucs" "Dimstyle" "Vport"))
         (setq L1 '("AcDbLayerTableRecord"                "AcDbLinetypeTableRecord"
                     "AcDbViewTableRecord"                "AcDbTextStyleTableRecord"
                     "AcDbRegAppTableRecord"                "AcDbUCSTableRecord"
                     "AcDbDimStyleTableRecord"                "AcDbViewportTableRecord"
                    )
         )
         (foreach n lst
           (setq yao nil)
           (setq data (TBLNEXT n T))
           (setq yao (cons (car data) yao))
           (setq data (cdr data))
           (setq yao (cons '(100 . "AcDbSymbolTableRecord") yao))
           (setq yao (cons (cons 100 (car L1)) yao))
           (setq L1 (cdr L1))           
           (foreach X data (setq yao (cons x yao)))
           (setq yao (REVERSE yao))
           (write-line (strcat "(EntMakeX '" (vl-prin1-to-string yao) ")") FLO)
         )
         (close FLO)
        )
  )
  (princ)
)  


(Defun C:w1 ()
  (EntMakeX '((0 . "LAYER")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbLayerTableRecord")
              (2 . "0")
              (70 . 0)
              (62 . 7)
              (6 . "Continuous")
             )
  )
  (EntMakeX '((0 . "LTYPE")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbLinetypeTableRecord")
              (2 . "Continuous")
              (70 . 0)
              (3 . "Solid line")
              (72 . 65)
              (73 . 0)
              (40 . 0.0)
             )
  )
  (EntMakeX '((0 . "VIEW")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbViewTableRecord")
              (2 . "MyView")
              (70 . 0)
              (40 . 2153.14)
              (10 -2.41424 3105.76)
              (41 . 5106.96)
              (11 0.0 0.0 1.0)
              (12 0.0 0.0 0.0)
              (42 . 50.0)
              (43 . 0.0)
              (44 . 0.0)
              (50 . 0.0)
              (71 . 0)
              (72 . 1)
              (110 0.0 0.0 0.0)
              (111 1.0 0.0 0.0)
              (112 0.0 1.0 0.0)
              (79 . 0)
              (146 . 0.0)
             )
  )
  (EntMakeX '((0 . "STYLE")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbTextStyleTableRecord")
              (2 . "Standard")
              (70 . 0)
              (40 . 0.0)
              (41 . 1.0)
              (50 . 0.0)
              (71 . 0)
              (42 . 3.5)
              (3 . "romanc.shx")
              (4 . "hztxt.shx")
             )
  )
  (EntMakeX '((0 . "APPID")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbRegAppTableRecord")
              (2 . "ACAD")
              (70 . 0)
             )
  )
  (EntMakeX '((0 . "UCS")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbUCSTableRecord")
              (2 . "MyUcs")
              (70 . 0)
              (10 -1289.98 2338.04 0.0)
              (11 0.904145 0.427225 0.0)
              (12 -0.427225 0.904145 0.0)
              (79 . 0)
              (146 . 0.0)
             )
  )
  (EntMakeX '((0 . "DIMSTYLE")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbDimStyleTableRecord")
              (2 . "STANDARD")
              (70 . 0)
              (3 . "")
              (4 . "")
              (5 . "")
              (6 . "")
              (7 . "")
              (40 . 1.0)
              (41 . 3.0)
              (42 . 1.0)
              (43 . 10.0)
              (44 . 2.0)
              (45 . 0.0)
              (46 . 2.0)
              (47 . 0.0)
              (48 . 0.0)
              (140 . 3.5)
              (141 . -3.0)
              (142 . 0.0)
              (143 . 25.4)
              (144 . 1.0)
              (145 . 0.0)
              (146 . 1.0)
              (147 . 1.2)
              (71 . 0)
              (72 . 0)
              (73 . 0)
              (74 . 0)
              (75 . 0)
              (76 . 0)
              (77 . 1)
              (78 . 9)
              (170 . 0)
              (171 . 2)
              (172 . 0)
              (173 . 0)
              (174 . 0)
              (175 . 0)
              (176 . 0)
              (177 . 0)
              (178 . 0)
              (270 . 2)
              (271 . 3)
              (272 . 3)
              (273 . 2)
              (274 . 2)              
              (275 . 0)
              (280 . 0)
              (281 . 0)
              (282 . 0)
              (283 . 1)
              (284 . 0)
              (285 . 0)
              (286 . 0)
              (287 . 3)
              (288 . 0)
             )
  )
  (EntMakeX '((0 . "VPORT")
              (100 . "AcDbSymbolTableRecord")
              (100 . "AcDbViewportTableRecord")
              (2 . "MyVport")
              (70 . 0)
              (10 0.0 0.0)
              (11 1.0 1.0)
              (12 -2.41424 3105.76)
              (13 0.0 0.0)
              (14 10.0 10.0)
              (15 10.0 10.0)
              (16 0.0 0.0 1.0)
              (17 0.0 0.0 0.0)
              (40 . 2153.14)
              (41 . 2.37187)
              (42 . 50.0)
              (43 . 0.0)
              (44 . 0.0)
              (50 . 0.0)
              (51 . 0.0)
              (71 . 0)
              (72 . 20000)
              (73 . 1)
              (74 . 1)
              (75 . 0)
              (76 . 0)
              (77 . 0)
              (78 . 0)
              (65 . 1)
              (110 0.0 0.0 0.0)
              (111 1.0 0.0 0.0)
              (112 0.0 1.0 0.0)
              (79 . 0)
              (146 . 0.0)
             )
  )
)