如何用entmake创建带有文字的线型？
本帖最后由 springwillow 于 2014-12-16 16:15 编辑一直想写一个制作线型的插件，但是在创建带文字的线型时怎么也创建不了，特来求助。带文字线提取的组码如下：命令: dxf
(-1 . <图元名: 730effa8>)
(0 . ”LTYPE“)
(330 . <图元名: 730efc28>)
(5 . CD)
(100 . AcDbSymbolTableRecord)
(100 . AcDbLinetypeTableRecord)
(2 . “GAS_LINE”)
(70 . 0)
(3 . “Gas line ----GAS----GAS----GAS----GAS----GAS----GAS--“)
(72 . 65)
(73 . 3)
(40 . 0.95)
(49 . 0.5)
(74 . 0)
(49 . -0.2)
(74 . 2)
(75 . 0)
(340 . <图元名: 730efc80>)
(46 . 0.1)
(50 . 0.0)
(44 . -0.1)
(45 . -0.05)
(9 . “GAS”)
(49 . -0.25)
(74 . 0)写的函数如下：(defun xx ()
(entmake
(list '(0 . "LTYPE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLinetypeTableRecord")
(cons 2 "BERDIG 5-545")
'(70 . 0)
'(3 . "Border")
'(72 . 65)
'(73 . 3)
'(40 . 0.95)
'(49 . 0.5)
'(74 . 0)
'(49 . -0.2)
'(74 . 0)
'(75 . 0)
(cons 340 (tblobjname "STYLE" "STANDARD"))
'(46 . 0.1)
'(50 . 0.0)
'(44 . -0.1)
'(45 . -0.05)
(cons 9 "G")
'(49 . -0.25)
'(74 . 0)
)
)
)生成不了，问题就出在以下代码段，肯请高手帮忙。 '(49 . -0.2)
'(74 . 0)
'(75 . 0)
(cons 340 (tblobjname "STYLE" "STANDARD"))
'(46 . 0.1)
'(50 . 0.0)
'(44 . -0.1)
'(45 . -0.05)
(cons 9 "G") 本帖最后由 llsheng_73 于 2014-12-16 16:32 编辑
我用你的(XX)在07下生成了线型"BERDIG 5-545"
不过该线型它没有文字。。。只有虚实变化。。。 llsheng_73 发表于 2014-12-16 16:30
我用你的(XX)在07下生成了线型"BERDIG 5-545"
不过该线型它没有文字。。。只有虚实变化。。。
好像与版本有关 你把线型定义加入到原线型文件中，然后象entmake其它线型一样，也许可能，，，，，，
页:
[1]