lincctw_ccl 发表于 2013-9-5 16:20:19

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

本帖最后由 lincctw_ccl 于 2013-9-5 21:10 编辑

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

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

(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 发表于 2013-9-5 17:01:57

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

lincctw_ccl 发表于 2013-9-5 18:22:03

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

lincctw_ccl 发表于 2013-9-5 21:11:59

自頂!
希望有人能幫幫忙
謝謝!
页: [1]
查看完整版本: 請幫忙寫段用entmak建立線形的範例 謝謝！