Liren Large Software Subsidy 13/13.iso/p/p058/1.img/SYS.PAK/ATTUPDAT.LSP

Text File | 1990-04-02 | 2.2 KB | 2 lines

(IF(="AutoLISP Release 9.0"(VER))(DEFUN FINDFILE(Sj / S@)(IF(SETQ S@(OPEN Sj"r"))(NOT(SETQ S@(CLOSE S@))))))(SETQ SQ"                              ")(PROMPT"ATTUPDAT.LSP  Release 10.5  BLOCK Librarian")(TERPRI)(PROMPT"Copyright (c) 1987-1989 SoftSource Inc. All rights reserved.")(TERPRI)(DEFUN Sl()(SETQ S&(quote (("DESCRIPT"NIL DESCRIPTION)("MFG"NIL MANUFACTURER)("PART#"NIL PARTNO)("COSTCODE"NIL COSTCODE)("LASTREV"NIL DATE)))S1(quote ((BLOCK" "32)(DESCRIPTION" "20)(MANUFACTURER" "12)(PARTNO" "15)(COSTCODE" "10)(DATE" "10)))))(DEFUN S#(S0 / S$ SO S| S%)(SETQ S?j(CDR S0))(WHILE S?j(SETQ S$(CAAR S?j)SO(CADAR S?j)S|(ASSOC S$ S1))(IF(= S$(CAAR S1))(SETQ S%(ITOA SO))(SETQ SO(STRCAT SO(SUBSTR SQ 1(-(CADDR(ASSOC S$ S1))(STRLEN SO))))))(SETQ S1(SUBST(LIST(CAR S|)SO(CADDR S|))S| S1)S?j(CDR S?j)))(TERPRI)S%)(DEFUN Sjj(S@j / SQj S$)(SETQ SQj(ENTGET S@j))(SETQ S$(CDR(ASSOC 2 SQj)))(IF(ASSOC S$ S&)(SETQ S&(SUBST(LIST S$ S@j(CADDR(ASSOC S$ S&)))(ASSOC S$ S&)S&))))(DEFUN Slj(S&j S1j / S#j S0j)(TERPRI)(SETQ S0j(LIST 0.0(- 0.5(/(FLOAT S1j)10.0))))(SETVAR"aflags"3)(COMMAND"attdef"""(CAR S&j)""S0j 0.1 0 NIL)(SETQ S&(SUBST(LIST(CAR S&j)(ENTLAST)(CADDR S&j))S&j S&)S$j(SSADD(ENTLAST)S$j)))(DEFUN SOj(/ S|j S%j)(SETQ S|j S& S%j 1)(WHILE S|j(IF(NOT(CADAR S|j))(Slj(CAR S|j)S%j))(SETQ S|j(CDR S|j)S%j(+ S%j 1))))(DEFUN S?@(/ S|j S%j)(SETQ S|j S&)(WHILE S|j(IF(CADAR S|j)(PROGN(SETQ SQj(ENTGET(CADAR S|j)))(SETQ SQj(SUBST(CONS 1(CADR(ASSOC(CADDAR S|j)S1)))(ASSOC 1 SQj)SQj))(IF(/=(CDR(ASSOC 70 SQj))3)(SETQ SQj(SUBST(CONS 70 3)(ASSOC 70 SQj)SQj)))(ENTMOD SQj)))(SETQ S|j(CDR S|j))))(DEFUN Sj@()(COMMAND"insert"(STRCAT"*"S@@ SQ@)"0,0"1 0 NIL)(PRINC(STRCAT"Have inserted block "SQ@" into drawing."))(TERPRI)(SETQ S@j(ENTNEXT)S$j(SSADD))(WHILE S@j(SETQ S$j(SSADD S@j S$j)SQj(ENTGET S@j))(IF(=(CDR(ASSOC 0 SQj))"ATTDEF")(Sjj S@j))(SETQ S@j(ENTNEXT S@j)))(SOj)(S?@)(COMMAND"wblock"(STRCAT S@@ SQ@)"y""""0,0"S$j""NIL)(SETQ S$j NIL S@j NIL))(DEFUN UPDATE-ATTS(Sl@ / S@)(SETVAR"attreq"0)(SETVAR"cmdecho"0)(SETQ S&@ Sl@ S1@(STRCAT S&@"/AttrDat")S@(OPEN S1@"r"))(IF S@(PROGN(WHILE(SETQ S#@(READ-LINE S@))(Sl)(IF(SETQ SQ@(S#(READ S#@)))(PROGN(SETQ S@@(STRCAT S&@"/"(ITOA(/(ATOI SQ@)100))"/"))(IF(FINDFILE(STRCAT S@@ SQ@".dwg"))(Sj@)))))(SETQ S@(CLOSE S@))(IF(SETQ S@(OPEN S1@"w"))(SETQ S@(CLOSE S@)))))(COMMAND"RESUME"))