线型文件

yangchao2005090

求助，下面是线型文件
*GH-Y,SZGH_Y ----Y----Y----
A,0.8,-0.2,0.8,-0.2,0.8,-0.2,["Y",STANDARD,s=0.25,r=0,x=-0.125,y=-0.125],-0.2
请问下面代码该怎么修改呀

1. (entmake
   
2.   (list        '(0 . "LTYPE")
   
3.         '(100 . "AcDbSymbolTableRecord")
   
4.         '(100 . "AcDbLinetypeTableRecord")
   
5.         (cons 2 "双点画线")
   
6.         '(3 . "双点画线 ___ .. ___ .. ___ .. ___")
   
7.         '(70 . 0)
   
8.         '(73 . 6)
   
9.         '(40 . 21.1)
   
10.         '(49 . 15)
    
11.         '(74 . 0)
    
12.         '(49 . -1.7)
    
13.         '(74 . 0)
    
14.         '(49 . 0.5)
    
15.         '(74 . 0)
    
16.         '(49 . -1.7)
    
17.         '(74 . 0)
    
18.         '(49 . 0.5)
    
19.         '(74 . 0)
    
20.         '(49 . -1.7)
    
21.         '(74 . 0)
    
22.   )
    
23. )

复制代码

caoyin

复杂线型好像创建不了

edata

entmake实现不了复制线型定义的创建，可以使用加载线型文件的方式。论坛自己搜素。

xyp1964

GH-Y.lin
*GH-Y,SZGH_Y ----Y----Y----
A,0.8,-0.2,0.8,-0.2,0.8,-0.2,["Y",STANDARD,s=0.25,r=0,x=-0.125,y=-0.125],-0.2

1. (defun c:tt (); tt(加载线型)
   
2.   (command "-LINETYPE" "l" "GH-Y.lin" "" "s" "GH-Y" "")
   
3.   (setvar "CELTYPE" "GH-Y")
   
4.   (setvar "LTSCALE" 100)
   
5.   (princ)
   
6. )

(defun c:tt (); tt(加载线型)<br />   (command "-LINETYPE" "l" "GH-Y.lin" "" "s" "GH-Y" "")<br />   (setvar "CELTYPE" "GH-Y")<br />   (setvar "LTSCALE" 100)<br />   (princ)<br /> )