yangchao2005090 发表于 2021-2-28 08:32:45

线型文件

求助，下面是线型文件
*GH-Y,SZGH_Y ----Y----Y----
A,0.8,-0.2,0.8,-0.2,0.8,-0.2,["Y",STANDARD,s=0.25,r=0,x=-0.125,y=-0.125],-0.2
请问下面代码该怎么修改呀
(entmake
(list      '(0 . "LTYPE")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLinetypeTableRecord")
      (cons 2 "双点画线")
      '(3 . "双点画线 ___ .. ___ .. ___ .. ___")
      '(70 . 0)
      '(73 . 6)
      '(40 . 21.1)
      '(49 . 15)
      '(74 . 0)
      '(49 . -1.7)
      '(74 . 0)
      '(49 . 0.5)
      '(74 . 0)
      '(49 . -1.7)
      '(74 . 0)
      '(49 . 0.5)
      '(74 . 0)
      '(49 . -1.7)
      '(74 . 0)
)
)



caoyin 发表于 2021-2-28 10:55:12

本帖最后由 caoyin 于 2021-2-28 10:58 编辑

复杂线型好像创建不了

edata 发表于 2021-2-28 17:32:42

entmake实现不了复制线型定义的创建，可以使用加载线型文件的方式。论坛自己搜素。

xyp1964 发表于 2021-2-28 19:51:16

GH-Y.lin
*GH-Y,SZGH_Y ----Y----Y----
A,0.8,-0.2,0.8,-0.2,0.8,-0.2,["Y",STANDARD,s=0.25,r=0,x=-0.125,y=-0.125],-0.2

(defun c:tt (); tt(加载线型)
(command "-LINETYPE" "l" "GH-Y.lin" "" "s" "GH-Y" "")
(setvar "CELTYPE" "GH-Y")
(setvar "LTSCALE" 100)
(princ)
)
页: [1]
查看完整版本: 线型文件