[求助]：如何用entmake生成线型？

libo2000

如何用entmake生成线型？

(defun #m_ltype ()
  (setq
    e0 (list
         (cons 0 "LTYPE")
         (cons 100 "AcDbSymbolTableRecord")
         (cons 100 "AcDbLineTypeTableRecord")                   
         (cons 2 "DOTE2")
         (cons 70 0)
         (cons 3 "____ . ____ . ____ . ____ . ____ . ____ . ____ ")
         (cons 72 65)
         (cons 73 4)
         (cons 40 242)
         (cons 49 20)
         (cons 49 -02)
         (cons 49 002)
         (cons 49 -02)
       )
  )
  (if (= nil (entmake e0)) (princ "\n LTYPE 生成失败."))
  (princ)
);endfun

ll_j

1. 
   
2. (entmake
   
3.   (list
   
4.   (cons 0 "LTYPE")
   
5.   '(5 . "28")
   
6.   (cons 100 "AcDbSymbolTableRecord")
   
7.   (cons 100 "AcDbLine[I][B]t[/B][/I]ypeTableRecord")  ;这里t为小写
   
8.   (cons 2 "DOTE2")
   
9.   (cons 70 0)
   
10.   (cons 3 "____ . ____ . ____ . ____ . ____ . ____ . ____ ")
    
11.   (cons 72 65)
    
12.   (cons 73 4)
    
13.   (cons 40 24.2)
    
14.   (cons 49 20.0)
    
15.   '(74 . 0)                ;表示简单线形
    
16.   (cons 49 -2.0)
    
17.   '(74 . 0)
    
18.   (cons 49 0.2)
    
19.   '(74 . 0)
    
20.   (cons 49 -2.0)
    
21.   '(74 . 0)
    
22.   )
    
23. )

复制代码