添加线型

hnjzwql · 发表于 2006-5-14 18:41:00

请教如何用lisp添加acad.lin中的全部线型？谢谢！

ZZXXQQ · 发表于 2006-5-14 20:27:00

程序：

(DEFUN C:LOADLTYPE ()
(SETVAR "CMDECHO" 0)
(IF (SETQ NM (FINDFILE "ACAD.LIN")) (PROGN
(SETQ F (OPEN NM "r") LINET '())
(WHILE (SETQ TXT (READ-LINE F))
(IF (= (SUBSTR TXT 1 1) "*") (PROGN
(SETQ I 2)
(WHILE (/= (SUBSTR TXT I 1) ",") (SETQ I (1+ I)))
(SETQ LINET (CONS (SUBSTR TXT 2 (- I 2)) LINET))
))
)
(CLOSE F)
(SETQ LINET (REVERSE LINET))
(SETQ I -1)
(COMMAND "LINETYPE")
(REPEAT (LENGTH LINET)
(COMMAND "L" (NTH (SETQ I (1+ I)) LINET) "")
)
(COMMAND "")
))
(PRINC)
)

复制代码

龙龙仔 · 发表于 2006-5-15 09:14:00

(defun C:TT (/ HOLDECHO)
(setvar "nomutt" 1)
(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.LINETYPE" "L" "*" (findfile "ACAD.LIN"))
(while (= 1 (getvar "cmdactive"))
(command "")
)
(setvar "nomutt" 0)
(setvar "cmdecho" HOLDECHO)
(princ)
)

天下第三 · 发表于 2006-5-16 12:58:00

"entmake"可以办到吗?

wzz1968 · 发表于 2006-5-16 20:07:00

entmake和entmod只能生成和修改实体.不能修改符号表

hnfsf · 发表于 2009-6-11 09:59:00

(entmake (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '
        (100 . "AcDbLinetypeTableRecord") '(2 . "FFP") '(70 . 0) '
        (3 . "FIRE_FEEDER_PIPING ---- FFP -------- FFP ------") '
        (72 . 65) '(73 . 3) '(40 . 2.81) '(49 . 2.16) '(74 . 0) '
        (49 . -0.2) '(74 . 0) '(74 . 2) '(75 . 0) (cons 340 (tblobjname "STYLE" "Simplex"))
         '(46 . 0.2) '
        (50 . 0.0) '(44 . -0.1) '(45 . -0.09) '(9 . "FFP") '
        (49 . -0.45) '(74 . 0)
)          ; list
)

wjl1014 · 发表于 2013-1-29 15:05:21

(340)组码不正确。

wjl1014 · 发表于 2013-1-29 15:23:30

不能用，楼主能不能给个带说明的。

账号		自动登录	找回密码
密码			注册