尘缘一生 发表于 2015-12-19 08:54:31

请问这个线型如何用Entmake 建立？

*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,.25,-.1,,-.1,1


18、创建新线型
(entmake (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord") (cons 2 "BERDIG 5-545") '(3 . "Border ____   ____   ____   ____   ____") '(70 . 0) '(73 . 2) '(40 . 15.0) '(49 . 10.0) '(74 . 0) '
   (49 . -5.0) '(74 . 0)    ))

xiaolong1487 发表于 2015-12-19 14:56:08

(if (not (tblsearch "Ltype" "FENCELINE2"))
(progn
(entmake (list
    '(0 . "LTYPE")
    '(100 . "AcDbSymbolTableRecord")
    '(100 . "AcDbLinetypeTableRecord")
    '(2 . "FENCELINE2")
    '(70 . 0)
    '(3 . "Fenceline square ----[]-----[]----[]-----[]----[]---")
    '(72 . 65)
    '(73 . 4)
    '(40 . 36.83)
    '(49 . 6.35)
    '(74 . 0)
    '(49 . -2.54)
    '(74 . 4)
    '(75 . 132)
    '(46 . 2.54)
    '(50 . 0.0)
    '(44 . -2.54)
    '(45 . 0.0)
    '(49 . -2.54)
    '(74 . 0)
    '(49 . 25.4)
    '(74 . 0)
      )
    )
)
)

edata 发表于 2015-12-20 10:53:46

复杂线型是不能够用entmake建立的，只能通过外部加载的方式。

尘缘一生 发表于 2015-12-20 13:06:08

edata 发表于 2015-12-20 10:53 static/image/common/back.gif
复杂线型是不能够用entmake建立的，只能通过外部加载的方式。

谢谢，外部加载可以给个事例吗？

xiaolong1487 发表于 2015-12-21 00:55:48

尘缘一生 发表于 2015-12-20 13:06 static/image/common/back.gif
谢谢，外部加载可以给个事例吗？

(if (not (tblsearch "Ltype" "FENCELINE2"))
(command "linetype" "l" "FENCELINE2" """")
)
页: [1]
查看完整版本: 请问这个线型如何用Entmake 建立？