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)<BR>&nbsp; (setvar "nomutt" 1)<BR>&nbsp; (setq HOLDECHO (getvar "cmdecho"))<BR>&nbsp; (setvar "cmdecho" 0)<BR>&nbsp; (command "_.LINETYPE" "L" "*" (findfile "ACAD.LIN"))<BR>&nbsp; (while (= 1 (getvar "cmdactive"))<BR>&nbsp;&nbsp;&nbsp; (command "")<BR>&nbsp; )<BR>&nbsp; (setvar "nomutt" 0)<BR>&nbsp; (setvar "cmdecho" HOLDECHO)<BR>&nbsp; (princ)<BR>)

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

"entmake"可以办到吗?

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

<P>entmake和entmod只能生成和修改实体.不能修改符号表</P>
<P>&nbsp;</P>

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

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

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

(340)组码不正确。

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

不能用，楼主能不能给个带说明的。
页: [1]
查看完整版本: 添加线型