請幫忙寫段用entmak建立線形的範例 謝謝！

lincctw_ccl

參考版上範例 試了一天還是不能產生線形，請各位幫忙寫一下供參考 謝謝！

我是這樣想讓程序建立新線形

(DEFUN C:GGG()

(PRINC "\线型名称 : <")(PRINC*howplt)(SETQ howplt(GETSTRING ">: "))

(IF(= howplt "")(SETQhowplt *howplt)(SETQ *howplt howplt))

(entmake

   (list '(0 . "LTYPE")

             '(100 . "AcDbSymbolTableRecord")

             '(100 . "AcDbLinetypeTableRecord")

               (cons 2   "测试")

             '(3 . "测试")

             '(70 . 0)

             '(72 . 65)

             '(73 . 2)

             '(40 . 59.0)

             '(49 . 54.0)

             '(74 . 0)

             '(49 . 0)

             '(74 . 0)

))

(PRINC)

)

各位好!!

下午发的文因公司不能上网故问题有点含糊不清

我是想用输入的方式来命名 线型名称

但不知 组码的 (cons 2   "测试")

             '(3 . "测试")

该如何修改才能带入我自己输入的值

烦劳各位帮忙看看

谢谢!

ll_j

entmake只能生成简单线形，也就是不带文字或图案的线形。
不知你的钻孔线形是什么样子，如果是简单线形，可以画一个图上来。

lincctw_ccl

就是一個圓。連續線
現是想創建線形名稱及描訴文字 都叫 鑽孔 的新線形
謝謝！

lincctw_ccl

自頂!
希望有人能幫幫忙
謝謝!