如何用entmake创建带有文字的线型？

springwillow

一直想写一个制作线型的插件，但是在创建带文字的线型时怎么也创建不了，特来求助。带文字线提取的组码如下：

1. 命令: dxf
   
2. (-1 . <图元名: 730effa8>)
   
3. (0 . ”LTYPE“)
   
4. (330 . <图元名: 730efc28>)
   
5. (5 . CD)
   
6. (100 . AcDbSymbolTableRecord)
   
7. (100 . AcDbLinetypeTableRecord)
   
8. (2 . “GAS_LINE”)
   
9. (70 . 0)
   
10. (3 . “Gas line ----GAS----GAS----GAS----GAS----GAS----GAS--“)
    
11. (72 . 65)
    
12. (73 . 3)
    
13. (40 . 0.95)
    
14. (49 . 0.5)
    
15. (74 . 0)
    
16. (49 . -0.2)
    
17. (74 . 2)
    
18. (75 . 0)
    
19. (340 . <图元名: 730efc80>)
    
20. (46 . 0.1)
    
21. (50 . 0.0)
    
22. (44 . -0.1)
    
23. (45 . -0.05)
    
24. (9 . “GAS”)
    
25. (49 . -0.25)
    
26. (74 . 0)

复制代码

写的函数如下：

2. (defun xx ()
   
3.   (entmake
   
4.     (list '(0 . "LTYPE")
   
5.     '(100 . "AcDbSymbolTableRecord")
   
6.     '(100 . "AcDbLinetypeTableRecord")
   
7.     (cons 2 "BERDIG 5-545")
   
8.     '(70 . 0)
   
9.     '(3 . "Border")
   
10.     '(72 . 65)
    
11.     '(73 . 3)
    
12.     '(40 . 0.95)
    
13.     '(49 . 0.5)
    
14.     '(74 . 0)
    
15.     '(49 . -0.2)
    
16.     '(74 . 0)
    
17.     '(75 . 0)
    
18.     (cons 340 (tblobjname "STYLE" "STANDARD"))
    
19.     '(46 . 0.1)
    
20.     '(50 . 0.0)
    
21.     '(44 . -0.1)
    
22.     '(45 . -0.05)
    
23.     (cons 9 "G")
    
24.     '(49 . -0.25)
    
25.     '(74 . 0)
    
26.     )
    
27.   )
    
28. )

(defun xx ()<br />   (entmake<br />     (list '(0 . "LTYPE")<br />     '(100 . "AcDbSymbolTableRecord")<br />     '(100 . "AcDbLinetypeTableRecord")<br />     (cons 2 "BERDIG 5-545")<br />     '(70 . 0)<br />     '(3 . "Border")<br />     '(72 . 65)<br />     '(73 . 3)<br />     '(40 . 0.95)<br />     '(49 . 0.5)<br />     '(74 . 0)<br />     '(49 . -0.2)<br />     '(74 . 0)<br />     '(75 . 0)<br />     (cons 340 (tblobjname "STYLE" "STANDARD"))<br />     '(46 . 0.1)<br />     '(50 . 0.0)<br />     '(44 . -0.1)<br />     '(45 . -0.05)<br />     (cons 9 "G")<br />     '(49 . -0.25)<br />     '(74 . 0)<br />     )<br />   )<br /> )

生成不了，问题就出在以下代码段，肯请高手帮忙。

1. '(49 . -0.2)
   
2.     '(74 . 0)
   
3.     '(75 . 0)
   
4.     (cons 340 (tblobjname "STYLE" "STANDARD"))
   
5.     '(46 . 0.1)
   
6.     '(50 . 0.0)
   
7.     '(44 . -0.1)
   
8.     '(45 . -0.05)
   
9.     (cons 9 "G")

复制代码

llsheng_73

我用你的(XX)在07下生成了线型"BERDIG 5-545"
不过该线型它没有文字。。。只有虚实变化。。。

自贡黄明儒

llsheng_73 发表于 2014-12-16 16:30
我用你的(XX)在07下生成了线型"BERDIG 5-545"
不过该线型它没有文字。。。只有虚实变化。。。

好像与版本有关

自贡黄明儒

你把线型定义加入到原线型文件中，然后象entmake其它线型一样，也许可能，，，，，，