我是这么干的,我把后边需要用到的线型DXF数据搞出来,然后
 - (vl-every'(lambda(x / e)(setq e(tblobjname"ltype"(car x)))
- (if e(entmod(cons(cons -1 e)(cdr x)))(entmakex(cdr x))))
- '(("X5"(0 . "LTYPE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbLinetypeTableRecord")(2 . "X5")(70 . 0)(3 . "")(72 . 65)(73 . 2)(40 . 3.0)(49 . 2.0)(74 . 0)(49 . -1.0)(74 . 0))
- ("X32"(0 . "LTYPE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbLinetypeTableRecord")(2 . "X32")(70 . 0)(3 . "")(72 . 65)(73 . 2)(40 . 1.5)(49 . 1.0)(74 . 0)(49 . -0.5)(74 . 0))))
|