Jump to content

Can't load external app "TopoLT"

Yulaw

By Yulaw
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

Yulaw Newbie

Yulaw

Posted
Posted

Hello, I've installed Autocad 2018 and can no longer load my main LSP application. Worked with Autocad 2013 though.

After i use APPLOAD to load TopoLT.lsp i get: 

 

ARXLOAD failed Cannot invoke (command) from *error* without prior call to (*push-error-using-command*). Converting (command) calls to (command-s) is recommended.

 

How can i fix this ? 

Attached, I have the TopoLT.lsp that I'm trying to load. 

TopoLT.lsp

Link to comment
Share on other sites
rlx Veteran

rlx

Posted
Posted (edited)
7 hours ago, Yulaw said:

Hello, I've installed Autocad 2018 and can no longer load my main LSP application. Worked with Autocad 2013 though.

After i use APPLOAD to load TopoLT.lsp i get: 

 

ARXLOAD failed Cannot invoke (command) from *error* without prior call to (*push-error-using-command*). Converting (command) calls to (command-s) is recommended.

 

How can i fix this ? 

Attached, I have the TopoLT.lsp that I'm trying to load. 

TopoLT.lsp 320.27 kB · 3 downloads

 

you could try what the message says : replace command with command-s and see if it works. Lisp file looks to be 'kelvinated' , old technique to make lispfiles more difficult to read. Think you're better off getting rid of it and start from scratch...

  


(SETQ DEXE"C:\\Program Files (x86)\\TopoLT\\TopoLT.exe")

(defun Tj(T@ /)(FLOAT(FIX(+(FLOAT T@)1E-12))))

(defun TQ(T@ /)(IF(>=(ABS(- T@(Tj T@)))0.5)(SETQ T@(+ T@(/ T@(ABS T@)))))(Tj T@))

(defun Tl(T@ /)(FIX(TQ T@)))
(defun T&(T@ /)(SETQ T@(FLOAT(- T@(Tj T@))))(IF(<(ABS T@)1E-12)(SETQ T@ 0.0))T@)
(defun T1(T@ T# /)(SETQ T#(EXPT 10 T#))(/(TQ(* T@ T#))T#))
(defun T0(T$ TO / T| T% T?j Tjj T@j)(SETQ T%(/ PI 180)T@j(/(* 2 TO)(* T$ T$))T|(EXPT(* 6 T@j)(/ 1.0 3.0))T?j 1.0 Tjj 1.0)(WHILE(AND(> Tjj 1E-10)(< Tjj 1.7E308))(SETQ T%(- T|(/(-(- T|(SIN T|))T@j)(- 1(COS T|))))T?j(- T% T|)T| T% Tjj(ABS T?j)))(IF(>= Tjj 1.7E308)(SETQ T%(/ PI 180)))T%)
(defun TQj(T@ /)(* T@ Tlj))
(defun T&j(T@ /)(* T@ T1j))
(defun T#j(T@ /)(* T@ T0j))
(defun T$j(T@ /)(/ T@ 25.4))
(defun TOj(T@ /)(/ T@ 304.8))
(defun T|j(T@ /)(TOj(* T@ 1000.0)))
(defun T%j(T@ /)(* T@ 25.4))
(defun T?@(T@ /)(* T@ 304.8))
(defun Tj@(T@ /)(T?@(/ T@ 1000.0)))
(defun T@@(TQ@ Tl@ T&@ /)(IF(/= TQ@ Tl@)(COND((= TQ@ 0)(IF(= Tl@ 1)(SETQ T&@(T$j T&@))))((= TQ@ 1)(IF(= Tl@ 0)(SETQ T&@(T%j T&@))))))T&@)
(defun T1@(TQ@ Tl@ T&@ /)(IF(/= TQ@ Tl@)(COND((= TQ@ 0)(IF(= Tl@ 1)(SETQ T&@(T|j T&@))))((= TQ@ 1)(IF(= Tl@ 0)(SETQ T&@(Tj@ T&@))))))T&@)
(defun T#@(T0@ / T$@ TO@ T|@ T%@ T?Q)(SETQ TO@(CAR T0@)T|@(CADR T0@)T%@(CADDR T0@)T?Q(SQRT(+(* TO@ TO@)(* T|@ T|@)(* T%@ T%@))))(IF(> T?Q 1E-10)(SETQ T$@(LIST(/ TO@ T?Q)(/ T|@ T?Q)(/ T%@ T?Q)))(SETQ T$@ NIL))T$@)
(defun TjQ(T@Q TQQ / TO@ T|@ T%@ TlQ T&Q T1Q T#Q T0Q T$Q)(SETQ TlQ(CAR T@Q)T&Q(CADR T@Q)T1Q(CADDR T@Q)T#Q(CAR TQQ)T0Q(CADR TQQ)T$Q(CADDR TQQ)TO@(-(* T&Q T$Q)(* T1Q T0Q))T|@(-(* T1Q T#Q)(* TlQ T$Q))T%@(-(* TlQ T0Q)(* T&Q T#Q)))(LIST TO@ T|@ T%@))
(defun TOQ(T|Q / T%Q T?l Tjl T@l TQl)(SETQ T%Q NIL)(IF T|Q(PROGN(SETQ T@l(T#@ T|Q))(IF T@l(PROGN(SETQ TQl 0.015625)(IF(AND(<(ABS(CAR T@l))TQl)(<(ABS(CADR T@l))TQl))(SETQ T?l(TjQ(LIST 0.0 1.0 0.0)T@l))(SETQ T?l(TjQ(LIST 0.0 0.0 1.0)T@l)))(SETQ T?l(T#@ T?l))(IF T?l(PROGN(SETQ Tjl(TjQ T@l T?l)Tjl(T#@ Tjl))(IF Tjl(SETQ T%Q(LIST T?l Tjl T@l)))))))))T%Q)
(defun Tll(T0@ T&l / T?l Tjl T@l TO@ T|@ T%@ T1l T#l T0l)(IF(AND T0@ T&l)(SETQ T?l(CAR T&l)Tjl(CADR T&l)T@l(CADDR T&l)TO@(CAR T0@)T|@(CADR T0@)T%@(CADDR T0@)T1l(+(* TO@(CAR T?l))(* T|@(CAR Tjl))(* T%@(CAR T@l)))T#l(+(* TO@(CADR T?l))(* T|@(CADR Tjl))(* T%@(CADR T@l)))T0l(+(* TO@(CADDR T?l))(* T|@(CADDR Tjl))(* T%@(CADDR T@l)))T0@(LIST T1l T#l T0l)))T0@)
(defun T$l(T0@ T&l / T?l Tjl T@l TO@ T|@ T%@ T1l T#l T0l)(IF(AND T0@ T&l)(SETQ T?l(CAR T&l)Tjl(CADR T&l)T@l(CADDR T&l)TO@(CAR T0@)T|@(CADR T0@)T%@(CADDR T0@)T1l(+(* TO@(CAR T?l))(* T|@(CADR T?l))(* T%@(CADDR T?l)))T#l(+(* TO@(CAR Tjl))(* T|@(CADR Tjl))(* T%@(CADDR Tjl)))T0l(+(* TO@(CAR T@l))(* T|@(CADR T@l))(* T%@(CADDR T@l)))T0@(LIST T1l T#l T0l)))T0@)
(defun TOl(T|l /)(=(REM T|l 2)0))
(defun T%l(T|l T?& /)(+ T|l T?&))
(defun Tj&(T|l T?& /)(- T|l T?&))
(defun T@&(TQ& /)(IF(< TQ& 0)(SETQ TQ&(+ TQ& 65536)))TQ&)
(defun Tl&(T?l T# /)(LIST(T1(CAR T?l)T#)(T1(CADR T?l)T#)))
(defun T&&(T1& T#& / TO@ T|@ T%@ T1Q T$Q)(SETQ TO@(/(+(CAR T1&)(CAR T#&))2))(SETQ T|@(/(+(CADR T1&)(CADR T#&))2))(IF(>(LENGTH T1&)2)(SETQ T1Q(CADDR T1&))(SETQ T1Q 0.0))(IF(>(LENGTH T#&)2)(SETQ T$Q(CADDR T#&))(SETQ T$Q 0.0))(SETQ T%@(/(+ T1Q T$Q)2))(LIST TO@ T|@ T%@))
(defun T0&(T0@ / T$&)(IF TO&(SETQ T$&(POLAR T0@ T|& 100))(SETQ T$&(POLAR T0@(+ T|& T%&)100)))T$&)
(defun T?1(Tj1 /)(LIST(CAR Tj1)(CADR Tj1)))
(defun T@1(TQ1 Tl1 /)(IF(NULL Tl1)(PROGN(SETQ Tl1 0.0)(IF(>(LENGTH TQ1)2)(SETQ Tl1(CADDR TQ1)))))(LIST(CAR TQ1)(CADR TQ1)Tl1))
(defun T&1(T0@ / T11)(IF(>(LENGTH T0@)2)(SETQ T11(CADDR T0@))(SETQ T11 0.0))T11)
(defun T#1(T@Q TQQ /)(EQUAL(DISTANCE T@Q TQQ)0.0 1E-8))
(defun T01(T@Q TQQ /)(AND(T#1 T@Q TQQ)(EQUAL(CADDR T@Q)(CADDR TQQ)1E-8)))
(defun T$1(TO1 T?j / T|1 TO@)(SETQ T|1 NIL)(IF(AND TO1(>(LENGTH TO1)0))(WHILE TO1(SETQ TO@(CAR TO1))(IF(EQUAL(ABS TO@)0.0 T?j)(SETQ TO@ 0.0))(SETQ T|1(APPEND T|1(LIST TO@))TO1(CDR TO1))))T|1)
(defun T%1(T|Q /)(AND T|Q(=(LENGTH T|Q)3)(NOT(AND(EQUAL(CAR T|Q)0.0 1E-10)(EQUAL(CADR T|Q)0.0 1E-10)(EQUAL(CADDR T|Q)1.0 1E-10)))))
(defun T?#(T0@ T|Q /)(IF(T%1 T|Q)(SETQ T0@(Tll T0@(TOQ T|Q))))T0@)
(defun Tj#(T0@ T|Q / T@# T?l Tjl T@l TO@ T|@ T%@ T1l T#l T0l)(IF(T%1 T|Q)(SETQ T0@(T$l T0@(TOQ T|Q))))T0@)
(defun TQ#(/)(SETQ Tl#(GETVAR"DATE")))
(defun T&#(/ T1# T##)(IF Tl#(PROGN(SETQ T1#(-(GETVAR"DATE")Tl#)T##(* 86400.0(- T1#(FIX T1#))))(PRINC(STRCAT"\nTime="(RTOS T## 2 2)"sec"))))(PRINC))
(defun T0#(T$# /)(IF(/= T$#"")(WHILE(=(SUBSTR T$# 1 1)" ")(SETQ T$#(SUBSTR T$# 2))))(IF(/= T$#"")(WHILE(=(SUBSTR T$#(STRLEN T$#)1)" ")(SETQ T$#(SUBSTR T$# 1(-(STRLEN T$#)1)))))T$#)
(defun TO#(T$# T|# / T%# T?0 Tj0)(SETQ T%#""Tj0 0)(REPEAT(STRLEN T$#)(SETQ Tj0(+ Tj0 1)T?0(SUBSTR T$# Tj0 1))(IF(/= T?0 T|#)(SETQ T%#(STRCAT T%# T?0))))T%#)
(defun T@0(TQ0 T|# Tl0 / T&0 T?0 Tj0)(SETQ T&0""Tj0 0)(REPEAT(STRLEN TQ0)(SETQ Tj0(+ Tj0 1)T?0(SUBSTR TQ0 Tj0 1))(IF(= T?0 T|#)(SETQ T?0 Tl0))(SETQ T&0(STRCAT T&0 T?0)))T&0)
(defun T10(TQ0 /)(T@0(T@0 TQ0"(""{")")""}"))
(defun T#0(T&0 T00 / T$0 TO0 T|0 T%0 T?$ Tj0 Tj$)(SETQ T$0 0)(IF(AND T&0(/= T&0"")(/= T00""))(PROGN(SETQ TO0(STRLEN T&0)T|0(STRLEN T00))(IF(>= TO0 T|0)(PROGN(SETQ Tj$ NIL Tj0 1 T%0(+(- TO0 T|0)1))(WHILE(AND(NULL Tj$)(<= Tj0 T%0))(SETQ T?$(SUBSTR T&0 Tj0 T|0)Tj0(+ Tj0 1))(IF(= T?$ T00)(SETQ Tj$ T)))(IF Tj$(SETQ T$0(- Tj0 1)))))))T$0)
(defun T@$(T&0 T00 /)(>(T#0 T&0 T00)0))
(defun TQ$(T&0 Tl$ T&$ / T1$ T#$)(SETQ T1$ T&0 T#$(T#0 T&0 Tl$))(IF(> T#$ 0)(SETQ T1$(STRCAT(SUBSTR T&0 1(- T#$ 1))T&$(SUBSTR T&0(+ T#$(STRLEN Tl$))(-(STRLEN T&0)(-(+ T#$(STRLEN Tl$))1))))))T1$)
(defun T0$(T&0 T$$ /)(SUBSTR(STRCAT T&0"                                                            ")1 T$$))
(defun TO$(T&0 T$$ /)(SETQ T&0(STRCAT"                                                            "T&0))(SUBSTR T&0(+(-(STRLEN T&0)T$$)1)T$$))
(defun T|$(T&0 T$$ /)(SUBSTR(T0$(TO$ T&0(Tl(/(+ T$$(STRLEN T&0))2)))T$$)1 T$$))
(defun T%$(T?O /)(OR(AND(>= T?O 65)(<= T?O 90))(AND(>= T?O 97)(<= T?O 122))))
(defun TjO(T@O /)(AND(>= T@O 48)(<= T@O 57)))
(defun TQO(TlO T&O / T1O T#O T0O T$O T$0 T$$)(SETQ T1O NIL)(IF(= TlO"")(SETQ TlO NIL))(IF(= T&O"")(SETQ T&O NIL))(IF(= T&O NIL)(SETQ TlO NIL))(IF TlO(PROGN(SETQ T0O 0 T#O(LIST 0))(REPEAT(STRLEN TlO)(SETQ T0O(+ T0O 1))(IF(=(SUBSTR TlO T0O 1)T&O)(SETQ T#O(CONS T0O T#O))))(SETQ T#O(CONS(+ T0O 1)T#O)T#O(REVERSE T#O))(SETQ T0O 0)(REPEAT(-(LENGTH T#O)1)(SETQ T0O(+ T0O 1)T$0(+(NTH(- T0O 1)T#O)1)T$$(-(NTH T0O T#O)T$0)T$O(SUBSTR TlO T$0 T$$))(IF T$O(SETQ T1O(CONS T$O T1O))))(SETQ T1O(REVERSE T1O))))T1O)
(defun TOO(T|O / T%O T?| Tj| T@| TQ| Tj$)(SETQ T|O(T0# T|O)T?|""Tj|""T@|"")(IF(>(STRLEN T|O)0)(PROGN(SETQ TQ|(ASCII(SUBSTR T|O(STRLEN T|O)1)))(IF(TjO TQ|)(PROGN(SETQ Tj$ T)(WHILE Tj$(SETQ TQ|(ASCII(SUBSTR T|O(STRLEN T|O)1)))(IF(TjO TQ|)(SETQ Tj|(STRCAT(CHR TQ|)Tj|))(SETQ Tj$ NIL))(IF Tj$(SETQ T|O(SUBSTR T|O 1(-(STRLEN T|O)1))))(IF(=(STRLEN T|O)0)(SETQ Tj$ NIL)))(SETQ T?|(T0# T|O)))(PROGN(SETQ Tj$ T)(WHILE Tj$(SETQ TQ|(ASCII(SUBSTR T|O(STRLEN T|O)1)))(IF(TjO TQ|)(SETQ Tj$ NIL)(SETQ T@|(STRCAT(CHR TQ|)T@|)))(IF Tj$(SETQ T|O(SUBSTR T|O 1(-(STRLEN T|O)1))))(IF(=(STRLEN T|O)0)(SETQ Tj$ NIL)))(IF(>(STRLEN T|O)0)(PROGN(SETQ Tj$ T)(WHILE Tj$(SETQ TQ|(ASCII(SUBSTR T|O(STRLEN T|O)1)))(IF(TjO TQ|)(SETQ Tj|(STRCAT(CHR TQ|)Tj|))(SETQ Tj$ NIL))(IF Tj$(SETQ T|O(SUBSTR T|O 1(-(STRLEN T|O)1))))(IF(=(STRLEN T|O)0)(SETQ Tj$ NIL)))))(SETQ T?|(T0# T|O))(IF(AND(=(STRLEN T?|)0)(=(STRLEN Tj|)0)(>(STRLEN T@|)0))(SETQ T?| T@| T@|""))))))(LIST T?| Tj| T@|))
(defun Tl|(T|O / T&| Tl@ T1|)(SETQ T&|(TOO T|O)Tl@(CADR T&|))(IF(/= Tl@"")(SETQ T1|(ATOI Tl@))(SETQ T1| 0))T1|)
(defun T#|(T0| / T$|)(IF T0|(SETQ T$|"T")(SETQ T$|"F"))T$|)
(defun TO|(T&0 T|| / T&| T%| T$$ T?%)(IF(>(STRLEN T&0)T||)(PROGN(SETQ T&|(TQO T&0" "))(IF(>(LENGTH T&|)1)(PROGN(SETQ T&0""T$$ 0)(WHILE T&|(SETQ T%|(CAR T&|)T?%(STRLEN T%|))(IF(<(+ T$$ T?%)T||)(SETQ T&0(STRCAT T&0 T%|" ")T$$(+ T$$ T?% 1)T&|(CDR T&|))(SETQ T&0(STRCAT T&0"\n")T$$ 0)))(SETQ T&0(T0# T&0))))))T&0)
(defun Tj%(T1O / T@% TlO TQ% Tl% T&%)(SETQ T@% T1O)(IF T1O(IF(>(LENGTH T1O)1)(PROGN(SETQ T@% NIL T@%(CONS(NTH 0 T1O)T@%)TQ% 0)(REPEAT(-(LENGTH T1O)1)(SETQ TQ%(+ TQ% 1)TlO(NTH TQ% T1O)T&% T Tl% 0)(REPEAT(LENGTH T@%)(SETQ Tl%(+ Tl% 1))(IF(= TlO(NTH(- Tl% 1)T@%))(SETQ T&% NIL)))(IF T&%(SETQ T@%(CONS TlO T@%))))(SETQ T@%(REVERSE T@%)))))T@%)
(defun T1%(T&0 /)(SETQ T&0(STRCASE T&0))(OR(= T&0"U")(= T&0"UN")(= T&0"UND")(= T&0"UNDO")))
(defun T#%(T@ T$$ T0% T$% / T&0)(SETQ T&0(RTOS T@ 2 T0%))(IF T$%(IF(> T@ 0.0)(SETQ T&0(STRCAT"+"T&0))))(IF(> T$$(STRLEN T&0))(SETQ T&0(TO$ T&0 T$$)))T&0)
(defun TO%(T@ / T&0 T$$)(SETQ T&0(RTOS T@ 2 8))(IF(>=(STRLEN T&0)3)(PROGN(WHILE(=(SUBSTR T&0(SETQ T$$(STRLEN T&0))1)"0")(SETQ T&0(SUBSTR T&0 1(- T$$ 1))))(IF(=(SUBSTR T&0(SETQ T$$(STRLEN T&0))1)".")(SETQ T&0(SUBSTR T&0 1(- T$$ 1))))))(STRCAT"1:"T&0))
(defun T|%(T&0 / T$| T%% T??j T1$)(SETQ T1$ NIL)(IF T&0(PROGN(SETQ T??j(STRLEN T&0))(IF(> T??j 0)(PROGN(SETQ T1$ T T%% 0)(REPEAT T??j(SETQ T%%(+ T%% 1)T$|(ASCII(SUBSTR T&0 T%%)))(IF(NOT(OR(AND(>= T$| 48)(<= T$| 57))(= T$| 43)(= T$| 45)(= T$| 46)(= T$| 69)(= T$| 101)))(SETQ T1$ NIL)))))))T1$)
(defun Tj?j(T&0 / T@?j TQ?j Tj0 Tl?j)(SETQ T@?j 0.0)(IF T&0(PROGN(SETQ TQ?j(STRLEN T&0))(IF(> TQ?j 4)(SETQ TQ?j 4))(IF(> TQ?j 0)(PROGN(SETQ Tj0 0)(REPEAT TQ?j(SETQ Tj0(+ Tj0 1)Tl?j(ASCII(SUBSTR T&0 Tj0 1)))(IF(AND(>= Tl?j 32)(<= Tl?j 126))(SETQ T@?j(+ T@?j(* Tl?j(EXPT 128(- Tj0 1)))))))))))T@?j)
(defun T&?j(T@?j / T&0 Tj0 Tl?j)(SETQ T&0"")(IF(AND T@?j(> T@?j 0.0))(PROGN(SETQ Tj0 4)(WHILE(>= Tj0 0)(SETQ Tl?j(FIX(/ T@?j(EXPT 128 Tj0)))T@?j(REM T@?j(EXPT 128 Tj0)))(IF(AND(>= Tl?j 32)(<= Tl?j 126))(SETQ T&0(STRCAT(CHR Tl?j)T&0)))(SETQ Tj0(- Tj0 1)))))T&0)
(defun T1?j(T&0 / T&| T#?j T|l T1$)(SETQ T1$ 0)(IF(AND T&0(/= T&0""))(PROGN(SETQ T&|(TQO T&0"."))(WHILE(<(LENGTH T&|)3)(SETQ T&|(APPEND T&|(LIST"0"))))(SETQ T#?j 10000)(REPEAT 3(SETQ T|l(*(ATOI(CAR T&|))T#?j)T1$(+ T1$ T|l)T#?j(FIX(/ T#?j 100))T&|(CDR T&|)))))T1$)
(defun T0?j(T$?j T0@ TO?j / T|?j T%?j T?jj)(SETQ T|?j"")(IF T0@(SETQ T%?j(RTOS(CAR T0@)2 TO?j)T?jj(RTOS(CADR T0@)2 TO?j)T|?j(STRCAT T$?j" "T%?j" "T?jj)))T|?j)
(defun Tjjj(T$?j T0@ TO?j T@jj TQjj / Tljj TO@ T|@ T%?j T?jj T&jj)(SETQ Tljj"")(IF T0@(PROGN(IF T@jj(SETQ TO@(CADR T0@)T|@(CAR T0@))(SETQ TO@(CAR T0@)T|@(CADR T0@)))(SETQ T%?j(RTOS TO@ 2 TO?j)T?jj(RTOS T|@ 2 TO?j)T&jj(RTOS(CADDR T0@)2 TO?j)Tljj(STRCAT T$?j TQjj T%?j TQjj T?jj TQjj T&jj))))Tljj)
(defun T1jj(T0@ TO?j / T|?j T#jj T0jj)(SETQ T|?j"")(IF T0@(SETQ T#jj(RTOS(CAR T0@)2 TO?j)T0jj(RTOS(CADR T0@)2 TO?j)T|?j(STRCAT T#jj" "T0jj)))T|?j)
(defun T$jj(TOjj T|jj T%jj TO?j / T|?j T#jj T0jj T?@j Tj@j)(SETQ T|?j"")(IF(AND T|jj T%jj)(SETQ T#jj(RTOS(CAR T|jj)2 TO?j)T0jj(RTOS(CADR T|jj)2 TO?j)T?@j(RTOS(CAR T%jj)2 TO?j)Tj@j(RTOS(CADR T%jj)2 TO?j)T|?j(STRCAT TOjj" "T#jj" "T0jj" "T?@j" "Tj@j)))T|?j)
(defun T@@j(T|?j TQjj / TQ@j T%O)(SETQ TQ@j NIL)(IF(AND T|?j TQjj)(PROGN(SETQ T|?j(T0# T|?j))(IF(/= T|?j"")(PROGN(SETQ T%O(TQO T|?j TQjj))(IF(>=(LENGTH T%O)2)(SETQ TQ@j(LIST(ATOF(NTH 0 T%O))(ATOF(NTH 1 T%O))0.0)))))))TQ@j)
(defun Tl@j(T$# / T&0 T$| TQ| Tj0 Tj$)(SETQ T&0""Tj0 0)(REPEAT(STRLEN T$#)(SETQ Tj0(+ Tj0 1)T$|(SUBSTR T$# Tj0 1)TQ|(ASCII T$|)Tj$ T)(IF(T%$ TQ|)(SETQ Tj$ NIL))(IF(TjO TQ|)(SETQ Tj$ NIL))(IF(="$"T$|)(SETQ Tj$ NIL))(IF(="_"T$|)(SETQ Tj$ NIL))(IF(="-"T$|)(SETQ Tj$ NIL))(IF Tj$(SETQ T$|"_"))(IF(<= Tj0 30)(SETQ T&0(STRCAT T&0 T$|))))T&0)
(defun T&@j(T1@j /)(SETQ T1@j(TOO T1@j))(STRCAT(CAR T1@j)(CADR T1@j)(CADDR T1@j)))
(defun T#@j(T0@j / T$@j T&|)(SETQ T$@j"")(IF T0@j(PROGN(SETQ T0@j(T0# T0@j))(IF(/= T0@j"")(PROGN(SETQ T&|(TQO T0@j"."))(IF(>(LENGTH T&|)1)(SETQ T$@j(STRCAT"."(LAST T&|))))))))T$@j)
(defun TO@j(T0@j / T|@j T$@j)(SETQ T|@j"")(IF T0@j(PROGN(SETQ T0@j(T0# T0@j))(IF(/= T0@j"")(PROGN(SETQ T0@j(LAST(TQO T0@j"\\")))(IF(>(STRLEN T0@j)0)(PROGN(SETQ T$@j(T#@j T0@j))(IF(/= T$@j"")(SETQ T|@j(SUBSTR T0@j 1(-(STRLEN T0@j)(STRLEN T$@j))))(SETQ T|@j T0@j))))))))T|@j)
(defun T%@j(T0@j / T?Qj T|@j T$@j T$$)(SETQ T?Qj"")(IF T0@j(PROGN(SETQ T0@j(T0# T0@j))(IF(/= T0@j"")(SETQ T$@j(T#@j T0@j)T|@j(TO@j T0@j)T$$(+(STRLEN T|@j)(STRLEN T$@j))T?Qj(SUBSTR T0@j 1(-(STRLEN T0@j)T$$))))))T?Qj)
(defun TjQj(T0@j T$@j / T?Qj T|@j T$$)(STRCAT(T%@j T0@j)(TO@j T0@j)T$@j))
(defun T@Qj(TQQj / TlQj)(SETQ TlQj(OPEN TQQj"w"))(CLOSE TlQj))
(defun T&Qj(TQQj T1Qj T#Qj T0Qj / T$Qj TlQj TOQj Tj0 T|Qj)(SETQ T$Qj NIL)(IF TQQj(SETQ TQQj(FINDFILE TQQj)))(IF TQQj(PROGN(IF(NULL T0Qj)(SETQ T|Qj 0 T0Qj 1)(SETQ T|Qj 1))(SETQ TlQj(OPEN TQQj"r"))(IF T#Qj(PROGN(SETQ Tj0 1)(WHILE(AND(< Tj0 T#Qj)(SETQ TOQj(READ-LINE TlQj)))(SETQ Tj0(+ Tj0 1)))))(SETQ Tj0 0)(WHILE(AND(< Tj0 T0Qj)(SETQ TOQj(READ-LINE TlQj)))(SETQ T$Qj(APPEND T$Qj(LIST TOQj))Tj0(+ Tj0 T|Qj)))(CLOSE TlQj)(IF T1Qj(T@Qj TQQj))))T$Qj)
(defun T%Qj(/)(IF T?lj(PROGN(CLOSE Tjlj)(SETQ T?lj NIL))))
(defun T@lj(TQQj TQlj /)(IF T?lj(T%Qj))(IF TQQj(SETQ Tjlj(OPEN TQQj TQlj)T?lj T)))
(defun Tllj(T&lj / T1lj T#lj)(IF(AND T?lj T&lj(>(LENGTH T&lj)0))(WHILE T&lj(SETQ T1lj(CAR T&lj))(IF T1lj(IF(LISTP T1lj)(PROGN(SETQ T#lj(LENGTH T1lj))(COND((= T#lj 1)(WRITE-LINE(ITOA(CAR T1lj))Tjlj))((= T#lj 2)(WRITE-LINE(T1jj(CAR T1lj)(CADR T1lj))Tjlj))((= T#lj 3)(WRITE-LINE(T#%(CAR T1lj)(CADR T1lj)(CADDR T1lj)NIL)Tjlj))((= T#lj 4)(WRITE-LINE(T$jj(CAR T1lj)(CADR T1lj)(CADDR T1lj)(CADDDR T1lj))Tjlj))))(WRITE-LINE T1lj Tjlj)))(SETQ T&lj(CDR T&lj)))))
(defun T0lj(T$lj / TOlj Tj0 T$$ T&O)(SETQ TOlj""T&O";"T$$(LENGTH T$lj))(IF(= T|lj 1)(PROGN(IF(AND(= T%lj 3)(>= T?&j 20091231))(PROGN(IF(< T?&j 20120800)(SETQ T&O",")))(PROGN(IF(AND(= T%lj 11)(>= T?&j 140000))(SETQ T&O";")(SETQ T&O";*."))))))(IF(AND T$lj(> T$$ 0))(PROGN(SETQ Tj0 -1)(REPEAT T$$(SETQ TOlj(STRCAT TOlj(NTH(SETQ Tj0(+ Tj0 1))T$lj)))(IF(< Tj0(- T$$ 1))(SETQ TOlj(STRCAT TOlj T&O))))))TOlj)
(defun Tj&j(T@&j / TQ&j)(IF T@&j(SETQ TQ&j(ENTGET T@&j))(SETQ TQ&j NIL))TQ&j)
(defun Tl&j(T&&j / TQ&j)(IF(AND T&&j(=(TYPE T&&j)(quote STR)))(PROGN(SETQ TQ&j(HANDENT T&&j))(IF(NOT(Tj&j TQ&j))(SETQ TQ&j NIL)))(SETQ TQ&j NIL))TQ&j)
(defun T1&j(T#&j T0&j /)(CDR(ASSOC T#&j T0&j)))
(defun T$&j(T0&j /)(T1&j 0 T0&j))
(defun TO&j(T0&j T|&j /)(=(T$&j T0&j)T|&j))
(defun T%&j(T#&j T?1j Tj1j / T0@ T|Q)(SETQ T0@(T1&j T#&j T?1j))(IF Tj1j(SETQ T|Q(T1&j 210 T?1j)T0@(T?# T0@ T|Q)))T0@)
(defun T@1j(T?1j / TQ1j Tl1j T&1j)(SETQ TQ1j 0 T&1j(ASSOC -3 T?1j))(IF T&1j(PROGN(SETQ T&1j(CAR(CDR T&1j))Tl1j(CAR T&1j))(IF(= Tl1j"TOPOLT")(SETQ TQ1j(CDR(ASSOC 1070(CDR T&1j))))))))
(defun T11j(T?1j TQ1j / T#1j)(IF T?1j(SETQ T#1j(LIST(CONS -3(LIST(LIST"TOPOLT"(CONS 1070 TQ1j)))))T?1j(APPEND T?1j T#1j)))T?1j)
(defun T01j(T?1j / T$1j TO1j Tl1j T&1j)(SETQ T$1j(SSADD)T&1j(ASSOC -3 T?1j))(IF T&1j(PROGN(SETQ T&1j(CAR(CDR T&1j))Tl1j(CAR T&1j)T&1j(CDR T&1j))(IF(AND(= Tl1j"TOPOLT")(ASSOC 1005 T&1j))(PROGN(WHILE T&1j(SETQ TO1j(Tl&j(CDR(ASSOC 1005 T&1j))))(IF TO1j(SSADD TO1j T$1j))(SETQ T&1j(CDR T&1j)))))))T$1j)
(defun T|1j(T?1j T%1j / T&&j Tl1j T&1j)(SETQ T&&j""T&1j(ASSOC -3 T?1j))(IF T&1j(PROGN(SETQ T&1j(CAR(CDR T&1j))Tl1j(CAR T&1j)T&1j(CDR T&1j))(IF(AND(= Tl1j"TOPOLT")(ASSOC 1005 T&1j))(COND((= T%1j"SUP")(SETQ T&&j(CDR(ASSOC 1005 T&1j))))((= T%1j"NMP")(SETQ T&&j(CDR(ASSOC 1005(CDR T&1j)))))((= T%1j"NRP")(SETQ T&&j(CDR(ASSOC 1005(CDDR T&1j)))))((= T%1j"PLE")(SETQ T&&j(CDR(ASSOC 1005(CDDDR T&1j)))))))))T&&j)
(defun T?#j(T?1j Tj#j T@#j TQ#j Tl#j / T#1j)(IF T?1j(PROGN(SETQ T#1j(LIST(CONS -3(LIST(LIST"TOPOLT"(CONS 1005 Tj#j)(CONS 1005 T@#j)(CONS 1005 TQ#j)(CONS 1005 Tl#j))))))(SETQ T?1j(APPEND T?1j T#1j))))T?1j)
(defun T&#j(T?1j T#&j / T1#j T1lj)(SETQ T1#j NIL)(WHILE T?1j(SETQ T1lj(CAR T?1j))(IF(/=(CAR T1lj)T#&j)(SETQ T1#j(APPEND T1#j(LIST T1lj))))(SETQ T?1j(CDR T?1j)))T1#j)
(defun T##j(T?1j T0#j / T#&j T1lj)(WHILE T0#j(SETQ T1lj(CAR T0#j)T#&j(CAR T1lj)T1lj(CADR T1lj))(IF(ASSOC T#&j T?1j)(SETQ T?1j(SUBST(CONS T#&j T1lj)(ASSOC T#&j T?1j)T?1j))(SETQ T?1j(APPEND T?1j(LIST(CONS T#&j T1lj)))))(SETQ T0#j(CDR T0#j)))(ENTMOD T?1j))
(defun T$#j(T@&j / T?1j T&&j)(SETQ T?1j(Tj&j T@&j))(IF T?1j(SETQ T&&j(T1&j 5 T?1j))(SETQ T&&j""))T&&j)
(defun TO#j(T|#j T%#j / T&1j T?0j)(IF(AND T|#j T%#j)(PROGN(SETQ T&1j(ASSOC -3(ENTGET T|#j(quote ("PROFLT")))))(IF T&1j(PROGN(SETQ T?0j(Tj&j T%#j)T&1j(CDR(CADR T&1j))T&1j(SUBST(CONS 1005(T1&j 5 T?0j))(ASSOC 1005 T&1j)T&1j)T&1j(CONS -3(LIST(APPEND(LIST"PROFLT")T&1j))))(T##j(APPEND T?0j(LIST T&1j))NIL))(PROGN(SETQ T&1j(ASSOC -3(ENTGET T|#j(quote ("TOPOLT")))))(IF T&1j(PROGN(SETQ T?0j(Tj&j T%#j)T&1j(CDR(CADR T&1j))T&1j(CONS -3(LIST(APPEND(LIST"TOPOLT")T&1j))))(T##j(APPEND T?0j(LIST T&1j))NIL))))))))
(defun Tj0j(T@0j)(IF(AND T@0j(TBLSEARCH"LAYER"T@0j))(command-s"._LAYER""_ON"T@0j"")))
(defun TQ0j(T@0j)(IF(AND T@0j(TBLSEARCH"LAYER"T@0j))(IF(/=(STRCASE(GETVAR"CLAYER"))(STRCASE T@0j))(command-s"._LAYER""_OFF"T@0j""))))
(defun Tl0j(T@0j / T&0j)(IF T@0j(PROGN(SETQ T&0j(Tj&j(TBLOBJNAME"LAYER"T@0j)))(IF(AND T&0j(T1&j 290 T&0j))(T##j T&0j(LIST(LIST 290 1)))))))
(defun T10j(T@0j / T&0j)(IF T@0j(PROGN(SETQ T&0j(Tj&j(TBLOBJNAME"LAYER"T@0j)))(IF(AND T&0j(T1&j 290 T&0j))(T##j T&0j(LIST(LIST 290 0)))))))
(defun T#0j(T00j / T&0j T$0j TO0j T|0j T%0j T?$j Tj$j T@$j TQ$j)(SETQ T$0j 7 TO0j NIL T|0j NIL T%0j NIL T?$j NIL)(SETQ T&0j(Tj&j(TBLOBJNAME"LAYER"T00j)))(IF T&0j(PROGN(SETQ Tj$j(T1&j 62 T&0j)T@$j(T1&j 70 T&0j)TQ$j(T1&j 290 T&0j)T$0j(ABS Tj$j))(IF(< Tj$j 0)(SETQ TO0j T))(IF(= T@$j 1)(SETQ T|0j T)(IF(= T@$j 4)(SETQ T%0j T)(IF(= T@$j 5)(SETQ T|0j T T%0j T))))(IF(AND TQ$j(= TQ$j 0))(SETQ T?$j T))))(LIST T$0j TO0j T|0j T%0j T?$j))
(defun Tl$j(T&$j /)(IF(AND T&$j(/= T&$j"")(NULL(TBLSEARCH"LAYER"T&$j)))(command-s"._LAYER""_N"T&$j"_C"1 T&$j""))(IF(AND T&$j(/= T&$j""))(PROGN(command-s"._LAYER""_T"T&$j"_ON"T&$j"")(SETVAR"CLAYER"T&$j))))
(defun T1$j(T?1j / T#$j)(IF T?1j(SETQ T#$j(T1&j 8 T?1j))(SETQ T#$j"0"))T#$j)
(defun T0$j(T#$j T$$j TO$j / T$0j T|$j)(SETQ T$0j T$$j T|$j NIL)(IF T#$j(SETQ T|$j(TBLSEARCH"LAYER"T#$j)))(IF T|$j(PROGN(IF(AND TO$j(T1&j 420 T|$j))(SETQ T$0j(*(ABS(T1&j 420 T|$j))-1))(PROGN(SETQ T$0j(ABS(T1&j 62 T|$j)))(IF(= T$0j 0)(SETQ T$0j T$$j))))))T$0j)
(defun T%$j(T0&j T$$j TO$j / T$0j)(SETQ T$0j T$$j)(IF T0&j(PROGN(IF(AND TO$j(T1&j 420 T0&j))(SETQ T$0j(*(T1&j 420 T0&j)-1))(PROGN(SETQ T$0j(T1&j 62 T0&j))(IF(OR(NOT T$0j)(= T$0j 256))(SETQ T$0j(T0$j(T1$j T0&j)T$$j TO$j)))(IF(= T$0j 0)(SETQ T$0j T$$j))))))T$0j)
(defun T?Oj(T?1j / TjOj)(IF(AND T?1j(ASSOC 6 T?1j))(SETQ TjOj(T1&j 6 T?1j))(SETQ TjOj"BYLAYER"))TjOj)
(defun T@Oj(TQOj TlOj T&Oj / T1Oj T#Oj)(IF(NOT T0Oj)(PROGN(SETQ T0Oj T)(command-s"._AREA""_E"TQOj)(SETQ T1Oj(GETVAR"AREA")T#Oj(GETVAR"PERIMETER")T0Oj NIL))(SETQ T1Oj TlOj T#Oj T&Oj))(LIST T1Oj T#Oj))
(defun T$Oj(T$# / Tj$)(SETQ Tj$ NIL)(IF T$#(IF(OR(= T$#"LWPOLYLINE")(= T$#"POLYLINE"))(SETQ Tj$ T)))Tj$)
(defun TOOj(T|Oj /)(NOT(TOl(T1&j 70 T|Oj))))
(defun T%Oj(T?|j / Tj|j)(SETQ Tj|j 0)(IF(> T?|j 1)(PROGN(IF(>(LOGAND 2 T?|j)0)(SETQ Tj|j 1)(IF(>(LOGAND 4 T?|j)0)(PROGN(SETQ Tj|j 2)(IF(>(LOGAND 8 T?|j)0)(SETQ Tj|j 3))(IF(>(LOGAND 16 T?|j)0)(SETQ Tj|j 7)))(IF(>(LOGAND 8 T?|j)0)(SETQ Tj|j 4)(IF(>(LOGAND 16 T?|j)0)(SETQ Tj|j 5)(IF(>(LOGAND 32 T?|j)0)(SETQ Tj|j 5)(IF(>(LOGAND 64 T?|j)0)(SETQ Tj|j 6)(IF(>(LOGAND 128 T?|j)0)(SETQ Tj|j 0))))))))))Tj|j)
(defun T@|j(TQ|j / Tl|j)(SETQ Tl|j 0.0)(IF TQ|j(PROGN(IF(=(TYPE TQ|j)(quote ENAME))(SETQ TQ|j(Tj&j TQ|j)))(IF(TO&j TQ|j"LWPOLYLINE")(SETQ Tl|j(T1&j 38 TQ|j))(IF(AND(TO&j TQ|j"POLYLINE")(<(T%Oj(T1&j 70 TQ|j))4))(SETQ Tl|j(CADDR(T%&j 10 TQ|j NIL)))))))Tl|j)
(defun T&|j(TQ|j Tl|j / T0@)(IF TQ|j(PROGN(IF(=(TYPE TQ|j)(quote ENAME))(SETQ TQ|j(Tj&j TQ|j)))(IF(TO&j TQ|j"LWPOLYLINE")(T##j TQ|j(LIST(LIST 38 Tl|j)))(IF(AND(TO&j TQ|j"POLYLINE")(<(T%Oj(T1&j 70 TQ|j))4))(PROGN(SETQ T0@(T%&j 10 TQ|j NIL))(T##j TQ|j(LIST(LIST 10(T@1 T0@ Tl|j))))))))))
(defun T1|j(T#|j / T0|j)(SETQ T0|j 0.0)(IF T#|j(IF(ASSOC 43 T#|j)(SETQ T0|j(T1&j 43 T#|j))(IF(ASSOC 40 T#|j)(SETQ T0|j(T1&j 40 T#|j)))))T0|j)
(defun T$|j(T@&j / T?1j TO|j T||j)(SETQ T||j NIL)(IF T@&j(PROGN(SETQ T?1j(Tj&j T@&j))(IF T?1j(PROGN(SETQ TO|j(T$&j T?1j))(IF(OR(= TO|j"CIRCLE")(= TO|j"ELLIPSE")(AND(T$Oj TO|j)(<(T%Oj(T1&j 70 T?1j))5)))(SETQ T||j T))))))T||j)
(defun T%|j(T?%j /)(WHILE(OR(< T?%j 0.0)(>= T?%j Tj%j))(IF(>= T?%j Tj%j)(SETQ T?%j(- T?%j Tj%j)))(IF(< T?%j 0.0)(SETQ T?%j(+ T?%j Tj%j))))T?%j)
(defun T@%j(TQ%j Tl%j T&%j / Tj$)(SETQ Tj$ NIL TQ%j(T%|j TQ%j)Tl%j(T%|j Tl%j)T&%j(T%|j T&%j))(IF(> Tl%j T&%j)(PROGN(IF(>= TQ%j Tl%j)(IF(< TQ%j Tj%j)(SETQ Tj$ T)))(IF(>= TQ%j 0)(IF(<= TQ%j T&%j)(SETQ Tj$ T))))(IF(>= TQ%j Tl%j)(IF(<= TQ%j T&%j)(SETQ Tj$ T))))Tj$)
(defun T1%j(Tl%j T&%j T#%j / T0%j)(SETQ Tl%j(T%|j Tl%j)T&%j(T%|j T&%j)T0%j(+ Tj%j(- T&%j Tl%j)))(IF(>= T0%j Tj%j)(SETQ T0%j(- T0%j Tj%j)))(IF(< T#%j 0)(SETQ T0%j(- T0%j Tj%j)))T0%j)
(defun T$%j(TO%j T|%j T%%j / T?Q T??@ Tj?@ T@?@ Tl%j T0%j TQ?@)(SETQ TQ?@ NIL)(IF(AND TO%j T|%j T%%j)(PROGN(SETQ T?Q(DISTANCE TO%j T|%j))(IF(> T?Q 0.0001)(SETQ Tj?@(ABS(/(* T?Q T%%j)2.0))T??@(/(+(EXPT(/ T?Q 2.0)2.0)(EXPT Tj?@ 2.0))(* 2.0 Tj?@))T0%j(* 2.0(ATAN(/ T?Q 2.0)(- T??@ Tj?@)))T0%j(* T0%j(/ T%%j(ABS T%%j)))T@?@(T&& TO%j T|%j)T@?@(POLAR T@?@(+(ANGLE TO%j T|%j)T%&)(*(- T??@ Tj?@)(/ T%%j(ABS T%%j))))Tl%j(ANGLE T@?@ TO%j)TQ?@(LIST(CAR T@?@)(CADR T@?@)Tl%j T0%j T??@)))))TQ?@)
(defun Tl?@(/ T&?@)(IF(TBLSEARCH"BLOCK"T1?@)(SETQ T&?@ T)(SETQ T&?@ NIL))T&?@)
(defun T#?@(T0?@ / T$?@)(SETQ T$?@ NIL)(IF T0?@(IF(TO&j T0?@"INSERT")(IF(=(STRCASE(T1&j 2 T0?@))T1?@)(SETQ T$?@ T))))T$?@)
(defun TO?@(T|?@ T%?@ / T0?@ T#1j)(IF(AND T|?@ T%?@(=(LENGTH T%?@)5))(PROGN(SETQ T0?@(Tj&j T|?@))(IF T0?@(PROGN(SETQ T#1j(LIST(CONS -3(LIST(LIST"TOPOLT"(CONS 1070 10)(CONS 1005(T$#j(NTH 1 T%?@)))(CONS 1005(T$#j(NTH 2 T%?@)))(CONS 1005(T$#j(NTH 3 T%?@)))(CONS 1005(T$#j(NTH 4 T%?@))))))))(SETQ T0?@(APPEND T0?@ T#1j))(T##j T0?@ NIL))))))
(defun T?j@(T|?@ / Tjj@ T0?@ T&1j Tl1j T@j@ T&| T&&j TQ|j TQj@ Tlj@ T&j@ T1j@)(SETQ Tjj@ NIL)(IF T|?@(PROGN(SETQ T0?@(ENTGET T|?@(quote ("TOPOLT"))))(IF T0?@(PROGN(SETQ T&1j(ASSOC -3 T0?@))(IF T&1j(PROGN(SETQ T&1j(CAR(CDR T&1j))Tl1j(CAR T&1j))(IF(= Tl1j"TOPOLT")(PROGN(SETQ T&1j(CDR T&1j))(IF(ASSOC 1070 T&1j)(PROGN(SETQ T1j@(T1&j 1070 T&1j)T&1j(CDR T&1j))(IF(= T1j@ 10)(PROGN(IF(AND T&1j(>=(LENGTH T&1j)4))(SETQ TQ|j(Tl&j(CDR(NTH 0 T&1j)))TQj@(Tl&j(CDR(NTH 1 T&1j)))Tlj@(Tl&j(CDR(NTH 2 T&1j)))T&j@(Tl&j(CDR(NTH 3 T&1j)))Tjj@(LIST T|?@ TQ|j TQj@ Tlj@ T&j@)))))))))))))))Tjj@)
(defun T#j@(T|?@ / Tjj@ T0?@ T&1j Tl1j T@j@ T&| TQ|j TQj@ Tlj@ T&j@)(SETQ Tjj@ NIL)(IF T|?@(PROGN(SETQ T0?@(ENTGET T|?@(quote ("TOPOLT"))))(IF T0?@(PROGN(SETQ T&1j(ASSOC -3 T0?@))(IF T&1j(PROGN(SETQ T&1j(CAR(CDR T&1j))Tl1j(CAR T&1j))(IF(= Tl1j"TOPOLT")(PROGN(SETQ T&1j(CDR T&1j))(IF(NOT(ASSOC 1070 T&1j))(PROGN(SETQ T@j@(T1&j 1000 T&1j)T&|(TQO T@j@","))(IF(AND T&|(>=(LENGTH T&|)4))(SETQ TQ|j(Tl&j(NTH 0 T&|))TQj@(Tl&j(NTH 1 T&|))Tlj@(Tl&j(NTH 2 T&|))T&j@(Tl&j(NTH 3 T&|))Tjj@(LIST T|?@ TQ|j TQj@ Tlj@ T&j@)))))))))))))Tjj@)
(defun T0j@(T|?@ / T1$ T0?@ T&1j Tl1j)(SETQ T1$ 4)(IF T|?@(PROGN(SETQ T0?@(ENTGET T|?@(quote ("TOPOLT"))))(IF T0?@(PROGN(SETQ T&1j(ASSOC -3 T0?@))(IF T&1j(PROGN(SETQ T&1j(CAR(CDR T&1j))Tl1j(CAR T&1j))(IF(= Tl1j"TOPOLT")(PROGN(SETQ T&1j(CDR T&1j))(IF(ASSOC 1070 T&1j)(SETQ T1$(T1&j 1070 T&1j))(SETQ T1$ 5))))))))))T1$)
(defun T$j@(T$# TOj@ T|j@ T%j@ / T?@@)(SETQ T|j@(T0# T|j@))(SETQ T%j@(T0# T%j@))(IF(/= T|j@"")(SETQ T|j@(STRCAT" <"T|j@">")))(SETQ T?@@(- TOj@(+(STRLEN T|j@)(STRLEN T%j@))))(IF(AND(> T?@@(STRLEN T$#))(< TOj@ 80))(SETQ T$#(STRCAT"\n"(T0$ T$# T?@@)T|j@ T%j@": "))(SETQ T$#(STRCAT"\n"T$# T|j@ T%j@": ")))T$#)
(defun Tj@@(T$# TOj@ T|j@)(SETQ T|j@(T0# T|j@))(IF(/= T|j@"")(SETQ T|j@(STRCAT": "T|j@)))(IF(> TOj@(STRLEN T$#))(SETQ T$#(STRCAT"\n"(T0$ T$# TOj@)T|j@))(SETQ T$#(STRCAT"\n"T$# T|j@)))(PRINC T$#)(PRINC))
(defun T@@@(T|l / T&| T&0)(SETQ T&0"")(IF(>= T|l 1)(IF(<= T|l(LENGTH TQ@@))(IF TQ@@(PROGN(SETQ T&0(NTH(- T|l 1)TQ@@)T&|(TQO T&0";"))(IF(>(LENGTH T&|)0)(SETQ T&0(NTH 0 T&|)))))))T&0)
(defun Tl@@(T|l / T&| T&0)(SETQ T&0"")(IF(>= T|l 1)(IF(<= T|l(LENGTH TQ@@))(IF TQ@@(PROGN(SETQ T&|(TQO(NTH(- T|l 1)TQ@@)";"))(IF(>(LENGTH T&|)1)(SETQ T&0(NTH 1 T&|)))))))T&0)
(defun T&@@(T1@@ / T#@@)(SETQ TQ@@(T&Qj T1@@ NIL T0@@ NIL))(SETQ T#@@ 15 T$@@(T@@@(T%l T#@@ 1))TO@@(Tl@@(T%l T#@@ 1))T|@@(T@@@(T%l T#@@ 2))T%@@(T@@@(T%l T#@@ 3))T?Q@(Tl@@(T%l T#@@ 3))TjQ@(T@@@(T%l T#@@ 4))T@Q@(Tl@@(T%l T#@@ 4))TQQ@(T@@@(T%l T#@@ 5))TlQ@(Tl@@(T%l T#@@ 5))T&Q@(T@@@(T%l T#@@ 6))T1Q@(T@@@(T%l T#@@ 7))))
(defun T#Q@()(PRINC"\n")(PRINC"\nTopoLT V11.5 - Program for processing topographical plans")(PRINC"\nCopyright (c) 2002-2019 3D SPACE, e-mail: office@3dspace.ro")(PRINC"\n")(PRINC))
(defun T0Q@(T$Q@)(IF(/= T$Q@"")(ALERT T$Q@))(PRINC"\n")(PRINC"\n")(EXIT)(PRINC))
(defun TOQ@(/ T|Q@)(IF DEXE(SETQ T|Q@(FINDFILE DEXE))(SETQ T|Q@ NIL))(IF(NULL T|Q@)(PROGN(SETQ T|Q@(FINDFILE"C:\\Program Files\\3D Space\\TopoLT V11\\TopoLT.exe"))(IF(NULL T|Q@)(PROGN(SETQ T|Q@(FINDFILE"C:\\Program Files (x86)\\3D Space\\TopoLT V11\\TopoLT.exe"))(IF(NULL T|Q@)(SETQ T|Q@(FINDFILE"C:\\Program Files\\TopoLT\\TopoLT.exe"))(IF(NULL T|Q@)(PROGN(SETQ T|Q@(FINDFILE"C:\\Program Files (x86)\\TopoLT\\TopoLT.exe"))(IF(NULL T|Q@)(SETQ T|Q@(FINDFILE"C:\\TopoLT\\TopoLT.exe"))))))))))T|Q@)
(defun T%Q@(T?l@ / Tjl@)(SETQ Tjl@(T&Qj T@l@ NIL NIL NIL))(WHILE(<(LENGTH Tjl@)5)(SETQ Tjl@(APPEND Tjl@(LIST""))))(SETQ Tjl@(LIST T?l@(NTH 1 Tjl@)(NTH 2 Tjl@)(NTH 3 Tjl@)(NTH 4 Tjl@)))(T@lj T@l@"w")(Tllj Tjl@)(T%Qj))
(defun TQl@(Tll@ / T&l@ T1l@ T#l@ TlQj TOQj T0l@ T$l@ TOl@ T&| T|l@ Tj0 T#@@)(SETQ T#@@ 313 T|l@(CHR 34)T#l@ NIL)(SETQ T&l@(FINDFILE"TopoLT.mnx"))(IF(NULL T&l@)(SETQ T&l@(FINDFILE(STRCAT T%l@"TopoLT.mnx"))))(SETQ Tj0 T#@@)(IF T&l@(PROGN(SETQ TlQj(OPEN T&l@"r"))(WHILE(SETQ TOQj(READ-LINE TlQj))(SETQ T&|(TQO TOQj";"))(IF(>=(LENGTH T&|)2)(PROGN(SETQ TOQj(NTH 0 T&|))(IF(AND(>(STRLEN TOQj)0)(>(STRLEN(NTH 1 T&|))0))(PROGN(SETQ T0l@(T@@@(SETQ Tj0(+ Tj0 1))))(IF(>(STRLEN T0l@)0)(SETQ TOQj(STRCAT TOQj T0l@(NTH 1 T&|)))(SETQ TOQj""))))(IF(>(STRLEN TOQj)0)(SETQ T#l@(APPEND T#l@(LIST TOQj)))))))(CLOSE TlQj)))(SETQ T1l@(FINDFILE"TopoLT.tbx"))(IF(NULL T1l@)(SETQ T1l@(FINDFILE(STRCAT T%l@"TopoLT.tbx"))))(SETQ Tj0(+ T#@@ 1))(IF T&l@(PROGN(SETQ TlQj(OPEN T1l@"r"))(WHILE(SETQ TOQj(READ-LINE TlQj))(SETQ T&|(TQO TOQj";"))(IF(>=(LENGTH T&|)6)(PROGN(SETQ TOQj(NTH 0 T&|))(IF(=(STRLEN TOQj)0)(PROGN(SETQ Tj0(+ Tj0 1))(IF(=(NTH 4 T&|)"CR")(SETQ T#l@(APPEND T#l@(LIST TOQj))))))(IF(AND(>(STRLEN TOQj)0)(>(STRLEN(NTH 4 T&|))0)(>(STRLEN(NTH 5 T&|))0))(PROGN(SETQ T0l@(Tl@@(SETQ Tj0(+ Tj0 1))))(IF(>(STRLEN T0l@)0)(PROGN(IF(AND(= T%lj 3)(< T?&j 20120800))(SETQ T0l@(T10 T0l@)T$l@(STRCAT T|l@"ICON16"(NTH 5 T&|)T|l@)TOl@(STRCAT T|l@"ICON24"(NTH 5 T&|)T|l@))(SETQ T$l@(STRCAT T|l@"TLT_16_"(NTH 4 T&|)T|l@)TOl@(STRCAT T|l@"TLT_24_"(NTH 4 T&|)T|l@)))(SETQ TOQj(STRCAT TOQj T0l@(NTH 1 T&|)T$l@(NTH 2 T&|)TOl@(NTH 3 T&|))))(SETQ TOQj""))))(IF(>(STRLEN TOQj)0)(SETQ T#l@(APPEND T#l@(LIST TOQj)))))))(CLOSE TlQj)))(T@lj Tll@"w")(Tllj T#l@)(T%Qj))
(defun T?&@(/ T|l)(MENUCMD"GTOPOLT.pop1=-")(SETQ T|l 1)(WHILE(< T|l 24)(IF(MENUCMD(STRCAT"P"(ITOA T|l)".1=?"))(SETQ T|l(1+ T|l))(PROGN(IF(> T|l 2)(SETQ T|l(- T|l 1))(SETQ T|l 2))(MENUCMD(STRCAT"P"(ITOA T|l)"=+TOPOLT.pop1"))(SETQ T|l 25)))))
(defun Tj&@(T@&@ / TQ&@ Tl&@ T&&@)(SETQ Tl&@ NIL)(IF T@&@(PROGN(SETQ Tl&@(GETVAR"TRUSTEDPATHS"))(IF Tl&@(PROGN(IF(NOT(EQUAL";"(SUBSTR Tl&@(STRLEN Tl&@)1)))(SETQ Tl&@(STRCAT Tl&@";")))(SETQ T&&@(STRCASE Tl&@)TQ&@(STRCASE T@&@))(IF(NOT(EQUAL";"(SUBSTR T&&@ 1 1)))(SETQ T&&@(STRCAT";"T&&@)))(IF(NOT(WCMATCH T&&@(STRCAT"*;"TQ&@";*")))(SETVAR"TRUSTEDPATHS"(STRCAT Tl&@ T@&@))))))))
(defun T1&@(T@&@ / TQ&@ T#&@ T0&@)(SETQ T#&@ NIL)(IF T@&@(PROGN(SETQ T#&@(GETENV T$&@))(IF T#&@(PROGN(IF(NOT(EQUAL";"(SUBSTR T#&@(STRLEN T#&@)1)))(SETQ T#&@(STRCAT T#&@";")))(SETQ T0&@(STRCASE T#&@)TQ&@(STRCASE T@&@))(IF(NOT(EQUAL";"(SUBSTR T0&@ 1 1)))(SETQ T0&@(STRCAT";"T0&@)))(IF(NOT(WCMATCH T0&@(STRCAT"*;"TQ&@";*")))(SETENV T$&@(STRCAT T#&@ T@&@))))))))
(defun TO&@(T|&@ / T%&@ T?1@)(SETQ T%&@(STRCAT T%l@ T|&@".dll")T?1@(FINDFILE(STRCAT T%l@"TLT.dll")))(IF T?1@(QQFC T?1@ T%&@))(SETQ T%&@(STRCAT T%l@ T|&@".mnl"))(IF Tj1@(SETQ T?1@(FINDFILE(STRCAT T%l@"TLTlt.mnl")))(SETQ T?1@(FINDFILE(STRCAT T%l@"TLT.mnl"))))(IF T?1@(QQFC T?1@ T%&@))(SETQ T%&@(FINDFILE(STRCAT T%l@ T|&@".mnc")))(IF T%&@(QQFD T%&@))(SETQ T%&@(FINDFILE(STRCAT T%l@ T|&@".mnr")))(IF T%&@(QQFD T%&@)))
(defun T@1@(/)(IF(GETVAR"MENUBAR")(SETVAR"MENUBAR"1))(IF(= T|lj 1)(IF(= T%lj 6)(PROGN(SETVAR"MENUBAR"1)(command-s"-TOOLBAR""TopoLT General""_S")(command-s"-TOOLBAR""TopoLT Points""_S")(command-s"-TOOLBAR""TopoLT Point""_S")(command-s"-TOOLBAR""TopoLT Coordinates""_S")(command-s"-TOOLBAR""TopoLT Symbols""_S")(command-s"-TOOLBAR""TopoLT Objects""_S")(command-s"-TOOLBAR""TopoLT Images""_S")(command-s"-TOOLBAR""TopoLT 3D Models""_S")(command-s"-TOOLBAR""TopoLT Plan layout""_S")(command-s"-TOOLBAR""TopoLT Transform""_S")(command-s"-TOOLBAR""TopoLT Utils""_S")))))
(defun TQ1@(/ Tll@ Tl1@ T1$ T&1@)(SETQ T1$ NIL)(IF(NOT(MENUGROUP"TopoLT"))(PROGN(IF(NOT T11@)(PROGN(SETQ Tl1@ T)(WHILE Tl1@(SETQ T11@(GETFILED"Select language file for TopoLT"T%l@"lng"0))(IF T11@(IF(=(STRCASE T%l@)(STRCASE(T%@j T11@)))(SETQ Tl1@ NIL)(ALERT"Invalid path! Program TopoLT.exe not found! Retry..."))(T0Q@(STRCAT"ERROR:""\n""Language file not found! Retry..."))))))(IF T11@(PROGN(TO&@(TO@j T11@))(T&@@ T11@)(SETQ Tll@(STRCAT T%l@(TO@j T11@)".mns"))(TQl@ Tll@)(SETQ T&1@ T%l@)(IF(=(SUBSTR T&1@(STRLEN T&1@)1)"\\")(SETQ T&1@(SUBSTR T&1@ 1(-(STRLEN T&1@)1))))(T1&@ T&1@)(Tj&@ T&1@)(command-s"._MENULOAD"Tll@)(T?&@)(T@1@)(SETQ T#1@ T11@)(T%Q@ T#1@)(SETQ T1$ T)))))T1$)
(defun T01@(T$1@ /)(AND T$1@(>(SSLENGTH T$1@)0)))
(defun TO1@(T0@ T$0j / T|1@)(IF T0@(PROGN(SETQ T|1@(/(GETVAR"VIEWSIZE")75))(GRDRAW(POLAR T0@ T%1@ T|1@)(POLAR T0@ T?#@ T|1@)T$0j)(GRDRAW(POLAR T0@ Tj#@ T|1@)(POLAR T0@ T@#@ T|1@)T$0j))))
(defun TQ#@(T0@ / T|1@)(IF T0@(PROGN(IF(= T|lj 0)(PROGN(SETQ T|1@(/(GETVAR"VIEWSIZE")75))(GRDRAW(POLAR T0@ T%1@ T|1@)(POLAR T0@ T?#@ T|1@)0)(GRDRAW(POLAR T0@ Tj#@ T|1@)(POLAR T0@ T@#@ T|1@)0)))(IF(= T|lj 1)(REDRAW)))))
(defun Tl#@(T&#@ T$0j T1#@ / T@Q TQQ)(IF(AND T&#@(>(LENGTH T&#@)1))(PROGN(SETQ T@Q(LAST T&#@))(WHILE T&#@(SETQ TQQ(CAR T&#@))(GRDRAW T@Q TQQ T$0j T1#@)(SETQ T@Q TQQ T&#@(CDR T&#@))))))
(defun T##@(T&#@ / T@Q TQQ)(IF(AND T&#@(>(LENGTH T&#@)1))(PROGN(IF(= T|lj 0)(PROGN(SETQ T@Q(LAST T&#@))(WHILE T&#@(SETQ TQQ(CAR T&#@))(GRDRAW T@Q TQQ 0)(SETQ T@Q TQQ T&#@(CDR T&#@)))))(IF(= T|lj 1)(REDRAW)))))
(defun T0#@(T$#@)(IF T$#@(PROGN(REDRAW T$#@ 1)(REDRAW T$#@ 3)(SETQ TO#@ T))))
(defun T|#@(T$#@)(IF T$#@(REDRAW T$#@ 4))(SETQ TO#@ NIL))
(defun T%#@(T$1@ / TO1j T??j)(IF(T01@ T$1@)(PROGN(SETQ T??j(SSLENGTH T$1@))(WHILE(> T??j 0)(SETQ TO1j(SSNAME T$1@(SETQ T??j(- T??j 1))))(T0#@ TO1j)))))
(defun T?0@(T$1@ / TO1j T??j)(IF(T01@ T$1@)(PROGN(SETQ T??j(SSLENGTH T$1@))(WHILE(> T??j 0)(SETQ TO1j(SSNAME T$1@(SETQ T??j(- T??j 1))))(T|#@ TO1j)))))
(defun Tj0@(T%?@ / T@0@)(IF T%?@(REPEAT(LENGTH T%?@)(SETQ T@0@(CAR T%?@))(T0#@ T@0@)(SETQ T%?@(CDR T%?@)))))
(defun TQ0@(T%?@ / T@0@)(IF T%?@(REPEAT(LENGTH T%?@)(SETQ T@0@(CAR T%?@))(T|#@ T@0@)(SETQ T%?@(CDR T%?@)))))
(defun Tl0@(/)(SETQ T&0@(SSADD)))
(defun T10@(T@Q TQQ / T?l T#0@ T00@ T$0@ TO0@ T|0@ T%0@ T?$@ Tj$@ T$$ T@$@)(IF(AND T@Q TQQ)(PROGN(SETQ T$$(DISTANCE T@Q TQQ))(IF(> T$$ 0.0)(PROGN(SETQ T#0@ TQQ T@$@(ANGLE TQQ T@Q)T?l(POLAR TQQ T@$@(/ T$$ 40.0))T$0@(POLAR T?l(- T@$@ T%&)(* T$$ 0.002))T%0@(POLAR T?l(+ T@$@ T%&)(* T$$ 0.002))T?l(POLAR TQQ T@$@(/ T$$ 20.0))T00@(POLAR T?l(- T@$@ T%&)(* T$$ 0.085))T?$@(POLAR T?l(+ T@$@ T%&)(* T$$ 0.085))TO0@(POLAR T@Q(- T@$@ T%&)(* T$$ 0.002))T|0@(POLAR T@Q(+ T@$@ T%&)(* T$$ 0.002)))(SETQ Tj$@(LIST(CONS 0"HATCH")(CONS 100"AcDbEntity")(CONS 8"0")(CONS(quote 62)140)(CONS 100"AcDbHatch")(CONS 10(LIST 0.0 0.0 0.0))(CONS 210(LIST 0.0 0.0 1.0))(CONS 2"SOLID")(CONS(quote 70)1)(CONS(quote 71)0)(CONS(quote 91)1)(CONS(quote 92)7)(CONS(quote 72)0)(CONS(quote 73)1)(CONS(quote 93)7)(CONS 10 T#0@)(CONS 10 T00@)(CONS 10 T$0@)(CONS 10 TO0@)(CONS 10 T|0@)(CONS 10 T%0@)(CONS 10 T?$@)(CONS(quote 97)0)(CONS(quote 75)0)(CONS(quote 76)1)(CONS(quote 47)0.134665)(CONS(quote 98)1)(CONS 10(LIST 0.0 0.0))))(ENTMAKE)(IF(ENTMAKE Tj$@)(PROGN(SSADD(ENTLAST)T&0@)(GRDRAW T#0@ T00@ 140)(GRDRAW T00@ T$0@ 140)(GRDRAW T$0@ TO0@ 140)(GRDRAW TO0@ T|0@ 140)(GRDRAW T|0@ T%0@ 140)(GRDRAW T%0@ T?$@ 140)(GRDRAW T?$@ T#0@ 140))))))))
(defun TQ$@(/ TO1j)(IF(T01@ T&0@)(PROGN(SETQ TO1j(SSNAME T&0@(-(SSLENGTH T&0@)1)))(SSDEL TO1j T&0@)(ENTDEL TO1j)(REDRAW))))
(defun Tl$@(/)(IF(T01@ T&0@)(command-s"._ERASE"T&0@""))(SETQ T&0@(SSADD)))
(defun T&$@(T1$@ T#$@ T0$@ T$$@ T|| TO$@ T|$@ / T|1 T$Q@)(SETVAR"OSMODE"T#$@)(INITGET T0$@)(SETQ T$Q@(T$j@ T$$@ T|| TO$@""))(IF T1$@(SETQ T|1(GETPOINT T1$@ T$Q@))(SETQ T|1(GETPOINT T$Q@)))(IF T|$@(SETQ T%$@(GETVAR"OSMODE")))(SETVAR"OSMODE"0)T|1)
(defun T?O@(TjO@ T$Q@ / T@O@ TQO@ T#@@)(SETQ T#@@ 255 TQO@(-(+ T#@@ TjO@)99)T@O@(STRCAT(T@@@(T%l T#@@ 1))"\n"(TO|(STRCAT(T@@@ TQO@)T$Q@(Tl@@ TQO@))80)))T@O@)
(defun TlO@(TjO@ T$Q@ /)(ALERT(T?O@ TjO@ T$Q@))(PRINC))
(defun T&O@(TQO@ T$Q@ / T1O@ T#@@)(SETQ T#@@ 300)(IF(> TQO@ 0)(SETQ T$Q@(T@@@(-(+ T#@@ TQO@)199))))(SETQ T1O@(TO|(STRCAT"\n"(T@@@(T%l T#@@ 1))" "T$Q@)80))T1O@)
(defun T#O@(TQO@ T$Q@ T0O@ / T1O@)(SETQ T1O@(T&O@ TQO@ T$Q@))(IF T0O@(ALERT T1O@)(PRINC T1O@))(PRINC))
(defun T$O@(/)(IF(AND(GETVAR"DIMANNO")(=(GETVAR"DIMANNO")1))(ALERT(STRCAT"To use TopoLT dimensions in AutoCAD 2008 set variable DIMANNO to 0\n""using command-s DimStyle -> Modify -> Fit(tab) -> Annotative.\n\n""To set dimension scale relatives to plan scale use TopoCfg command-s\n""and press OK."))))
(defun TOO@(T|O@ / T%O@ T?|@)(SETQ T%O@(DICTSEARCH(NAMEDOBJDICT)T|O@))(IF T%O@(PROGN(SETQ T?|@(CDR(CAR T%O@)))(IF T?|@(ENTDEL T?|@)))))
(defun Tj|@(T@|@ T#&j / TQ|@ T%O@ Tl|@ T&|@)(SETQ TQ|@ NIL T&|@ NIL T%O@(DICTSEARCH(NAMEDOBJDICT)T@|@))(WHILE T%O@(SETQ Tl|@(CAR T%O@))(IF(AND(NULL T&|@)(=(CAR Tl|@)T#&j))(SETQ T&|@ T))(IF T&|@(SETQ TQ|@(APPEND TQ|@(LIST(CDR Tl|@)))))(SETQ T%O@(CDR T%O@)))TQ|@)
(defun T1|@(T#|@ T|O@ T#&j / T%O@ Tj0)(IF T#|@(PROGN(TOO@ T|O@)(SETQ T%O@(LIST(CONS 0"XRECORD")(CONS 100"AcDbXrecord")))(SETQ Tj0 -1)(REPEAT(LENGTH T#|@)(SETQ T%O@(APPEND T%O@(LIST(CONS T#&j(NTH(SETQ Tj0(+ Tj0 1))T#|@))))))(DICTADD(NAMEDOBJDICT)T|O@(ENTMAKEX T%O@)))))
(defun T0|@(T$|@ / TO|@ T||@ T%|@ T?%@ Tj%@ T@%@ TQ%@ T@Q TQQ Tl%@ T&%@)(IF(NULL T$|@)(command-s"._UCS""_W"))(SETQ T||@ 0)(IF(AND(=(GETVAR"TILEMODE")0)(=(GETVAR"CVPORT")1))(SETQ T||@ 1))(SETQ T%|@(GETVAR"WORLDVIEW")T?%@(GETVAR"VIEWMODE")T@%@(GETVAR"VIEWCTR")Tj%@(GETVAR"VIEWDIR")TQ%@(GETVAR"TARGET"))(IF(= T%|@ 1)(SETQ Tj%@(TRANS Tj%@ 1 0 T)TQ%@(TRANS TQ%@ 1 0)))(IF(=(LOGAND 1 T?%@)1)(SETQ T@%@(LIST 0.0 0.0 0.0))(IF(= 0 T%|@)(SETQ T@%@(TRANS T@%@ 0 2))(SETQ T@%@(TRANS T@%@ 1 2))))(SETQ T@Q(TRANS(GETVAR"VSMIN")1 2)TQQ(TRANS(GETVAR"VSMAX")1 2)Tl%@(GETVAR"VIEWSIZE")T&%@(/(* Tl%@(ABS(-(CAR TQQ)(CAR T@Q))))(ABS(-(CADR TQQ)(CADR T@Q)))))(SETQ TO|@(LIST(CONS 0"VIEW")(CONS 70 T||@)(CONS 40 Tl%@)(CONS 10 T@%@)(CONS 41 T&%@)(CONS 11 Tj%@)(CONS 12 TQ%@)(CONS 42(GETVAR"LENSLENGTH"))(CONS 43(GETVAR"FRONTZ"))(CONS 44(GETVAR"BACKZ"))(CONS 50(GETVAR"VIEWTWIST"))(CONS 71 T?%@)))(IF(NULL T$|@)(command-s"._UCS""_P"))TO|@)
(defun T1%@(TO|@ T$|@ / T#%@)(IF TO|@(PROGN(IF(NULL T$|@)(command-s"._UCS""_W"))(SETQ T#%@(GETVAR"CVPORT"))(IF(= T|lj 1)(IF(/= T%lj 11)(IF(AND(>= T?&j 60000)(< T?&j 70000))(SETQ T#%@ 0))))(PRINC"\n")(IF T0%@(PROGN(command-s T$%@"_R""TempView"))(PROGN(IF(NOT(AND(=(GETVAR"TILEMODE")0)(=(GETVAR"WORLDUCS")0)))(SETVIEW TO|@ T#%@))))(IF(NULL T$|@)(command-s"._UCS""_P"))(IF(= T|lj 1)(IF(=(GETVAR"TILEMODE")0)(REDRAW)))))(PRINC))
(defun TO%@(T|%@ / T%%@ T??Q Tj?Q T@?Q T@?@ T?Q Tl%@ T&%@ T%|@ T?%@)(SETQ T??Q(GRREAD T))(IF(AND T??Q(=(CAR T??Q)5))(PROGN(SETQ Tj?Q(CADR T??Q)T@?@(GETVAR"VIEWCTR")T?Q(/(DISTANCE T@?@ Tj?Q)T|%@)T@?Q(POLAR T@?@(ANGLE T@?@ Tj?Q)T?Q)T@?@(POLAR T@?@(ANGLE T@?Q Tj?Q)(DISTANCE Tj?Q T@?Q))T%|@(GETVAR"WORLDVIEW")T?%@(GETVAR"VIEWMODE"))(IF(/=(LOGAND 1 T?%@)1)(IF(= 0 T%|@)(SETQ T@?@(TRANS T@?@ 0 2))(SETQ T@?@(TRANS T@?@ 1 2))))(SETQ T%%@(T0|@ T)Tl%@(/(T1&j 40 T%%@)T|%@)T&%@(/(T1&j 41 T%%@)T|%@)T%%@(SUBST(CONS 10 T@?@)(ASSOC 10 T%%@)T%%@)T%%@(SUBST(CONS 40 Tl%@)(ASSOC 40 T%%@)T%%@)T%%@(SUBST(CONS 41 T&%@)(ASSOC 41 T%%@)T%%@))(T1%@ T%%@ T))))
(defun TQ?Q(/)(SETQ Tl?Q NIL)(IF T0%@(command-s T$%@"_D""TempView")))
(defun T&?Q(/ T1?Q T#?Q T?l Tjl)(SETQ T1?Q NIL)(IF(=(GETVAR"WORLDUCS")0)(SETQ T1?Q(APPEND T1?Q(LIST(GETVAR"UCSNAME")))T#?Q(GETVAR"UCSORG")T?l(GETVAR"UCSXDIR")Tjl(GETVAR"UCSYDIR")T?l(LIST(+(CAR T?l)(CAR T#?Q))(+(CADR T?l)(CADR T#?Q))(CADDR T?l))Tjl(LIST(+(CAR Tjl)(CAR T#?Q))(+(CADR Tjl)(CADR T#?Q))(CADDR Tjl))T1?Q(APPEND T1?Q(LIST T#?Q))T1?Q(APPEND T1?Q(LIST T?l))T1?Q(APPEND T1?Q(LIST Tjl))))T1?Q)
(defun T0?Q(T1?Q /)(IF T1?Q(IF(TBLSEARCH"UCS"(NTH 0 T1?Q))(command-s"._UCS""_R"(NTH 0 T1?Q))(PROGN(command-s"._UCS""_W")(command-s"._UCS""_3P"(NTH 1 T1?Q)(NTH 2 T1?Q)(NTH 3 T1?Q))))(command-s"._UCS""_W")))
(defun T$?Q(/)(SETQ TO?Q NIL))
(defun T|?Q(T%?Q /)(IF T?jQ(PROGN(command-s T?jQ T%?Q)(IF(= T|lj 1)(REDRAW)))))
(defun TjjQ(/ T@jQ TQjQ TljQ T#@@)(SETQ T#@@ 252)(SETVAR"OSMODE"0)(IF T&jQ(command-s"._UCS""_P"))(IF T1jQ(PROGN(SETQ T@jQ 0)(REPEAT(LENGTH T1jQ)(SETQ TljQ(NTH T@jQ T1jQ)T@jQ(+ 1 T@jQ))(COND((=(CAR TljQ)"UCS")(T0?Q TO?Q)(T$?Q))((=(CAR TljQ)"VIEW")(T1%@ Tl?Q NIL)(TQ?Q))((=(CAR TljQ)"CLOSEFIS")(IF T#jQ(PROGN(PRINC(STRCAT"\n"(T@@@(T%l T#@@ 1)))T0jQ)(PRINC"\n"T0jQ)(CLOSE T0jQ)))(IF T$jQ(Tllj(LIST(T@@@(T%l T#@@ 2)))))(IF TOjQ(PROGN(CLOSE T|jQ)(T@Qj T%jQ)))(IF T?lj(T%Qj)))((=(CAR TljQ)"DRAWSAG")(Tl$@))((=(CAR TljQ)"LINPANTA")(IF T?@Q(ENTDEL T?@Q)))((=(CAR TljQ)"TEXTSIZE")(IF(>(CDR TljQ)1E-10)(SETVAR(CAR TljQ)(CDR TljQ))))((=(CAR TljQ)"IMAGEFRAME")(T|?Q Tj@Q))(T(IF(CDR TljQ)(SETVAR(CAR TljQ)(CDR TljQ))))))(SETQ T1jQ NIL)))(IF TO#@(PROGN(command-s"._REGEN")(SETQ TO#@ NIL)))(IF T@@Q(PROGN(TlO@ 101 T@@Q)(SETQ T@@Q NIL TQ@Q T)))(IF(NULL Tl@Q)(SETQ T&@Q NIL))(SETQ Tl@Q NIL)(SETVAR"CMDECHO"0)(command-s"._UNDO""_E")(IF(TYPE QQSP)(QQSP))(IF(= T|lj 0)(IF(< T?&j 150000)(QQLA T)))(SETVAR"OSMODE"T1@Q)(SETVAR"CMDECHO"T#@Q)(SETQ *ERROR* T0@Q)(IF T$@Q(PROGN(SETVAR"LUNITS"2)(SETVAR"LUPREC"TO@Q)(SETQ T$@Q NIL)))(PRINC))
(defun T|@Q(T%@Q)(IF(NULL(T@$(STRCASE T%@Q)"FUNCTION CANCELLED"))(PRINC T%@Q))(command-s)(command-s)(TjjQ)(PRINC))
(defun T?QQ(TjQQ / T@QQ TQjQ T@jQ TljQ)(SETQ T0@Q *ERROR*)(SETQ *ERROR*(IF TQQQ NIL T|@Q))(SETQ T#@Q(GETVAR"CMDECHO"))(SETVAR"CMDECHO"0)(IF(= T|lj 0)(IF(< T?&j 150000)(IF QQLA(QQLA NIL))))(IF(NULL T&@Q)(PROGN(SETQ T&@Q(SSGETFIRST))(IF(CAR T&@Q)(SETQ T&@Q(CAR T&@Q))(SETQ T&@Q(CADR T&@Q)))))(command-s"._UNDO""_BE")(SETQ T1jQ(quote (("PROGBAR")("EXPERT")("UCSICON")("ATTDIA")("ATTREQ")("BLIPMODE")("CECOLOR")("CELTYPE")("CLAYER")("PICKSTYLE")("LUNITS")("LUPREC")("DYNMODE")("INSUNITSDEFSOURCE")("INSUNITSDEFTARGET"))))(SETQ T@jQ 0)(REPEAT(LENGTH T1jQ)(SETQ TljQ(CAR(NTH T@jQ T1jQ))T1jQ(SUBST(CONS TljQ(GETVAR TljQ))(NTH T@jQ T1jQ)T1jQ)T@jQ(+ 1 T@jQ)))(SETQ T1@Q(GETVAR"OSMODE"))(SETVAR"OSMODE"0)(SETVAR"EXPERT"4)(SETVAR"UCSICON"0)(SETVAR"ATTDIA"0)(SETVAR"ATTREQ"0)(SETVAR"BLIPMODE"0)(SETVAR"CECOLOR""BYLAYER")(SETVAR"CELTYPE""BYLAYER")(IF(GETVAR"DYNMODE")(SETVAR"DYNMODE"0))(IF(GETVAR"INSUNITSDEFSOURCE")(SETVAR"INSUNITSDEFSOURCE"0))(IF(GETVAR"INSUNITSDEFTARGET")(SETVAR"INSUNITSDEFTARGET"0))(IF TjQQ(PROGN(SETQ T@jQ(LENGTH T1jQ)T1jQ(APPEND T1jQ TjQQ))(REPEAT(-(LENGTH T1jQ)T@jQ)(SETQ TljQ(CAR(NTH T@jQ T1jQ))T@QQ NIL)(COND((= TljQ"UCS")(SETQ TO?Q(T&?Q)))((= TljQ"VIEW")(IF T0%@(PROGN(command-s T$%@"_S""TempView")(SETQ Tl?Q T))(SETQ Tl?Q(T0|@ NIL))))((= TljQ"CLOSEFIS")(SETQ T#jQ NIL T$jQ NIL TOjQ NIL T?lj NIL))((= TljQ"DRAWSAG")(Tl0@))((= TljQ"LINPANTA")(SETQ T?@Q NIL))((= TljQ"IMAGEFRAME")(T|?Q TlQQ))(T(SETQ T@QQ T)))(IF T@QQ(SETQ T1jQ(SUBST(CONS TljQ(GETVAR TljQ))(NTH T@jQ T1jQ)T1jQ))(SETQ T1jQ(SUBST(CONS TljQ 0)(NTH T@jQ T1jQ)T1jQ)))(SETQ T@jQ(+ 1 T@jQ)))))(SETQ T1jQ(REVERSE T1jQ)T&jQ NIL)(IF(=(GETVAR"WORLDUCS")0)(PROGN(command-s"._UCS""_W")(SETQ T&jQ T))))
(defun T&QQ(T1QQ /)(IF(GETVAR"PROGBAR")(SETVAR"PROGBAR"1))(QQIP T1QQ))
(defun T#QQ()(QQCP))
(defun T0QQ()(QQSP))
(defun T$QQ(TOQQ T|QQ T%QQ T?lQ T0@ TjlQ T@lQ TQlQ TQ0 /)(IF(<=(LENGTH T0@)2)(SETQ T0@(T@1 T0@ 0.0)))(LIST(CONS 0"TEXT")(CONS 8 TOQQ)(CONS 10 T0@)(CONS 40 TjlQ)(CONS 1 TQ0)(CONS 50 T@lQ)(CONS 41 TQlQ)(CONS 7 T|QQ)(CONS 72 T%QQ)(CONS 11 T0@)(CONS 73 T?lQ)))
(defun TllQ(T&lQ T1lQ / T?@@ T#lQ T0lQ T$lQ TOlQ T|lQ T%lQ)(SETQ T?@@ 0.0)(IF T&lQ(SETQ T#lQ(CAR T&lQ)T0lQ(CADR T&lQ)T$lQ(SIN T1lQ)TOlQ(COS T1lQ)T|lQ(LIST(-(*(CAR T#lQ)TOlQ)(*(CADR T#lQ)T$lQ))(+(*(CAR T#lQ)T$lQ)(*(CADR T#lQ)TOlQ)))T%lQ(LIST(-(*(CAR T0lQ)TOlQ)(*(CADR T#lQ)T$lQ))(+(*(CAR T0lQ)T$lQ)(*(CADR T#lQ)TOlQ)))T?@@(DISTANCE T|lQ T%lQ)))T?@@)
(defun T?&Q(Tj&Q / T?@@ T1lQ)(SETQ T?@@ 0.0)(IF Tj&Q(SETQ T1lQ(T1&j 50 Tj&Q)T?@@(TllQ(TEXTBOX Tj&Q)T1lQ)))T?@@)
(defun T@&Q(TQ0 TjlQ TQlQ TQ&Q / T?@@ Tl&Q)(SETQ T?@@ 0.0)(IF(/= TQ0"")(PROGN(IF T&&Q(PROGN(SETQ T?@@(TllQ(TEXTBOX(LIST(CONS 1 TQ0)(CONS(quote 40)TjlQ)(CONS 7 TQ&Q)))0.0)T?@@(* TQlQ T?@@)))(PROGN(SETQ Tl&Q(T$QQ"0"TQ&Q 0 0(LIST 0.0 0.0 0.0)TjlQ 0.0 TQlQ TQ0))(IF(=(STRCASE(T#@j(T1&j 3(TBLSEARCH"STYLE"TQ&Q))))".SHX")(SETQ T?@@(T?&Q Tl&Q))(PROGN(ENTMAKE Tl&Q)(SETQ T?@@(T?&Q(Tj&j(ENTLAST))))(ENTDEL(ENTLAST))))))))T?@@)
(defun T1&Q(T#&Q / T0&Q T$&Q TO&Q T|&Q T%&Q T?1Q Tj0 Tj1Q T$| TlQj T@1Q)(SETQ TO&Q NIL)(IF T#&Q(PROGN(SETQ T|&Q(T0#(LAST(TQO T#&Q";")))TO&Q(CAR(TQO T#&Q";")))(IF(OR(=(STRCASE TO&Q)"TOPOLT.SHX")(=(STRCASE TO&Q)"TOPOLT"))(SETQ TO&Q TQ1Q T|&Q""))(IF(= T|&Q"")(SETQ T|&Q TO&Q))(SETQ T%&Q(STRCASE(T#@j T|&Q)))(SETQ TO&Q(T0#(Tl@j(STRCASE(TO@j TO&Q)))))(IF(>(STRLEN TO&Q)31)(SETQ TO&Q(SUBSTR TO&Q 1 31)))(IF(/= TO&Q"")(PROGN(IF(NULL(TBLSEARCH"STYLE"TO&Q))(PROGN(SETQ T0&Q NIL)(IF(OR(= T%&Q"")(= T%&Q".TTF"))(PROGN(SETQ T$&Q(FINDFILE(STRCAT TO&Q".SHX")))(IF T$&Q(SETQ T%&Q".SHX"T|&Q T$&Q)(SETQ T%&Q".TTF"))))(IF(= T%&Q".SHX")(PROGN(SETQ T$&Q(FINDFILE T|&Q))(IF(NULL T$&Q)(SETQ T$&Q(FINDFILE(STRCAT TO&Q T%&Q))))(IF T$&Q(PROGN(SETQ TlQj(OPEN T$&Q"r")Tj1Q""Tj0 0)(WHILE(AND(SETQ T$|(READ-CHAR TlQj))(< Tj0 22))(SETQ Tj0(+ Tj0 1))(IF(AND(>= T$| 32)(< T$| 127))(SETQ Tj1Q(STRCAT Tj1Q(CHR T$|)))))(CLOSE TlQj)(IF(T@$(STRCASE Tj1Q)"BIGFONT")(SETQ T0&Q T)))(SETQ TO&Q NIL))))(IF TO&Q(PROGN(SETQ T|&Q(STRCAT(TO@j T|&Q)(T#@j T|&Q))T$&Q"")(IF T0&Q(SETQ T$&Q T|&Q T|&Q TQ1Q))(SETQ T@1Q(LIST(CONS 0"STYLE")(CONS 100"AcDbSymbolTableRecord")(CONS 100"AcDbTextStyleTableRecord")(CONS 2 TO&Q)(CONS(quote 70)0)(CONS(quote 40)0.0)(CONS(quote 41)1.0)(CONS(quote 50)0.0)(CONS(quote 71)0)(CONS(quote 42)0.2)(CONS 3 T|&Q)(CONS 4 T$&Q)))(ENTMAKE)(ENTMAKE T@1Q)(REPEAT 1000(SETQ T@1Q NIL)))))))(SETQ TO&Q NIL))(IF TO&Q(PROGN(SETQ T?1Q(TBLSEARCH"STYLE"TO&Q))(IF(NULL T?1Q)(SETQ TO&Q NIL)(IF(>(T1&j 40 T?1Q)0.0)(PROGN(SETQ T?1Q(TBLOBJNAME"STYLE"TO&Q))(IF T?1Q(PROGN(SETQ T?1Q(Tj&j T?1Q))(T##j T?1Q(LIST(LIST 40 0.0))))))))))))TO&Q)
(defun Tl1Q(T#&Q / T&1Q TO&Q)(IF(= T#&Q"")(SETQ T#&Q TQ1Q))(SETQ T&1Q(T1&Q T#&Q))(IF(NULL T&1Q)(PROGN(SETQ TO&Q(CAR(TQO T#&Q";")))(IF(NOT(MEMBER TO&Q T11Q))(PROGN(TlO@ 120 TO&Q)(SETQ T11Q(APPEND T11Q(LIST TO&Q)))))(SETQ T&1Q(T1&Q TQ1Q))))T&1Q)
(defun T#1Q(TOQQ T|QQ T%QQ T?lQ T0@ TjlQ T@lQ TQlQ TQ0 /)(IF(/= TQ0"")(ENTMAKE(T$QQ TOQQ T|QQ T%QQ T?lQ T0@ TjlQ T@lQ TQlQ TQ0))))
(defun T01Q(TQ0 T$1Q TO1Q Tj&Q / T$$)(SETQ T$$(T?&Q Tj&Q))(IF(> T$$ TO1Q)(PROGN(SETQ T$$(/ TO1Q T$$))(T##j Tj&Q(LIST(LIST 41 T$$))))))
(defun T|1Q(T%1Q / T1|)(SETQ T1|(FIX(ABS(GETVAR"USERR3"))))(IF(OR(=(TYPE T1|)(quote REAL))(> T1| 2147483647))(SETQ T1| 0))(+ T1| T%1Q))
(defun T?#Q(/ T1| TQ@ Tl@)(SETQ TQ@(T&?j(GETVAR"USERR1"))Tl@(T&?j(GETVAR"USERR2"))T1|(T|1Q 0))(IF(= T1| 0)(SETQ T1| 1))(STRCAT TQ@(ITOA T1|)Tl@))
(defun Tj#Q(T@#Q / T1| TQ@ Tl@ TQ#Q)(SETQ T@#Q(TOO T@#Q)TQ@(CAR T@#Q)Tl@(CADR T@#Q)TQ#Q(CADDR T@#Q)T1| 0)(SETVAR"USERR1"(Tj?j TQ@))(IF(/= Tl@"")(PROGN(SETQ T1|(ABS(ATOI Tl@)))(IF(>= T1| 2147483647)(SETQ T1| 0))))(SETVAR"USERR2"(Tj?j TQ#Q))(SETQ T1|(+ T1| 1))(SETVAR"USERR3"(FLOAT T1|)))
(defun Tl#Q(/ T&| TQ@ Tl@ TQ#Q T&#Q T1#Q T##Q T0#Q T1|)(SETQ T&|(Tj|@"TLT_NRPAR"3))(IF(NULL T&|)(SETQ T&|(LIST"0""1""P""A")))(SETQ T&#Q(NTH 0 T&|)T1#Q(SUBSTR(NTH 1 T&|)1 1)T##Q(NTH 2 T&|)T0#Q(SUBSTR(NTH 3 T&|)1 1))(SETQ T&|(TOO T&#Q)TQ@(CAR T&|)Tl@(CADR T&|)TQ#Q(CADDR T&|))(IF(/= Tl@"")(SETQ T1|(ATOI Tl@))(SETQ T1| 0))(IF(< T1| 0)(SETQ T1| 0))(SETQ Tl@(ITOA(+ T1| 1)))(LIST(STRCAT TQ@ Tl@ TQ#Q)T1#Q T##Q T0#Q))
(defun T$#Q(T&#Q T1#Q T##Q T0#Q / T&|)(SETQ T&|(Tj|@"TLT_NRPAR"3))(IF(NULL T&|)(SETQ T&|(LIST"0""1""P""A")))(IF(NOT T&#Q)(SETQ T&#Q(NTH 0 T&|)))(IF(NOT T1#Q)(SETQ T1#Q(NTH 1 T&|)))(IF(NOT T##Q)(SETQ T##Q(NTH 2 T&|)))(IF(NOT T0#Q)(SETQ T0#Q(NTH 3 T&|)))(T1|@(LIST T&#Q T1#Q T##Q T0#Q)"TLT_NRPAR"3))
(defun TO#Q(/ TlQj T|#Q TOQj T&| T%#Q T?0 TQ@ Tl@ TQ#Q T?0Q Tj0Q T@0Q TQ0Q Tl0Q T&0Q Tj0 TQ?j)(SETQ T10Q 1 T#0Q NIL)(IF T00Q(PROGN(SETQ T|#Q NIL TlQj(OPEN T00Q"r"))(WHILE(SETQ TOQj(READ-LINE TlQj))(SETQ T&| NIL T%#Q""TQ?j(STRLEN TOQj)Tj0 0)(REPEAT TQ?j(SETQ T?0(SUBSTR TOQj(SETQ Tj0(+ Tj0 1))1))(IF(AND(/= T?0" ")(/= T?0"="))(SETQ T%#Q(STRCAT T%#Q T?0)))(IF(OR(= T?0"=")(= Tj0 TQ?j))(SETQ T&|(APPEND T&|(LIST T%#Q))T%#Q"")))(IF T&|(IF(>=(LENGTH T&|)2)(IF(AND(/=(NTH 0 T&|)"")(/=(NTH 1 T&|)""))(IF(/=(SUBSTR(NTH 0 T&|)1 1)";")(PROGN(IF(>=(LENGTH T&|)3)(PROGN(SETQ Tl0Q(ATOI(NTH 2 T&|)))(IF(> Tl0Q T10Q)(SETQ T10Q Tl0Q))))(WHILE(<(LENGTH T&|)6)(SETQ T&|(APPEND T&|(LIST""))))(SETQ T|#Q(APPEND T|#Q(LIST T&|)))))))))(CLOSE TlQj)(IF(< T10Q 9)(SETQ T10Q(+ T10Q 1)))(IF T|#Q(PROGN(SETQ TQ?j(LENGTH T|#Q)Tj0 0)(WHILE(< Tj0 TQ?j)(SETQ T&|(NTH Tj0 T|#Q)TQ@(NTH 0 T&|)Tl@(NTH 1 T&|)TQ#Q(NTH 2 T&|)T?0Q(STRCASE(NTH 3 T&|))Tj0Q(STRCASE(NTH 4 T&|))T@0Q(NTH 5 T&|)Tl0Q(ATOI TQ#Q))(IF(= Tl0Q 0)(SETQ Tl0Q T10Q))(SETQ TQ0Q 0)(IF(= T?0Q"BLK")(SETQ TQ0Q 1))(IF(= T?0Q"SHP")(SETQ TQ0Q 2))(IF(= T?0Q"LIN")(SETQ TQ0Q 3))(SETQ T&0Q(ABS(ATOF T@0Q)))(IF(OR(= T?0Q"BLK")(= T?0Q"SHP"))(IF(EQUAL T&0Q 0.0 1E-8)(SETQ T&0Q 1.0)))(SETQ T#0Q(APPEND T#0Q(LIST(LIST TQ@ Tl@ Tl0Q TQ0Q Tj0Q T&0Q)))Tj0(+ Tj0 1))))))))
(defun T$0Q(TO0Q / T&| T|0Q Tj0 TQ@ Tl@ TlO)(IF T#0Q(PROGN(SETQ TO0Q(T0# TO0Q))(IF(/= TO0Q"")(PROGN(SETQ T|0Q(TQO TO0Q"-")TO0Q"")(REPEAT(LENGTH T|0Q)(SETQ TlO(T0#(CAR T|0Q))Tj0 -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ Tj0(+ Tj0 1))T#0Q)TQ@(CAR T&|)Tl@(CADR T&|))(IF(= TQ@ TlO)(SETQ TlO Tl@)))(SETQ TO0Q(STRCAT TO0Q"-"TlO)T|0Q(CDR T|0Q)))(SETQ TO0Q(SUBSTR TO0Q 2))))))TO0Q)
(defun T%0Q(TO0Q / T&| T|0Q Tj0 TQ@ TlO T?$Q Tj$Q)(SETQ Tj$Q T10Q)(IF T#0Q(PROGN(SETQ TO0Q(T0# TO0Q))(IF(/= TO0Q"")(PROGN(SETQ T|0Q(TQO TO0Q"-"))(REPEAT(LENGTH T|0Q)(SETQ TlO(T0#(CAR T|0Q))Tj0 -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ Tj0(+ Tj0 1))T#0Q)TQ@(CAR T&|)T?$Q(CADDR T&|))(IF(= TQ@ TlO)(IF(< T?$Q Tj$Q)(SETQ Tj$Q T?$Q))))(SETQ T|0Q(CDR T|0Q)))))))Tj$Q)
(defun T@$Q(TQ$Q / Tl$Q T&$Q T1$Q T#$Q T0$Q T$$Q T?$Q Tj$Q TO$Q T|$Q T%$Q T?OQ T&| TQ@ T?0Q Tj0Q TO0Q Tj0 TjOQ T@OQ T$0)(SETQ Tl$Q NIL)(IF T#0Q(PROGN(IF TQ$Q(PROGN(SETQ T1$Q NIL T#$Q NIL T$$Q NIL)(REPEAT(LENGTH TQ$Q)(SETQ TO0Q(T0#(CAR TQ$Q))Tj0 -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ Tj0(+ Tj0 1))T#0Q)TQ@(CAR T&|)T?$Q(CADDR T&|)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|))T0$Q(CAR(CDR(CDDDDR T&|))))(IF(AND(= T?0Q 3)(/= Tj0Q"")(= TQ@ TO0Q))(SETQ T1$Q(APPEND T1$Q(LIST Tj0Q))T#$Q(APPEND T#$Q(LIST T0$Q))T$$Q(APPEND T$$Q(LIST T?$Q)))))(SETQ TQ$Q(CDR TQ$Q)))(IF T1$Q(PROGN(SETQ TO$Q NIL Tj0 -1)(REPEAT(LENGTH T1$Q)(SETQ T%$Q(NTH(SETQ Tj0(+ Tj0 1))T1$Q)T|$Q 0 TjOQ -1)(REPEAT(LENGTH T1$Q)(SETQ T?OQ(NTH(SETQ TjOQ(+ TjOQ 1))T1$Q))(IF(= T%$Q T?OQ)(SETQ T|$Q(+ T|$Q 1))))(SETQ TO$Q(APPEND TO$Q(LIST T|$Q))))(SETQ T@OQ(APPLY(quote MAX)TO$Q)Tj$Q 10 Tj0 -1)(REPEAT(LENGTH TO$Q)(SETQ Tj0(+ Tj0 1))(IF(= T@OQ(NTH Tj0 TO$Q))(PROGN(SETQ T?$Q(NTH Tj0 T$$Q))(IF(< T?$Q Tj$Q)(SETQ Tl$Q(LIST(NTH Tj0 T1$Q)(NTH Tj0 T#$Q))Tj$Q T?$Q)))))))))))Tl$Q)
(defun TQOQ(T?1j / T?|j T1$)(SETQ T1$ NIL)(IF(AND T?1j(TO&j T?1j"INSERT"))(IF(SETQ T?|j(ASSOC 66 T?1j))(IF(=(CDR T?|j)1)(SETQ T1$ T))))T1$)
(defun TlOQ(T&OQ T0@ / T1OQ T#OQ T??j T1$)(SETQ T1$ NIL T0@(T?1 T0@)T1OQ(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T&OQ))))(IF(T01@ T1OQ)(PROGN(SETQ T??j(SSLENGTH T1OQ))(WHILE(AND(> T??j 0)(NULL T1$))(SETQ T#OQ(T?1(T%&j 10(Tj&j(SSNAME T1OQ(SETQ T??j(- T??j 1))))T)))(IF(<=(DISTANCE T#OQ T0@)T0OQ)(SETQ T1$ T)))))T1$)
(defun T$OQ(TOOQ T0@ / T|OQ T%OQ T??j T1$)(SETQ T1$ NIL T0@(T?1 T0@)T|OQ(SSGET"X"(LIST(CONS 0"SHAPE")(CONS 2 TOOQ))))(IF(T01@ T|OQ)(PROGN(SETQ T??j(SSLENGTH T|OQ))(WHILE(AND(> T??j 0)(NULL T1$))(SETQ T%OQ(T?1(T%&j 10(Tj&j(SSNAME T|OQ(SETQ T??j(- T??j 1))))T)))(IF(<=(DISTANCE T%OQ T0@)T0OQ)(SETQ T1$ T)))))T1$)
(defun T?|Q(T&OQ Tj|Q T@|Q TQ|Q Tl|Q T&|Q T1|Q /)(command-s"._INSERT"T&OQ)(IF T1|Q(command-s""))(IF T#|Q(command-s Tj|Q T@|Q TQ|Q Tl|Q T&|Q)(command-s Tj|Q T@|Q TQ|Q T&|Q)))
(defun T0|Q(T&OQ T$|Q / TO|Q T||Q T%|Q)(SETQ T@@Q NIL TO|Q(TBLSEARCH"BLOCK"(TO@j T&OQ)))(IF(NULL TO|Q)(PROGN(SETQ T||Q NIL)(IF(=(STRCASE(T#@j T&OQ))".DWG")(SETQ T||Q(FINDFILE T&OQ)))(IF(NULL T||Q)(SETQ T||Q(FINDFILE(STRCAT(TO@j T&OQ)".DWG"))))(IF(NULL T||Q)(SETQ T||Q(FINDFILE(STRCAT T$|Q(TO@j T&OQ)".DWG"))))(IF T||Q(PROGN(SETVAR"ATTREQ"0)(SETQ T%|Q(LIST 0.0 0.0))(IF T?%Q(SETQ T@@Q T||Q))(IF(= T|lj 0)(T?|Q T||Q T%|Q 1E-6 1E-6 1E-6""TQ@Q))(IF(= T|lj 1)(T?|Q T||Q T%|Q 1E-6 1E-6 1E-6""NIL))(SETQ TO|Q(TBLSEARCH"BLOCK"(TO@j T&OQ)))(ENTDEL(ENTLAST))(SETQ T@@Q NIL)))))(IF TO|Q(SETQ TO|Q(T1&j 2 TO|Q)))TO|Q)
(defun Tj%Q(T@%Q / T&| Tj0 T?0Q Tj0Q T?Qj T||Q T%|Q TQ%Q)(IF T#0Q(PROGN(SETQ T%|Q(GETVAR"VIEWCTR")Tj0 -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ Tj0(+ Tj0 1))T#0Q)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|)))(IF(AND(= T?0Q 1)(/= Tj0Q""))(PROGN(SETQ TQ%Q(T0|Q Tj0Q Tl%Q))(IF(NULL TQ%Q)(IF T@%Q(TlO@ 117 Tj0Q)))))))))
(defun T&%Q(T1%Q / T#%Q TO1j T?1j Tj0)(SETQ T#%Q(T0|Q T1%Q Tl%Q))(IF T#%Q(PROGN(SETQ TO1j(T1&j -2(TBLSEARCH"BLOCK"T#%Q))Tj0 0)(WHILE TO1j(SETQ T?1j(Tj&j TO1j))(IF(TO&j T?1j"ATTDEF")(PROGN(SETQ Tj0(+ Tj0 1))(COND((= Tj0 1)(SETQ T0%Q(T1&j 2 T?1j)T$%Q(T%&j 10 T?1j NIL)))((= Tj0 2)(SETQ TO%Q(T1&j 2 T?1j)T|%Q(T%&j 10 T?1j NIL)))((= Tj0 3)(SETQ T%%Q(T1&j 2 T?1j)T??l(T%&j 10 T?1j NIL))))))(SETQ TO1j(ENTNEXT TO1j)))(SETQ T#%Q(STRCASE T#%Q))))T#%Q)
(defun Tj?l(/ T$@j)(IF T@?l(PROGN(SETQ T$@j(STRCASE(T#@j T@?l)))(IF(= T$@j".SHP")(PROGN(command-s"._COMPILE"T@?l)(SETQ T@?l(STRCAT(SUBSTR T@?l 1(-(STRLEN T@?l)3))"SHX"))))(SETQ T$@j(STRCASE(T#@j T@?l)))(IF(= T$@j".SHX")(PROGN(SETQ T@?l(FINDFILE T@?l))(IF T@?l(command-s"._LOAD"T@?l)))))))
(defun TQ?l(Tl?l T&?l T1?l / TO|Q T#?l)(IF(AND Tl?l(TQOQ(CDR(Tj&j Tl?l))))(PROGN(SETQ TO|Q(ENTNEXT Tl?l)T#?l NIL)(WHILE(AND TO|Q(NULL(TO&j(Tj&j TO|Q)"SEQEND")))(IF(TO&j(Tj&j TO|Q)"ATTRIB")(PROGN(IF(=(STRCASE(T1&j 2(Tj&j TO|Q)))T&?l)(PROGN(T##j(Tj&j TO|Q)(LIST(LIST 1 T1?l)))(SETQ T#?l T)))))(SETQ TO|Q(ENTNEXT TO|Q)))(IF T#?l(T##j(Tj&j Tl?l)NIL)))))
(defun T0?l(T$?l T@%Q / TO?l T&| Tj0 TjOQ TQ?j T?0Q Tj0Q T|?l TlQj T%O T&0 T%?l T?jl Tjjl)(SETQ T%?l NIL T?jl NIL)(IF T$?l(PROGN(SETQ TlQj(OPEN T$?l"r"))(WHILE(SETQ T&0(READ-LINE TlQj))(SETQ T&0(STRCASE(T0# T&0)))(IF(AND(/= T&0"")(/=(SUBSTR T&0 1 1)(CHR 59)))(IF(=(SUBSTR T&0 1 1)"*")(PROGN(SETQ T%O(TQO T&0","))(IF(>=(LENGTH T%O)1)(SETQ Tj0Q(SUBSTR(CAR T%O)2)T%?l(APPEND T%?l(LIST Tj0Q)))))(PROGN(SETQ T%O(TQO T&0","))(IF(>(LENGTH T%O)1)(PROGN(SETQ Tj0 0)(REPEAT(-(LENGTH T%O)1)(SETQ T?0Q(NTH Tj0 T%O)Tj0Q(NTH(+ Tj0 1)T%O))(IF(>=(STRLEN T?0Q)3)(IF(=(SUBSTR T?0Q 1 1)"[")(IF(=(SUBSTR T?0Q 2 1)(CHR 34))(IF(=(SUBSTR T?0Q(STRLEN T?0Q))(CHR 34))(SETQ T?jl(APPEND T?jl(LIST Tj0Q)))))))(SETQ Tj0(+ Tj0 1)))))))))(CLOSE TlQj)))(IF T?jl(WHILE T?jl(SETQ T&0(CAR T?jl)TO?l(T1&Q T&0))(IF(NULL TO?l)(PROGN(TlO@ 123 T&0)(SETQ TO?l(T1&Q(STRCAT T&0";"TQ1Q)))))(SETQ T?jl(CDR T?jl))))(IF(AND T#0Q T%?l)(PROGN(SETQ Tj0 0)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH Tj0 T#0Q)T?0Q(CADDDR T&|)Tj0Q(STRCASE(CAR(CDDDDR T&|))))(IF(AND(= T?0Q 3)(/= Tj0Q""))(PROGN(SETQ T|?l(TBLSEARCH"LTYPE"Tj0Q))(IF(NULL T|?l)(PROGN(SETQ Tjjl NIL TQ?j(LENGTH T%?l)TjOQ 0)(WHILE(AND(NULL Tjjl)(< TjOQ TQ?j))(IF(=(NTH TjOQ T%?l)Tj0Q)(SETQ Tjjl T))(SETQ TjOQ(+ TjOQ 1)))(IF Tjjl(command-s"._LINETYPE""_L"Tj0Q T$?l"")))(IF T?%Q(PROGN(SETQ Tjjl NIL TQ?j(LENGTH T%?l)TjOQ 0)(WHILE(AND(NULL Tjjl)(< TjOQ TQ?j))(IF(=(NTH TjOQ T%?l)Tj0Q)(SETQ Tjjl T))(SETQ TjOQ(+ TjOQ 1)))(IF Tjjl(command-s"._LINETYPE""_L"Tj0Q T$?l"")))))(SETQ T|?l(TBLSEARCH"LTYPE"Tj0Q))(IF(NULL T|?l)(IF T@%Q(TlO@ 122 Tj0Q)))))(SETQ Tj0(+ Tj0 1)))))(IF T%?l(PROGN(SETQ TQ?j(LENGTH T%?l)TjOQ 0)(REPEAT TQ?j(SETQ T&0(NTH TjOQ T%?l)T|?l(TBLSEARCH"LTYPE"T&0))(IF(NULL T|?l)(command-s"._LINETYPE""_L"T&0 T$?l""))(SETQ TjOQ(+ TjOQ 1))))))
(defun T@jl(/ TQ|@ TQjl Tj0 TOQj T&| T%1j Tljl T&jl T1jl T#jl T0jl)(SETQ TQ|@ NIL)(IF T$jl(PROGN(SETQ Tj0 -1)(REPEAT(LENGTH T$jl)(SETQ TOQj(NTH(SETQ Tj0(+ Tj0 1))T$jl)T&|(TQO TOQj","))(IF(>=(LENGTH T&|)5)(PROGN(SETQ T%1j(NTH 0 T&|)Tljl(NTH 1 T&|)T&jl(NTH 2 T&|)T1jl(NTH 3 T&|)T#jl(NTH 4 T&|))(IF(>=(LENGTH T&|)6)(SETQ T0jl(NTH 5 T&|))(SETQ T0jl"Y"))(SETQ T%1j(NTH 0 T&|)Tljl(NTH 1 T&|)T&jl(NTH 2 T&|)T1jl(NTH 3 T&|)T#jl(NTH 4 T&|)T0jl(NTH 5 T&|))(IF(AND T&jl(TBLSEARCH"LAYER"T&jl))(PROGN(SETQ TQjl(T#0j T&jl)T1jl(ITOA(NTH 0 TQjl)))(IF(NTH 1 TQjl)(SETQ T#jl"N")(SETQ T#jl"Y"))(IF(NTH 4 TQjl)(SETQ T0jl"N")(SETQ T0jl"Y"))))(SETQ TOQj(STRCAT T%1j","Tljl","T&jl","T1jl","T#jl","T0jl)TQ|@(APPEND TQ|@(LIST TOQj))))))))TQ|@)
(defun TOjl(T@0j T|jl T%jl T?@l / Tj@l)(IF(AND T@0j(NULL(TBLSEARCH"LAYER"T@0j)))(command-s"._LAYER""_N"T@0j""))(SETQ Tj@l(T#0j T@0j))(IF(NTH 2 Tj@l)(command-s"._LAYER""_T"T@0j""))(IF(NTH 3 Tj@l)(command-s"._LAYER""_U"T@0j""))(IF(AND T|jl(/=(NTH 0 Tj@l)T|jl))(command-s"._LAYER""_C"T|jl T@0j""))(SETQ Tj@l(T#0j T@0j))(IF(/=(STRCASE T@0j)(STRCASE(GETVAR"CLAYER")))(PROGN(IF(AND(NTH 1 Tj@l)(NULL T%jl))(Tj0j T@0j))(IF(AND(NULL(NTH 1 Tj@l))T%jl)(TQ0j T@0j))))(IF(AND(NTH 4 Tj@l)(NULL T?@l))(Tl0j T@0j))(IF(AND(NULL(NTH 4 Tj@l))T?@l)(T10j T@0j)))
(defun T@@l(TQ@l / TOQj T&| T%1j Tljl T&jl T1jl Tl@l T&@l TQjl Tj0)(SETQ T1@l NIL T#@l NIL T0@l""T$@l""TO@l""T|@l""T%@l NIL T?Ql""TjQl""T@Ql"")(IF T$jl(PROGN(SETQ Tj0 -1)(REPEAT(LENGTH T$jl)(SETQ TOQj(NTH(SETQ Tj0(+ Tj0 1))T$jl)T&|(TQO TOQj",")Tljl"N")(IF(>=(LENGTH T&|)5)(SETQ T%1j(NTH 0 T&|)Tljl(NTH 1 T&|)T&jl(NTH 2 T&|)T1jl(NTH 3 T&|)Tl@l(NTH 4 T&|)))(IF(>=(LENGTH T&|)6)(SETQ T&@l(NTH 5 T&|))(SETQ T&@l"Y"))(IF(= Tljl"Y")(PROGN(IF(/= Tl@l"N")(SETQ Tl@l NIL)(SETQ Tl@l T))(IF(/= T&@l"N")(SETQ T&@l NIL)(SETQ T&@l T))(IF TQ@l(IF(< Tj0 6)(TOjl T&jl(ATOI T1jl)Tl@l T&@l))(TOjl T&jl(ATOI T1jl)Tl@l T&@l))(SETQ TQjl(T#0j T&jl))(COND((= T%1j"PCT")(SETQ T1@l(APPEND T1@l(LIST(LIST T&jl(NTH 0 TQjl)(NTH 1 TQjl))))))((= T%1j"ARR")(SETQ T#@l(APPEND T#@l(LIST(LIST T&jl(NTH 0 TQjl)(NTH 1 TQjl))))))((= T%1j"CAR")(SETQ T0@l T&jl))((= T%1j"IMG")(SETQ T$@l T&jl))((= T%1j"CNT-M3D")(SETQ TO@l T&jl))((= T%1j"M3D")(SETQ T|@l T&jl T%@l(ATOI T1jl)))((= T%1j"PLAN")(SETQ T?Ql T&jl))((= T%1j"DIM")(SETQ TjQl T&jl))((= T%1j"VOL")(SETQ T@Ql T&jl)))))))))
(defun TQQl(TlQl /)(SETQ T$jl(T&Qj TlQl NIL NIL NIL))(T@@l NIL)(SETQ T$jl(T@jl))(T1|@ T$jl"TLTLAY"3))
(defun T&Ql(TlQl /)(SETQ T$jl(Tj|@"TLTLAY"3))(IF T$jl(T@@l NIL)(TQQl TlQl)))
(defun T1Ql(TlQl /)(SETQ T$jl(Tj|@"TLTLAY"3))(IF(NULL T$jl)(SETQ T$jl(T&Qj TlQl NIL 7 NIL)))(SETQ T$jl(T@jl))(T@lj TlQl"w")(Tllj T$jl)(T%Qj))
(defun T#Ql(Tj0 / T&0 T&|)(SETQ T&| NIL)(IF(AND T0Ql(>(LENGTH T0Ql)0)(>= Tj0 0)(< Tj0(LENGTH T0Ql)))(SETQ T&|(TQO(NTH Tj0 T0Ql)",")))T&|)
(defun T$Ql(T&| TOQl TjOQ / T&0)(IF(AND T&|(>= TjOQ 0)(< TjOQ(LENGTH T&|)))(SETQ T&0(NTH TjOQ T&|))(SETQ T&0 TOQl))T&0)
(defun T|Ql(T&| T%Ql TjOQ / T?ll T&0)(SETQ T?ll T%Ql T&0(T$Ql T&|""TjOQ))(IF(/= T&0"")(SETQ T?ll(ATOI T&0)))T?ll)
(defun Tjll(T&| T@ll TjOQ / TQll T&0)(SETQ TQll T@ll T&0(T$Ql T&|""TjOQ))(IF(/= T&0"")(SETQ TQll(ATOF T&0)))TQll)
(defun Tlll(T&| T&ll TjOQ / T1ll T&0)(SETQ T1ll T&ll T&0(T$Ql T&|""TjOQ))(IF(/= T&0"")(IF(/= T&0"0")(SETQ T1ll T)(SETQ T1ll NIL)))T1ll)
(defun T#ll(/ T0ll)(SETQ T0ll(CHR(T|Ql(T#Ql 5)59 4)))(IF(= T0ll"")(SETQ T0ll(CHR 59)))T0ll)
(defun T$ll(TOll / T|ll)(SETQ T|ll(FINDFILE TOll))(IF(NULL T|ll)(PROGN(SETQ T|ll(FINDFILE(STRCAT T%l@(TO@j TOll)(T#@j TOll))))(IF(NULL T|ll)(SETQ T|ll TOll))))T|ll)
(defun T%ll(T?&l / Tj&l T$$)(SETQ T$$(STRLEN T?&l))(IF(AND(> T$$ 2)(=(SUBSTR T?&l T$$ 1)"\\"))(SETQ T?&l(SUBSTR T?&l 1(- T$$ 1))))(SETQ Tj&l(FINDFILE T?&l))(IF(NULL Tj&l)(PROGN(SETQ Tj&l(FINDFILE(STRCAT T%l@(TO@j T?&l))))(IF(NULL Tj&l)(SETQ Tj&l T?&l))))(STRCAT Tj&l"\\"))
(defun T@&l(/ TQ&l Tl&l T&&l T1&l T#&l T0&l T$&l TO&l T&| T|&l TOQj T%&l T?1l Tj1l T@1l)(SETQ T%&l(GETVAR"PDSIZE")T?1l(GETVAR"PDMODE"))(SETQ T00Q(T$ll(T$Ql(T#Ql 0)(STRCAT T%l@"TopoLT.cod")0)))(IF(NULL(FINDFILE T00Q))(TlO@ 118 T00Q))(SETQ TQ1l(T$ll(T$Ql(T#Ql 1)(STRCAT T%l@"TopoLT.lay")0)))(IF(NULL(FINDFILE TQ1l))(PROGN(T@Qj(STRCAT T%l@"TopoLT.lay"))(TlO@ 119 TQ1l)))(SETQ Tl1l(T$ll(T$Ql(T#Ql 2)(STRCAT T%l@"TopoLT.lin")0))T&1l(T$ll(T$Ql(T#Ql 3)(STRCAT T%l@"TopoLT.shx")0))Tl%Q(T%ll(T$Ql(T#Ql 4)(STRCAT T%l@"Symb1000\\")0))T11l(T|Ql(T#Ql 5)0 0))(SETQ T&|(T#Ql 6)T#1l(Tjll T&| 1000.0 0)T01l(T|Ql T&| 0 1)T$1l(Tlll T&| NIL 3))(SETQ T&|(T#Ql 7)TO1l(Tl1Q(T$Ql T&| TQ1Q 0))T|1l(Tjll T&| 1.5 1)T|&(T%|j(/(*(- 400.0(-(Tjll T&| 100.0 2)100.0))PI)200.0))T%1l(Tjll T&| 0.5 3)TQ&l(T|Ql T&| 32 4)T1?@(T$Ql T&| T?#l 5)Tj#l(T$Ql T&|"Grf"6)T0OQ(Tjll T&| 0.03 7)T@#l(Tlll T&| NIL 8)TQ#l(Tjll T&| 0.85 13)Tl#l(Tlll T&| T 14)T&#l(Tlll T&| T 15)T1#l(Tlll T&| T 16))(IF(= T1?@"")(SETQ T1?@ T?#l))(SETQ T1?@(T&%Q T1?@))(IF(NOT T1?@)(PROGN(SETQ T1?@(TO@j(T$Ql T&| T?#l 5)))(TlO@ 117(STRCAT T1?@".dwg"))))(SETQ T&|(T#Ql 11)Tl&l(Tlll T&| T 0)T&&l(Tl1Q(T$Ql T&| TQ1Q 1))T1&l(Tjll T&| 1.8 2)T#&l(T$Ql T&|""3)T0&l(T$Ql T&|""4)T$&l(T|Ql T&| 2 5)TO&l(Tlll T&| T 6))(IF(/= T#&l"")(SETQ T#&l(STRCAT T#&l"<>")))(IF(Tlll(T#Ql 13)NIL 8)(SETQ Tj@Q T##l)(SETQ Tj@Q TlQQ))(SETQ T&|(T#Ql 16)T0#l(Tlll T&| T 0)T$#l(T|Ql T&| 0 1)TO@Q(T|Ql T&| 3 2)TO#l(T|Ql T&| 3 3)T|#l(T$Ql T&|"m"4)T%#l(T|Ql T&| 3 5)Tlj(Tjll T&| 1.0 6)T?0l(T$Ql T&|"m"7)Tj0l(T|Ql T&| 2 8)T1j(Tjll T&| 1.0 9)T@0l(T$Ql T&|"mp"10)TQ0l(T|Ql T&| 2 11)T0j(Tjll T&| 1.0 12)Tl0l(T$Ql T&|"mc"13))(COND((= T$#l 0)(SETQ T&0l(/ T#1l 1000.0)T|&l T&0l T10l"mm"T#0l"m"))((= T$#l 1)(SETQ T&0l(/ T#1l 12.0)T|&l(/ T#1l 100.0)T10l"inch"T#0l"feet")))(SETQ T00l(T@@ 0 T$#l 0.1)T$0l(T@@ 0 T$#l 0.35)TO0l(T@@ 0 T$#l 0.5)T|0l(T@@ 0 T$#l 0.6)T%0l(T@@ 0 T$#l 0.8)T?$l(T@@ 0 T$#l 1.0)Tj$l(T@@ 0 T$#l 1.2)T@$l(T@@ 0 T$#l 2.0)TQ$l(T@@ 0 T$#l 3.0)Tl$l(T@@ 0 T$#l 5.0)T&$l(T@@ 0 T$#l 10.0)T1$l(T@@ 0 T$#l 15.0))(SETQ T|1l(* T|1l T&0l)T%1l(* T%1l T&0l))(IF Tl&l(PROGN(IF T&&l(SETVAR"DIMTXSTY"T&&l))(IF(OR(NULL(GETVAR"DIMANNO"))(=(GETVAR"DIMANNO")0))(SETVAR"DIMSCALE"T&0l))(SETVAR"DIMASZ"Tj$l)(SETVAR"DIMDEC"T$&l)(SETVAR"DIMADEC"4)(SETVAR"DIMAUNIT"2)(SETVAR"DIMEXE"TO0l)(SETVAR"DIMEXO"TO0l)(SETVAR"DIMGAP"TO0l)(SETVAR"DIMPOST"(STRCAT T#&l T0&l))(SETVAR"DIMUNIT"2)(SETVAR"DIMTXT"T1&l)(SETVAR"DIMTAD"0)(SETVAR"DIMTIH"0)(SETVAR"DIMTOH"0)(IF TO&l(PROGN(SETVAR"DIMSD1"1)(SETVAR"DIMSD2"1)(SETVAR"DIMSE1"1)(SETVAR"DIMSE2"1)(SETVAR"DIMTIX"1))(PROGN(SETVAR"DIMSD1"0)(SETVAR"DIMSD2"0)(SETVAR"DIMSE1"0)(SETVAR"DIMSE2"0)(SETVAR"DIMTIX"0)))))(T|?Q Tj@Q)(IF T0#l(PROGN(SETQ T$@Q T)(SETVAR"LUNITS"2)(SETVAR"LUPREC"TO@Q)(SETVAR"ANGBASE"T%&)(SETVAR"AUNITS"2)(SETVAR"AUPREC"4)(SETVAR"ANGDIR"1)))(SETQ Tj1l T%1l)(IF(EQUAL T%1l 0.0 1E-8)(SETQ T@1l 0)(SETQ T@1l TQ&l))(command-s"._LTSCALE"T|&l)(TO#Q)(Tj%Q NIL)(SETQ TQ@Q NIL)(Tj?l)(T0?l Tl1l NIL)(IF(OR(/= Tj1l T%&l)(/= T@1l T?1l))(PROGN(SETVAR"PDSIZE"Tj1l)(SETVAR"PDMODE"T@1l)(command-s"._REGEN"))))
(defun T#$l(T0$l T$$l / TO$l)(SETQ T0Ql(T&Qj T0$l NIL NIL NIL))(IF T0Ql(PROGN(IF T$$l(PROGN(SETQ TO$l(TjQj T0$l".cod"))(IF(FINDFILE TO$l)(QQFC TO$l(T$Ql(T#Ql 0)""0)))(SETQ TO$l(TjQj T0$l".lay"))(IF(FINDFILE TO$l)(QQFC TO$l(T$Ql(T#Ql 1)""0)))(SETQ TO$l(TjQj T0$l".lin"))(IF(FINDFILE TO$l)(QQFC TO$l(T$Ql(T#Ql 2)""0)))(SETQ TO$l(TjQj T0$l(T#@j(T$Ql(T#Ql 3)""0))))(IF(FINDFILE TO$l)(QQFC TO$l(T$Ql(T#Ql 3)""0)))))(T1|@ T0Ql"TLTCFG110"1)(T@&l)(TQQl TQ1l))))
(defun T|$l(T0$l / T%$l TOQj T?Ol TjOl T&| T@Ol Tj0)(SETQ T0Ql(Tj|@"TLTCFG110"1)TjOl 0)(IF T0Ql(SETQ TjOl 110)(PROGN(SETQ T0Ql(Tj|@"TLTCFG90"1))(IF T0Ql(PROGN(SETQ TjOl 90)(TOO@"TLTCFG90"))(PROGN(SETQ T0Ql(Tj|@"TLTCFG60"1))(IF T0Ql(PROGN(SETQ TjOl 60)(TOO@"TLTCFG60"))(PROGN(SETQ T0Ql(Tj|@"TLTCFG50"1))(IF T0Ql(PROGN(SETQ TjOl 50)(TOO@"TLTCFG50"))(PROGN(SETQ T0Ql(Tj|@"TLTCFG4_0"1))(IF T0Ql(PROGN(SETQ TjOl 40)(TOO@"TLTCFG4_0"))(PROGN(IF(Tj|@"TopoLTCFG"1)(PROGN(SETQ TjOl 33)(TOO@"TopoLTCFG")))))))))))))(IF(AND T0Ql(<(LENGTH T0Ql)17))(SETQ T0Ql NIL))(IF T0Ql(PROGN(SETQ T%$l NIL Tj0 -1)(REPEAT(LENGTH T0Ql)(SETQ TOQj(NTH(SETQ Tj0(+ Tj0 1))T0Ql))(IF(OR(= Tj0 0)(= Tj0 1)(= Tj0 2)(= Tj0 3))(IF(/= TOQj"")(IF(FINDFILE TOQj)(SETQ TOQj(FINDFILE TOQj))(PROGN(SETQ T?Ol(FINDFILE(STRCAT(TO@j TOQj)(T#@j TOQj))))(IF T?Ol(SETQ TOQj T?Ol))))))(IF(= TjOl 40)(IF(= Tj0 5)(SETQ TOQj(STRCAT TOQj".rad,"))))(IF(OR(= TjOl 40)(= TjOl 50))(PROGN(IF(= Tj0 6)(SETQ TOQj(STRCAT TOQj"0,")))(IF(= Tj0 7)(SETQ TOQj(STRCAT TOQj"0.85,1,1,")))(IF(= Tj0 14)(SETQ TOQj"0,0,0,1,1,ItalicC.shx,1.8,100.0,0.25,0.0,0.25,0.0,4,1,1,0.75,0,0,1,0,1,1,0,0"))))(IF(OR(= TjOl 40)(= TjOl 50)(= TjOl 60)(= TjOl 90))(PROGN(IF(= Tj0 5)(PROGN(SETQ T&|(TQO TOQj",")T@Ol(T$Ql T&|""4))(IF(AND(/= T@Ol"")(>=(LENGTH T&|)5))(SETQ TOQj(STRCAT(NTH 0 T&|)","(NTH 1 T&|)","(NTH 2 T&|)","(NTH 3 T&|)","(ITOA(ASCII T@Ol))",")))))(IF(AND(= Tj0 15)(FINDFILE(STRCAT T%l@"Transformations\\MODELE~1.MTR")))(SETQ TOQj(STRCAT TOQj"MODELE~1.MTR,2,1,1,1,1,1,1,1,,,0,MODELE~1.MTR,1,0,2,1,")))))(SETQ T%$l(APPEND T%$l(LIST TOQj))))(SETQ T0Ql T%$l)(IF(AND(OR(= TjOl 40)(= TjOl 50))(=(LENGTH T0Ql)17))(SETQ T0Ql(APPEND T0Ql(LIST"A0968C82786E645A50463C32281E140A"))))))(IF(NULL T0Ql)(IF(FINDFILE TQOl)(T#$l TQOl T)(T#$l T0$l NIL)))(IF(AND T0Ql(< TjOl 110))(T1|@ T0Ql"TLTCFG110"1))(T@&l)(T&Ql TQ1l))
(defun TlOl(T0$l /)(SETQ T0Ql(Tj|@"TLTCFG110"1))(IF T0Ql(PROGN(T@lj T0$l"w")(Tllj T0Ql)(T%Qj)))(T1Ql TQ1l))
(defun T&Ol(T1Ol / T#Ol)(SETQ T#Ol NIL)(IF(AND T1@l(>= T1Ol 1)(<= T1Ol 6))(SETQ T#Ol(CAR(NTH(- T1Ol 1)T1@l))))(IF(NULL T#Ol)(SETQ T#Ol""))T#Ol)
(defun T0Ol(/ Tj0 T@0j)(SETQ Tj0 0)(REPEAT 6(SETQ T@0j(T&Ol(SETQ Tj0(+ Tj0 1))))(IF(=(GETVAR"CLAYER")T@0j)(SETVAR"CLAYER""0"))(Tj0j T@0j)))
(defun T$Ol(/ Tj0 T@0j)(SETQ Tj0 0)(REPEAT 6(SETQ T@0j(T&Ol(SETQ Tj0(+ Tj0 1))))(IF(=(STRCASE(GETVAR"CLAYER"))(STRCASE T@0j))(SETVAR"CLAYER""0"))(TQ0j T@0j)))
(defun TOOl(/ Tj0 T@0j TQjl)(SETQ T|Ol NIL Tj0 0)(REPEAT 6(SETQ T@0j(T&Ol(SETQ Tj0(+ Tj0 1))))(IF(AND T@0j(TBLSEARCH"LAYER"T@0j))(SETQ TQjl(T#0j T@0j)T|Ol(APPEND T|Ol(LIST(LIST T@0j(NTH 0 TQjl)(NTH 1 TQjl)))))(SETQ T|Ol(APPEND T|Ol(LIST(LIST T@0j 7 T)))))))
(defun T%Ol(/ Tj0 T@0j T%jl)(IF T|Ol(PROGN(SETQ Tj0 0)(REPEAT 6(SETQ T@0j(T&Ol(SETQ Tj0(+ Tj0 1))))(IF(AND(TBLSEARCH"LAYER"T@0j))(PROGN(SETQ T%jl(LAST(NTH(- Tj0 1)T|Ol)))(IF T%jl(PROGN(IF(=(STRCASE(GETVAR"CLAYER"))(STRCASE T@0j))(SETVAR"CLAYER""0"))(TQ0j T@0j))(Tj0j T@0j)))))(SETQ T|Ol NIL))))
(defun T?|l(Tj|l T@|l TQ|l Tl|l / T&|l T$& T1|l T#|l)(SETQ T&|l NIL)(IF(>(DISTANCE Tj|l T@|l)0.0)(PROGN(SETQ T1|l(+(ANGLE Tj|l T@|l)T%&))(IF Tl|l(SETQ T#|l(+(MAX(DISTANCE TQ|l Tj|l)(DISTANCE TQ|l T@|l))100.0)T$&(POLAR TQ|l T1|l T#|l)TQ|l(POLAR TQ|l(+ T1|l PI)T#|l))(SETQ T$&(POLAR TQ|l T1|l 100.0)))(SETQ T&|l(INTERS Tj|l T@|l TQ|l T$& Tl|l))))T&|l)
(defun T0|l(T1& T#& T$|l TO|l / T&|l T||l T%|l T?%l Tj%l T@%l TQ%l Tl%l T&%l T1%l)(SETQ T1&(T?1 T1&)T#&(T?1 T#&)T$|l(T?1 T$|l)T?%l(ANGLE T1& T#&)Tj%l(ANGLE T1& T$|l)TQ%l(DISTANCE T1& T#&)Tl%l(DISTANCE T1& T$|l)T&%l(DISTANCE T#& T$|l)T1%l NIL)(IF(AND(>= TO|l 0.0)(> Tl%l 0.0)(>= TQ%l TO|l)(>= T&%l TO|l))(PROGN(SETQ T||l(POLAR T#&(T%|j(+ Tj%l T#%l))100.0)T%|l(POLAR T#&(T%|j(+ Tj%l T%&))100.0))(IF(EQUAL T?%l Tj%l 1E-8)(PROGN(SETQ T&|l NIL)(IF(< TQ%l Tl%l)(SETQ T&|l(POLAR T1& Tj%l TQ%l))))(SETQ T&|l(INTERS T1& T$|l T||l T%|l T)))(IF T&|l(PROGN(SETQ T@%l(DISTANCE T&|l T#&)T@%l(+(Tj T@%l)(T& T@%l)))(IF(<= T@%l TO|l)(SETQ T1%l T))))))T1%l)
(defun T0%l(T&#@ T&|l / T@Q TQQ T$%l TQ?j Tj0 TjOQ TO%l T|%l T%%l T||j)(SETQ T||j NIL T%%l NIL)(IF(AND T&#@(>(LENGTH T&#@)2))(PROGN(SETQ TQ?j(LENGTH T&#@))(IF(T#1(NTH 0 T&#@)(LAST T&#@))(SETQ TQ?j(- TQ?j 1)))(IF(> TQ?j 2)(PROGN(SETQ T@Q(NTH(- TQ?j 1)T&#@)Tj0 0)(WHILE(AND(< Tj0 TQ?j)(NULL T%%l))(SETQ TQQ(NTH Tj0 T&#@))(IF(T#1 T@Q T&|l)(SETQ T||j T T%%l T)(PROGN(IF(>(*(-(CADR T@Q)(CADR T&|l))(-(CADR T&|l)(CADR TQQ)))1E-8)(PROGN(SETQ TO%l(+(/(*(-(CADR T&|l)(CADR T@Q))(-(CAR TQQ)(CAR T@Q)))(-(CADR TQQ)(CADR T@Q)))(CAR T@Q)))(IF(EQUAL TO%l(CAR T&|l)1E-6)(SETQ T||j T T%%l T)(IF(<(CAR T&|l)TO%l)(SETQ T||j(NOT T||j)))))(IF(AND(EQUAL(CADR T&|l)(CADR TQQ)1E-8)(NULL(EQUAL(CADR T&|l)(CADR T@Q)1E-8)))(IF(<(CAR T&|l)(CAR TQQ))(PROGN(SETQ T|%l 0.0 TjOQ(+ Tj0 1))(WHILE(AND(EQUAL T|%l 0.0 1E-8)(/= TjOQ Tj0))(IF(= TjOQ TQ?j)(SETQ TjOQ 0))(SETQ T$%l(NTH TjOQ T&#@)T|%l(-(CADR T$%l)(CADR T&|l))TjOQ(+ TjOQ 1)))(IF(<(*(-(CADR T@Q)(CADR T&|l))T|%l)0.0)(SETQ T||j(NOT T||j)))))(PROGN(IF(AND(EQUAL(CADR T&|l)(CADR TQQ)1E-8)(EQUAL(CADR T&|l)(CADR T@Q)1E-8)(>=(CAR T&|l)(MIN(CAR T@Q)(CAR TQQ)))(<=(CAR T&|l)(MAX(CAR T@Q)(CAR TQQ))))(SETQ T||j T T%%l T)))))))(SETQ Tj0(+ Tj0 1)T@Q TQQ))))))T||j)
(defun T??&(Tj?& T@?& TQ?& / Tl?& T&?& TQ?j T@Q TQQ)(SETQ Tl?& NIL)(IF(AND Tj?& T@?& TQ?&(>(DISTANCE T@?& TQ?&)0.0))(PROGN(SETQ TQ?j(-(LENGTH Tj?&)1)T&?& 0)(WHILE(AND(NULL Tl?&)(< T&?& TQ?j))(SETQ T@Q(NTH T&?& Tj?&)TQQ(NTH(+ T&?& 1)Tj?&))(IF(INTERS T@Q TQQ T@?& TQ?& T)(SETQ Tl?& T))(SETQ T&?&(+ T&?& 1)))))Tl?&)
(defun T1?&(T@Q TQQ T@?@ T??@ Tl%j T&%j / T#?& T0?& T&|l T$1Q T?Q T$?& TO?& T|?& T%?& T?j&)(SETQ T#?& NIL T0?&(T?|l T@Q TQQ T@?@ NIL))(IF T0?&(PROGN(SETQ T$1Q(DISTANCE T@?@ T0?&)T?Q(DISTANCE T@Q TQQ))(IF(<= T$1Q T??@)(PROGN(IF(EQUAL T$1Q 0.0 1E-10)(PROGN(IF(NOT(T#1 T@?@ T@Q))(SETQ T%?&(ANGLE T@?@ T@Q))(SETQ T%?&(ANGLE T@?@ TQQ)))(SETQ T?j&(+ T%?& PI)))(SETQ T|?&(ATAN(SQRT(-(* T??@ T??@)(* T$1Q T$1Q)))T$1Q)T%?&(+(ANGLE T@?@ T0?&)T|?&)T?j&(-(ANGLE T@?@ T0?&)T|?&)))(IF(T@%j T%?& Tl%j T&%j)(PROGN(SETQ T&|l(POLAR T@?@ T%?& T??@)T$?&(DISTANCE T&|l T@Q)TO?&(DISTANCE T&|l TQQ))(IF(OR(EQUAL T$?& T?Q 1E-10)(EQUAL TO?& T?Q 1E-10)(AND(< T$?& T?Q)(< TO?& T?Q)))(SETQ T#?& T))))(IF(T@%j T?j& Tl%j T&%j)(PROGN(SETQ T&|l(POLAR T@?@ T?j& T??@)T$?&(DISTANCE T&|l T@Q)TO?&(DISTANCE T&|l TQQ))(IF(OR(EQUAL T$?& T?Q 1E-10)(EQUAL TO?& T?Q 1E-10)(AND(< T$?& T?Q)(< TO?& T?Q)))(SETQ T#?& T))))))))T#?&)
(defun Tjj&(Tj?& T@?@ T??@ Tl%j T&%j / Tl?& T&?& TQ?j T@Q TQQ)(SETQ Tl?& NIL)(IF Tj?&(PROGN(SETQ TQ?j(-(LENGTH Tj?&)1)T&?& 0)(WHILE(AND(NULL Tl?&)(< T&?& TQ?j))(SETQ T@Q(NTH T&?& Tj?&)TQQ(NTH(+ T&?& 1)Tj?&))(IF(T1?& T@Q TQQ T@?@ T??@ Tl%j T&%j)(SETQ Tl?& T))(SETQ T&?&(+ T&?& 1)))))Tl?&)
(defun T@j&(TQj& Tj?& / Tlj& T0?& T&?& TQ?j)(SETQ Tlj& NIL)(IF(AND TQj& Tj?&)(PROGN(SETQ TQ?j(LENGTH Tj?&)T&?& 0)(WHILE(AND(NULL Tlj&)(< T&?& TQ?j))(SETQ T0?&(NTH T&?& Tj?&))(IF(T0%l TQj& T0?&)(SETQ Tlj& T))(SETQ T&?&(+ T&?& 1)))))Tlj&)
(defun T&j&(Tj?& T1j& T#j& / T0j& T$j& TOj& T|j& T%j& T?@& T@?@ Tj@& T@@& TQ@& Tl@& T&@& T1@& T&?& TQ?j)(SETQ T$j& NIL)(IF Tj?&(PROGN(SETQ TOj&(T&&(NTH 0 Tj?&)(NTH 1 Tj?&))T|j&(T&&(NTH 1 Tj?&)(NTH 2 Tj?&))T%j&(T&&(NTH 2 Tj?&)(NTH 3 Tj?&))T?@&(T&&(NTH 3 Tj?&)(NTH 0 Tj?&))T@?@(T&&(NTH 0 Tj?&)(NTH 2 Tj?&))Tj@&(T&& T@?@ TOj&)T@@&(T&& T@?@ T%j&)T0j&(APPEND Tj?&(LIST TOj& T|j& T%j& T?@& T@?@ Tj@& T@@&)))(IF(>(LENGTH Tj?&)5)(SETQ TOj&(T&&(NTH 0 Tj?&)(NTH 4 Tj?&))T|j&(T&&(NTH 4 Tj?&)(NTH 5 Tj?&))T%j&(T&&(NTH 5 Tj?&)(NTH 6 Tj?&))T?@&(T&&(NTH 6 Tj?&)(NTH 0 Tj?&))T@?@(T&&(NTH 0 Tj?&)(NTH 5 Tj?&))Tj@&(T&& T@?@ T?@&)T@@&(T&& T@?@ T|j&)T0j&(APPEND Tj?&(LIST TOj& T|j& T%j& T?@& T@?@ Tj@& T@@&))))(SETQ TQ?j(LENGTH T0j&)T&?& 0)(WHILE(AND(NULL T$j&)(< T&?& TQ?j))(SETQ TQ@&(NTH T&?& T0j&)Tl@&(OSNAP TQ@&"NEA"))(IF Tl@&(PROGN(SETQ T&@&(NENTSELP Tl@&))(IF T&@&(PROGN(IF T#j&(SETQ T1@&(CAR(LAST T&@&)))(SETQ T1@&(CAR T&@&)))(IF(EQUAL T1j& T1@& 1E-10)(IF(T0%l(APPEND(LIST(CAR Tj?&))Tj?&)Tl@&)(SETQ T$j& T)))))))(SETQ T&?&(+ T&?& 1)))))T$j&)
(defun T#@&(T@Q TQQ T$%l T0@ / TlQ T&Q T1Q T#Q T0Q T$Q T0@& T$@& TO@& TO@ T|@ T%@ T|@& T%@& T@j T?Q T$$ T?Q& TjQ& TQ%j T$?&)(SETQ TlQ(CAR T@Q)T&Q(CADR T@Q)T1Q(T&1 T@Q)T#Q(CAR TQQ)T0Q(CADR TQQ)T$Q(T&1 TQQ)T0@&(CAR T$%l)T$@&(CADR T$%l)TO@&(T&1 T$%l)TO@(CAR T0@)T|@(CADR T0@)T|@&(-(*(- T0Q T&Q)(- TO@& T1Q))(*(- T$Q T1Q)(- T$@& T&Q)))T%@&(-(*(- T$Q T1Q)(- T0@& TlQ))(*(- T#Q TlQ)(- TO@& T1Q)))T@j(-(*(- T#Q TlQ)(- T$@& T&Q))(*(- T0Q T&Q)(- T0@& TlQ)))T$$(+(* T|@& T|@&)(* T%@& T%@&)(* T@j T@j)))(IF(> T$$ 0.0)(SETQ T|@&(/ T|@& T$$)T%@&(/ T%@& T$$)T@j(/ T@j T$$))(SETQ T|@& 0.0 T%@& 0.0 T@j 0.0))(SETQ T?Q(*(+(* T|@& TlQ)(* T%@& T&Q)(* T@j T1Q))-1.0))(IF(<(ABS T@j)1E-10)(PROGN(SETQ T0@(T?1 T0@)T@Q(T?1 T@Q)TQQ(T?1 TQQ)T?Q(DISTANCE T@Q TQQ)T?Q&(- T$Q T1Q)TQ%j(ANGLE T@Q TQQ))(IF(> T?Q 1E-10)(SETQ T0@(T?|l T@Q TQQ T0@ NIL)T$?&(DISTANCE T@Q T0@)TjQ&(/(* T$?& T?Q&)T?Q))(SETQ TjQ& 0.0))(IF(EQUAL TQ%j(ANGLE T@Q T0@)1E-5)(SETQ T%@(+ T1Q TjQ&))(SETQ T%@(- T1Q TjQ&))))(SETQ T%@(*(/(+(* T|@& TO@)(* T%@& T|@)T?Q)T@j)-1.0)))(LIST TO@ T|@ T%@))
(defun T@Q&(TQQ& T&l / TlQ& T&Q& T1Q& T%%j T#Q&)(IF(AND TQQ& T&l)(PROGN(SETQ TlQ& TQQ& TQQ& NIL T#Q& 0)(REPEAT(LENGTH TlQ&)(SETQ T1Q&(NTH T#Q& TlQ&)T&Q&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))T&Q&(Tll T&Q& T&l)T%%j(CAR(CDDDDR T1Q&))T#Q&(+ T#Q& 1))(SETQ TQQ&(APPEND TQQ&(LIST(LIST T#Q&(CAR T&Q&)(CADR T&Q&)(CADDR T&Q&)T%%j)))))))TQQ&)
(defun T0Q&(TQQ& / T&#@ T$Q& TOQ& T|Q& T&Q& T|Q T&l T1Q& T%%j T%Q& T?l& T#Q& Tjl& T@l& T||@ TQl& Tll&)(SETQ T&#@ NIL)(IF TQQ&(PROGN(SETQ T?l& NIL T%Q&(TOOj TQQ&)T@l&(T@|j TQQ&)Tll&(EXPT 10(* -1.0 Tj0l))T|Q(T1&j 210 TQQ&))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(IF(TO&j TQQ&"LWPOLYLINE")(PROGN(SETQ T#Q& 0 T$Q&(LENGTH TQQ&))(REPEAT T$Q&(SETQ T1Q&(CAR TQQ&))(IF(=(CAR T1Q&)10)(SETQ T&Q&(CDR T1Q&)))(IF(=(CAR T1Q&)42)(PROGN(SETQ T%%j(CDR T1Q&)Tjl& T@l&)(IF(CADDR T&Q&)(SETQ Tjl&(CADDR T&Q&)))(IF(NOT T?l&)(SETQ T?l&(/= T%%j 0.0)))(SETQ T#Q&(+ T#Q& 1)T&#@(APPEND T&#@(LIST(LIST T#Q&(CAR T&Q&)(CADR T&Q&)Tjl& T%%j))))))(SETQ TQQ&(CDR TQQ&)))))(IF(TO&j TQQ&"POLYLINE")(PROGN(SETQ T||@(T%Oj(T1&j 70 TQQ&)))(IF(OR(= T||@ 0)(= T||@ 1)(= T||@ 4)(= T||@ 5))(PROGN(SETQ TOQ&(ENTNEXT(CDR(CAR TQQ&)))T|Q&(Tj&j TOQ&)T#Q& 0)(WHILE(TO&j T|Q&"VERTEX")(SETQ T#Q&(+ T#Q& 1)T&Q&(T1&j 10 T|Q&)T%%j(T1&j 42 T|Q&)Tjl& T@l&)(IF(CADDR T&Q&)(SETQ Tjl&(CADDR T&Q&)))(IF(NOT T?l&)(SETQ T?l&(/= T%%j 0.0)))(SETQ T&#@(APPEND T&#@(LIST(LIST T#Q&(CAR T&Q&)(CADR T&Q&)Tjl& T%%j)))TOQ&(ENTNEXT TOQ&)T|Q&(Tj&j TOQ&)))))(IF(OR(= T||@ 2)(= T||@ 3)(= T||@ 6)(= T||@ 7))(PROGN(SETQ TOQ&(ENTNEXT(CDR(CAR TQQ&)))T|Q&(Tj&j TOQ&)T#Q& 0)(WHILE(TO&j T|Q&"VERTEX")(SETQ TQl&(T1&j 70 T|Q&))(IF(OR(= TQl& 1)(= TQl& 8)(= TQl& 40)(= TQl& 192)(= TQl& 72))(PROGN(SETQ T#Q&(+ T#Q& 1)T&Q&(T1&j 10 T|Q&)T%%j(T1&j 42 T|Q&)Tjl& T@l&)(IF(CADDR T&Q&)(SETQ Tjl&(CADDR T&Q&)))(IF(NOT T?l&)(SETQ T?l&(/= T%%j 0.0)))(SETQ T&#@(APPEND T&#@(LIST(LIST T#Q&(CAR T&Q&)(CADR T&Q&)Tjl& T%%j))))))(SETQ TOQ&(ENTNEXT TOQ&)T|Q&(Tj&j TOQ&)))))))(IF(NOT T%Q&)(SETQ T&Q&(LAST T&#@)T&Q&(LIST(CADR T&Q&)(CADDR T&Q&)(CADDDR T&Q&))T%%j 0.0 T&#@(SUBST(LIST T#Q&(CAR T&Q&)(CADR T&Q&)(CADDR T&Q&)T%%j)(ASSOC T#Q& T&#@)T&#@)))(IF(AND T&l T?l&)(SETQ T&#@(T&l& T&#@ T%Q& Tll&)))(IF T&l(SETQ T&#@(T@Q& T&#@ T&l)))))T&#@)
(defun T1l&(TQOj TQQ& / T#|j T#l& T0l& T||@ TQl& T$l& T%%j T&Q& T%1j)(SETQ T#|j(Tj&j TQOj))(IF(AND T#|j TQQ&(=(LENGTH TQQ&)(TOl& T#|j)))(PROGN(SETQ T%1j(T$&j T#|j))(IF(T$Oj T%1j)(PROGN(IF(= T%1j"POLYLINE")(PROGN(SETQ T||@(T%Oj(T1&j 70 T#|j)))(IF(OR(= T||@ 0)(= T||@ 1)(= T||@ 4)(= T||@ 5))(PROGN(SETQ T#l&(ENTNEXT TQOj)T0l&(Tj&j T#l&))(WHILE(AND TQQ&(TO&j T0l&"VERTEX"))(SETQ T&Q&(LIST(CADR(CAR TQQ&))(CADDR(CAR TQQ&))(CADDDR(CAR TQQ&)))T%%j(CAR(CDDDDR(CAR TQQ&))))(T##j T0l&(LIST(LIST 10 T&Q&)(LIST 42 T%%j)))(SETQ TQQ&(CDR TQQ&)T#l&(ENTNEXT T#l&)T0l&(Tj&j T#l&)))))(IF(OR(= T||@ 2)(= T||@ 3)(= T||@ 6))(PROGN(SETQ T#l&(ENTNEXT TQOj)T0l&(Tj&j T#l&))(WHILE(AND TQQ&(TO&j T0l&"VERTEX"))(SETQ TQl&(T1&j 70 T0l&))(IF(OR(= TQl& 1)(= TQl& 8)(= TQl& 40)(= TQl& 192)(= TQl& 72))(PROGN(SETQ T&Q&(LIST(CADR(CAR TQQ&))(CADDR(CAR TQQ&))(CADDDR(CAR TQQ&))))(T##j T0l&(LIST(LIST 10 T&Q&)))(SETQ TQQ&(CDR TQQ&))))(SETQ T#l&(ENTNEXT T#l&)T0l&(Tj&j T#l&)))))(T##j T#|j(LIST(LIST 210(LIST 0.0 0.0 1.0))))(IF(NULL T|l&)(SETQ T|l&(SSADD)))(SSADD TQOj T|l&)))(IF(= T%1j"LWPOLYLINE")(PROGN(SETQ T%%j 0.0 T#l& NIL)(WHILE T#|j(SETQ T$l&(CAR T#|j))(IF(=(CAR T$l&)10)(SETQ T&Q&(LIST(CADR(CAR TQQ&))(CADDR(CAR TQQ&))(CADDDR(CAR TQQ&)))T&Q&(T@1 T&Q& 0.0)T%%j(CAR(CDDDDR(CAR TQQ&)))T$l&(CONS 10 T&Q&)TQQ&(CDR TQQ&)))(IF(=(CAR T$l&)42)(SETQ T$l&(CONS(quote 42)T%%j)))(SETQ T#l&(APPEND T#l&(LIST T$l&))T#|j(CDR T#|j)))(T##j T#l&(LIST(LIST 210(LIST 0.0 0.0 1.0))))(IF(NULL T|l&)(SETQ T|l&(SSADD)))(SSADD TQOj T|l&))))))))
(defun T%l&(TQOj T$0 T&Q& T%%j / T#|j T#l& T0l& T$l& T|Q T%1j T#Q& T||@ TQl&)(IF TQOj(PROGN(SETQ T#|j(Tj&j TQOj)T%1j(T$&j T#|j)T|Q(T1&j 210 T#|j))(IF(T%1 T|Q)(SETQ T&Q&(T$l T&Q&(TOQ T|Q))))(IF(T$Oj T%1j)(PROGN(IF(= T%1j"POLYLINE")(PROGN(SETQ T||@(T%Oj(T1&j 70 T#|j))T#l&(ENTNEXT TQOj)T0l&(Tj&j T#l&)T#Q& 0)(WHILE(TO&j T0l&"VERTEX")(IF(OR(= T||@ 0)(= T||@ 1)(= T||@ 4)(= T||@ 5))(SETQ T#Q&(+ T#Q& 1))(IF(OR(= T||@ 2)(= T||@ 3)(= T||@ 6))(PROGN(SETQ TQl&(T1&j 70 T0l&))(IF(OR(= TQl& 1)(= TQl& 8)(= TQl& 40)(= TQl& 192)(= TQl& 72))(SETQ T#Q&(+ T#Q& 1))))))(IF(= T#Q& T$0)(PROGN(IF(ASSOC 10 T0l&)(SETQ T0l&(SUBST(CONS 10 T&Q&)(ASSOC 10 T0l&)T0l&)))(IF(ASSOC 42 T0l&)(SETQ T0l&(SUBST(CONS 42 T%%j)(ASSOC 42 T0l&)T0l&)))(T##j T0l& NIL)))(SETQ T#l&(ENTNEXT T#l&)T0l&(Tj&j T#l&)))(T##j T#|j NIL)(IF(NULL T|l&)(SETQ T|l&(SSADD)))(SSADD TQOj T|l&)))(IF(= T%1j"LWPOLYLINE")(PROGN(SETQ T#l& NIL T#Q& 0)(WHILE T#|j(SETQ T$l&(CAR T#|j))(IF(=(CAR T$l&)10)(PROGN(SETQ T#Q&(+ T#Q& 1))(IF(= T#Q& T$0)(SETQ T$l&(CONS 10 T&Q&)))))(IF(AND(= T#Q& T$0)(=(CAR T$l&)42))(SETQ T$l&(CONS 42 T%%j)))(SETQ T#l&(APPEND T#l&(LIST T$l&))T#|j(CDR T#|j)))(T##j T#l& NIL)(IF(NULL T|l&)(SETQ T|l&(SSADD)))(SSADD TQOj T|l&))))))))
(defun T?&&(TQOj T$0 T&Q& / T#|j T#l& T0l& Tj&& T$l& T%1j T@&& T|Q T#Q& T%%j TQ&& Tl&&)(IF(AND TQOj T&Q&)(PROGN(SETQ T#|j(Tj&j TQOj)T%1j(T$&j T#|j)T|Q(T1&j 210 T#|j))(IF(T%1 T|Q)(SETQ T&Q&(T$l T&Q&(TOQ T|Q))))(IF(T$Oj T%1j)(PROGN(IF(= T%1j"POLYLINE")(PROGN(SETQ T@&&(T%Oj(T1&j 70 T#|j)))(IF(OR(= T@&& 0)(= T@&& 4))(PROGN(ENTMAKE)(ENTMAKE(CDR T#|j))(SETQ T#l&(ENTNEXT TQOj)T0l&(Tj&j T#l&)T#Q& 0)(WHILE(TO&j T0l&"VERTEX")(SETQ T#Q&(+ T#Q& 1)Tj&&(CDR T0l&))(ENTMAKE Tj&&)(IF(= T#Q& T$0)(PROGN(SETQ Tj&&(CDR T0l&)Tj&&(SUBST(CONS 10 T&Q&)(ASSOC 10 Tj&&)Tj&&))(ENTMAKE Tj&&)))(SETQ T#l&(ENTNEXT T#l&)T0l&(Tj&j T#l&)))(ENTMAKE(CDR T0l&))(TO#j TQOj(ENTLAST))(ENTDEL TQOj)(SETQ TQOj(ENTLAST))(REDRAW TQOj)(IF(NULL T|l&)(SETQ T|l&(SSADD)))(SSADD TQOj T|l&)))))(IF(= T%1j"LWPOLYLINE")(PROGN(SETQ TQ&& 0.0 Tl&& 0.0 T%%j 0.0)(SETQ T#l& T#|j Tj&& NIL T#Q& 0)(WHILE T#l&(SETQ T$l&(CAR T#l&)Tj&&(APPEND Tj&&(LIST T$l&)))(IF(=(CAR T$l&)40)(SETQ TQ&&(CDR T$l&)))(IF(=(CAR T$l&)41)(SETQ Tl&&(CDR T$l&)))(IF(=(CAR T$l&)42)(PROGN(SETQ T#Q&(+ T#Q& 1))(IF(= T#Q& T$0)(SETQ Tj&&(APPEND Tj&&(LIST(CONS 10 T&Q&)))Tj&&(APPEND Tj&&(LIST(CONS(quote 40)TQ&&)))Tj&&(APPEND Tj&&(LIST(CONS(quote 41)Tl&&)))Tj&&(APPEND Tj&&(LIST(CONS(quote 42)T%%j)))))))(SETQ T#l&(CDR T#l&)))(SETQ T#Q&(T@&(T1&j 90 Tj&&)))(T##j Tj&&(LIST(LIST 90(+ T#Q& 1))))(IF(NULL T|l&)(SETQ T|l&(SSADD)))(SSADD TQOj T|l&)))))))TQOj)
(defun T&&&(T1&& / T#&& T0&& T$&& TO&& T%@& T|&& T%&& T?1& Tj1& T@1&)(SETQ Tj1& NIL)(IF T1&&(PROGN(SETQ T@1& T)(WHILE T@1&(SETQ T@1& NIL T#&&(LIST(CADR(CAR T1&&))(CADDR(CAR T1&&)))T%&&(LENGTH T1&&)T|&& 0 T?1& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T0&&(LIST(CADR(CAR T1&&))(CADDR(CAR T1&&)))TO&&(CADDDR(CAR T1&&))T%@&(CAR(CDDDDR(CAR T1&&))))(IF(< T|&& T%&&)(SETQ T$&&(LIST(CADR(CADR T1&&))(CADDR(CADR T1&&))))(SETQ T$&& T#&&))(IF(NOT(T#1 T0&& T$&&))(SETQ T?1&(+ T?1& 1)Tj1&(APPEND Tj1&(LIST(LIST T?1&(CAR T0&&)(CADR T0&&)TO&& T%@&)))T@1& T))(SETQ T1&&(CDR T1&&))))))Tj1&)
(defun TQ1&(T#|j / T1$ Tl1& T1Q& T%@& T|&& T%&&)(SETQ T1$ NIL)(IF(T$Oj(T$&j T#|j))(PROGN(IF(T1&j 210 T#|j)(SETQ T#|j(SUBST(CONS 210(LIST 0.0 0.0 1.0))(ASSOC 210 T#|j)T#|j)))(SETQ Tl1&(T0Q& T#|j)T%&&(LENGTH Tl1&)T|&& 0)(WHILE(AND(< T|&& T%&&)(NULL T1$))(SETQ T1Q&(NTH T|&& Tl1&)T%@&(CAR(CDDDDR T1Q&)))(IF(/= T%@& 0.0)(SETQ T1$ T))(SETQ T|&&(+ T|&& 1)))))T1$)
(defun T&1&(TQOj T11& / T#|j T#l& T0l& T$l& T%1j T#1&)(IF(AND TQOj(> T11& 0.0))(PROGN(SETQ T#|j(Tj&j TQOj)T%1j(T$&j T#|j))(IF(T$Oj T%1j)(PROGN(IF(= T%1j"POLYLINE")(PROGN(IF(<=(T%Oj(T1&j 70 T#|j))2)(PROGN(SETQ T#l&(ENTNEXT TQOj)T0l&(Tj&j T#l&))(WHILE(TO&j T0l&"VERTEX")(T##j T0l&(LIST(LIST 40(*(T1&j 40 T0l&)T11&))(LIST 41(*(T1&j 41 T0l&)T11&))))(SETQ T#l&(ENTNEXT T#l&)T0l&(Tj&j T#l&)))(T##j T#|j(LIST(LIST 40(*(T1&j 40 T#|j)T11&))(LIST 41(*(T1&j 41 T#|j)T11&))))))))(IF(= T%1j"LWPOLYLINE")(PROGN(SETQ TQOj T#|j T#l& NIL)(WHILE TQOj(SETQ T$l&(CAR TQOj)T#1&(CDR T$l&))(IF(=(CAR T$l&)43)(SETQ T$l&(CONS(quote 43)(* T11& T#1&))))(IF(=(CAR T$l&)40)(SETQ T$l&(CONS(quote 40)(* T11& T#1&))))(IF(=(CAR T$l&)41)(SETQ T$l&(CONS(quote 41)(* T11& T#1&))))(SETQ T#l&(APPEND T#l&(LIST T$l&))TQOj(CDR TQOj)))(T##j T#l& NIL))))))))
(defun T01&(T1&& TOQQ T$0j T0$Q T$1& TO1& Tl|j / T|1& T%&& T&Q& T%%j T%1&)(SETQ T|1& NIL)(IF(AND T1&& TOQQ T$0j T0$Q T$1&)(PROGN(SETQ T%&&(LENGTH T1&&)T%1& NIL T%1&(APPEND T%1&(LIST(CONS 0"LWPOLYLINE")))T%1&(APPEND T%1&(LIST(CONS 100"AcDbEntity")))T%1&(APPEND T%1&(LIST(CONS 8 TOQQ))))(IF(AND TO1&(/= TO1&""))(SETQ T%1&(APPEND T%1&(LIST(CONS 6 TO1&)))))(IF(AND(> T$0j 0)(< T$0j 256))(SETQ T%1&(APPEND T%1&(LIST(CONS(quote 62)T$0j)))))(SETQ T%1&(APPEND T%1&(LIST(CONS 100"AcDbPolyline")(CONS(quote 90)T%&&)(CONS(quote 70)T$1&)(CONS(quote 43)T0$Q)(CONS(quote 38)Tl|j))))(REPEAT T%&&(SETQ T&Q&(LIST(CADR(CAR T1&&))(CADDR(CAR T1&&)))T%%j(CAR(CDDDDR(CAR T1&&)))T%1&(APPEND T%1&(LIST(CONS 10 T&Q&)(CONS(quote 40)T0$Q)(CONS(quote 41)T0$Q)(CONS(quote 42)T%%j)))T1&&(CDR T1&&)))(ENTMAKE)(IF(ENTMAKE T%1&)(SETQ T|1&(ENTLAST)))))T|1&)
(defun T?#&(TQOj / T#|j T%1j T#l& T0l& T%%j T$l&)(IF TQOj(PROGN(IF(= T|lj 0)(command-s"._PEDIT"TQOj"_D""_X"))(IF(= T|lj 1)(PROGN(SETQ T#|j(Tj&j TQOj)T%1j(T$&j T#|j))(IF(T$Oj T%1j)(PROGN(IF(= T%1j"POLYLINE")(PROGN(IF(=(T%Oj(T1&j 70 T#|j))0)(PROGN(SETQ T#l&(ENTNEXT TQOj)T0l&(Tj&j T#l&))(WHILE(TO&j T0l&"VERTEX")(SETQ T%%j(T1&j 42 T0l&))(IF(/= T%%j 0.0)(T##j T0l&(LIST(LIST 42 0.0))))(SETQ T#l&(ENTNEXT T#l&)T0l&(Tj&j T#l&)))))))(IF(= T%1j"LWPOLYLINE")(PROGN(SETQ TQOj T#|j T#l& NIL)(WHILE TQOj(SETQ T$l&(CAR TQOj))(IF(=(CAR T$l&)42)(PROGN(SETQ T%%j(CDR T$l&))(IF(/= T%%j 0.0)(SETQ T$l&(CONS(quote 42)0.0)))))(SETQ T#l&(APPEND T#l&(LIST T$l&))TQOj(CDR TQOj)))(T##j T#l& NIL))))))))))
(defun Tj#&(T1&& T&|l / T&#@ T@#& TQ#& T#&& T0&& T$&& T@?@ Tl#& T%&& T|&& T&#& T%@& Tl%j T&%j T0%j T1#& T??@ T||j)(SETQ T||j NIL)(IF(AND T1&&(>(LENGTH T1&&)0))(PROGN(SETQ T&#@ NIL TQ#&(CAR T1&&)T#&&(LIST(CADR TQ#&)(CADDR TQ#&))T%&&(LENGTH T1&&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)TQ#&(NTH(- T|&& 1)T1&&)T0&&(LIST(CADR TQ#&)(CADDR TQ#&))T%@&(CAR(CDDDDR TQ#&)))(IF(< T|&& T%&&)(SETQ TQ#&(NTH T|&& T1&&)T$&&(LIST(CADR TQ#&)(CADDR TQ#&)))(SETQ T$&& T#&&))(SETQ T&#@(APPEND T&#@(LIST T0&&)))(IF(/= T%@& 0.0)(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j)T1#&(T0 T??@ 1E-3)T&#&(Tl(ABS(/ T0%j T1#&))))(IF(> T&#& 0)(SETQ T1#&(/ T0%j T&#&)))(WHILE(> T&#& 0)(SETQ T&#&(- T&#& 1)Tl%j(+ Tl%j T1#&)Tl#&(POLAR T@?@ Tl%j T??@)T&#@(APPEND T&#@(LIST Tl#&))))(SETQ T&#@(APPEND T&#@(LIST T$&&))))))))(SETQ T||j(T0%l T&#@ T&|l))))T||j)
(defun T##&(T@?& TQ?& Tl1& / T%Q T0#& T$#& T1Q& TO#& T|#& T%#& T&|l T@Q TQQ T$%l T%&& T#Q& T?0& Tj0& T$?& TO?& T@0& TQ0& Tl0& T&0& T$j& Tj$)(SETQ T%Q NIL T0#& NIL T$#& NIL)(IF(AND T@?& TQ?& Tl1&)(PROGN(SETQ T&0& T TO#&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T#Q& 0 T?0& 0)(REPEAT T%&&(SETQ T#Q&(+ T#Q& 1)T1Q&(NTH(- T#Q& 1)Tl1&)T|#&(LIST(CADR T1Q&)(CADDR T1Q&))T%#& NIL)(IF(< T#Q& T%&&)(SETQ T1Q&(NTH T#Q& Tl1&)T%#&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T%#& TO#&)))(IF(AND T%#&(>(DISTANCE T|#& T%#&)0.0))(PROGN(SETQ T$j& NIL)(IF(AND(T0|l T@?& T|#& TQ?& 1E-10)(T0|l T@?& T%#& TQ?& 1E-10))(SETQ T0#&(APPEND T0#&(LIST(CONS T?0& T|#&)))T?0&(+ T?0& 1)T0#&(APPEND T0#&(LIST(CONS T?0& T%#&)))T?0&(+ T?0& 1)T$j& T))(IF(= T$j& NIL)(PROGN(SETQ T&|l(INTERS T@?& TQ?& T|#& T%#& T))(IF T&|l(SETQ T0#&(APPEND T0#&(LIST(CONS T?0& T&|l)))T?0&(+ T?0& 1))))))))(IF T0#&(PROGN(SETQ Tj0&(LENGTH T0#&))(IF(> Tj0& 1)(PROGN(SETQ Tj$ T)(WHILE Tj$(SETQ Tj$ NIL T?0& -1)(REPEAT(- Tj0& 1)(SETQ T?0&(+ T?0& 1)T@Q(CDR(NTH T?0& T0#&))TQQ(CDR(NTH(+ T?0& 1)T0#&))T$?&(DISTANCE T@?& T@Q)TO?&(DISTANCE T@?& TQQ))(IF(> T$?& TO?&)(SETQ T0#&(SUBST(CONS T?0& TQQ)(ASSOC T?0& T0#&)T0#&)T0#&(SUBST(CONS(+ T?0& 1)T@Q)(ASSOC(+ T?0& 1)T0#&)T0#&)Tj$ T))))(SETQ T@Q(CDR(NTH 0 T0#&))T$#&(APPEND T$#&(LIST T@Q))T?0& 0)(REPEAT(- Tj0& 1)(SETQ T?0&(+ T?0& 1)TQQ(CDR(NTH T?0& T0#&)))(IF(NULL(T#1 T@Q TQQ))(SETQ T$#&(APPEND T$#&(LIST TQQ))T@Q TQQ)))(SETQ Tj0&(LENGTH T$#&))(IF(> Tj0& 1)(PROGN(IF(NULL(TOl Tj0&))(PROGN(SETQ Tj$ T)(WHILE Tj$(SETQ Tj$ NIL Tj0&(LENGTH T$#&))(IF(> Tj0& 2)(PROGN(SETQ T@0& -1 TQ0& 0 Tl0& 1)(WHILE(AND(< Tl0&(- Tj0& 1))(NULL Tj$))(SETQ T@0&(+ T@0& 1)TQ0&(+ TQ0& 1)Tl0&(+ Tl0& 1)T@Q(NTH T@0& T$#&)TQQ(NTH TQ0& T$#&)T$%l(NTH Tl0& T$#&))(IF(AND(Tj#& Tl1&(T&& T@Q TQQ))(Tj#& Tl1&(T&& TQQ T$%l)))(PROGN(SETQ T0#& T$#& T$#& NIL T?0& -1)(REPEAT Tj0&(SETQ T?0&(+ T?0& 1))(IF(/= T?0& TQ0&)(SETQ T$#&(APPEND T$#&(LIST(NTH T?0& T0#&))))))(SETQ Tj$ T)))))))))(SETQ Tj0&(LENGTH T$#&))(IF(> Tj0& 1)(IF(TOl Tj0&)(PROGN(SETQ Tj0&(/ Tj0& 2)T?0& 0)(REPEAT Tj0&(SETQ T@Q(NTH T?0& T$#&)TQQ(NTH(+ T?0& 1)T$#&)T%Q(APPEND T%Q(LIST(LIST T@Q TQQ)))T?0&(+ T?0& 2))))))))))))))T%Q)
(defun TOl&(T10& / T#0& TOQ& T|Q& T||@ TQl&)(SETQ T#0& 0)(IF T10&(PROGN(IF(TO&j T10&"LWPOLYLINE")(SETQ T#0&(T@&(T1&j 90 T10&))))(IF(TO&j T10&"POLYLINE")(PROGN(SETQ T||@(T%Oj(T1&j 70 T10&)))(IF(OR(= T||@ 0)(= T||@ 1)(= T||@ 4))(PROGN(SETQ TOQ&(ENTNEXT(CDR(CAR T10&))))(WHILE(TO&j(Tj&j TOQ&)"VERTEX")(SETQ T#0&(+ T#0& 1)TOQ&(ENTNEXT TOQ&)))))(IF(= T||@ 5)(SETQ T#0&(*(T@&(T1&j 71 T10&))(T@&(T1&j 72 T10&)))))(IF(= T||@ 7)(SETQ T#0&(*(T@&(T1&j 73 T10&))(T@&(T1&j 74 T10&)))))(IF(= T||@ 6)(SETQ T#0&(T@&(T1&j 71 T10&))))(IF(OR(= T||@ 2)(= T||@ 3))(PROGN(SETQ TOQ&(ENTNEXT(CDR(CAR T10&)))T|Q&(Tj&j TOQ&))(WHILE(TO&j T|Q&"VERTEX")(SETQ TQl&(T1&j 70 T|Q&))(IF(OR(= TQl& 1)(= TQl& 8)(= TQl& 40))(SETQ T#0&(+ T#0& 1)))(SETQ TOQ&(ENTNEXT TOQ&)T|Q&(Tj&j TOQ&)))))))))T#0&)
(defun T00&(T1&& T$0& TO0& / T|0& TQ#& T&Q& T%&& T|&&)(IF(AND T1&&(>(LENGTH T1&&)0)(/= T$0& TO0&))(PROGN(SETQ T|0& NIL T%&&(LENGTH T1&&)T|&& -1)(REPEAT T%&&(SETQ TQ#&(NTH(SETQ T|&&(+ T|&& 1))T1&&)T&Q&(LIST(CADR TQ#&)(CADDR TQ#&)(CADDDR TQ#&))T&Q&(TRANS T&Q& T$0& TO0&)T|0&(APPEND T|0&(LIST(LIST(CAR TQ#&)(CAR T&Q&)(CADR T&Q&)(CADDR T&Q&)(CAR(CDDDDR TQ#&)))))))(SETQ T1&& T|0&)))T1&&)
(defun T%0&(T&#@ T$0& TO0& / T?$& T0@ T%&& T|&&)(IF(AND T&#@(>(LENGTH T&#@)0)(/= T$0& TO0&))(PROGN(SETQ T?$& NIL T%&&(LENGTH T&#@)T|&& -1)(REPEAT T%&&(SETQ T0@(TRANS(NTH(SETQ T|&&(+ T|&& 1))T&#@)T$0& TO0&)T?$&(APPEND T?$&(LIST T0@))))(SETQ T&#@ T?$&)))T&#@)
(defun Tj$&(T&#@ / T1$ T@$& T%@ T%&& T|&&)(SETQ T1$ NIL)(IF(AND T&#@(>(LENGTH T&#@)0))(PROGN(SETQ T@$&(CADDR(NTH 0 T&#@))T%&&(LENGTH T&#@)T|&& 0)(WHILE(AND(< T|&& T%&&)(NULL T1$))(SETQ T%@(CADDR(NTH T|&& T&#@)))(IF(NOT(EQUAL T@$& T%@ 1E-8))(SETQ T1$ T))(SETQ T|&&(+ T|&& 1)))))T1$)
(defun TQ$&(T&#@ Tl$& / T1$ T@Q TQQ T%&& T|&&)(SETQ T1$ 0.0)(IF(AND T&#@(>(LENGTH T&#@)1))(PROGN(IF Tl$&(SETQ T@Q(T?1(LAST T&#@)))(SETQ T@Q(T?1(NTH 0 T&#@))))(SETQ T%&&(LENGTH T&#@)T|&& 0)(WHILE(< T|&& T%&&)(SETQ TQQ(T?1(NTH T|&& T&#@))T1$(+ T1$(DISTANCE T@Q TQQ))T@Q TQQ T|&&(+ T|&& 1)))))T1$)
(defun T&$&(T1&& / T&#@ T1Q& T&Q& T|&&)(SETQ T&#@ NIL T|&& 0)(IF T1&&(PROGN(REPEAT(LENGTH T1&&)(SETQ T1Q&(NTH T|&& T1&&)T&Q&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))T|&&(+ T|&& 1)T&#@(APPEND T&#@(LIST T&Q&))))))T&#@)
(defun T1$&(T1&& T&0& / T&#@ T@#& T1Q& T#&& T0&& T$&& T@Q TQQ T$%l T@?@ Tl#& T%&& T|&& T&#& T%@& Tl%j T&%j T0%j T1#& T??@)(SETQ T1Q&(NTH 0 T1&&)T#&&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))T%&&(LENGTH T1&&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)T1&&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T@Q(T#$& T0&& NIL)T&#@(APPEND T&#@(LIST T@Q)))(IF(/= T%@& 0.0)(PROGN(SETQ T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& T1&&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&)TQQ(T0$&(T$%j T0&& T$&& T%@&)))(IF(AND T@#& TQQ)(PROGN(SETQ T$%l(T#$& T$&& NIL))(IF(T$$& TQQ T)(SETQ TQQ(T#$& TQQ NIL))(SETQ TQQ(LIST(CAR TQQ)(CADR TQQ)(/(+(CADDR T@Q)(CADDR T$%l))2.0))))(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j)T1#&(T0 T??@ 1E-3)T&#&(Tl(ABS(/ T0%j T1#&))))(IF(> T&#& 0)(SETQ T1#&(/ T0%j T&#&)))(WHILE(> T&#& 1)(SETQ T&#&(- T&#& 1)Tl%j(+ Tl%j T1#&)Tl#&(POLAR T@?@ Tl%j T??@)Tl#&(T#@& T@Q TQQ T$%l Tl#&)T&#@(APPEND T&#@(LIST Tl#&)))))))))))T&#@)
(defun T&l&(Tl1& T&0& Tll& / TO$& T@#& T1Q& T#&& T0&& T$&& T@?@ Tl#& T%&& T|&& T&#& T%@& Tl%j T&%j T0%j T??@ T1#&)(SETQ TO$& NIL)(IF Tl1&(PROGN(SETQ T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))TO$&(APPEND TO$&(LIST(LIST 0(CAR T0&&)(CADR T0&&)0.0 0.0))))(IF(/= T%@& 0.0)(PROGN(SETQ T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j)T1#&(T0 T??@ Tll&)T&#&(Tl(ABS(/ T0%j T1#&))))(IF(> T&#& 0)(SETQ T1#&(/ T0%j T&#&)))(WHILE(> T&#& 1)(SETQ T&#&(- T&#& 1)Tl%j(+ Tl%j T1#&)Tl#&(POLAR T@?@ Tl%j T??@)TO$&(APPEND TO$&(LIST(LIST 0(CAR Tl#&)(CADR Tl#&)0.0 0.0))))))))))))))TO$&)
(defun T|$&(T%$& Tll& T?O& TjO& / TO$& T&l T@O& T@?@ Tl#& T|Q T??@ Tl%j T1#& T&#&)(SETQ TO$& NIL)(IF T%$&(PROGN(SETQ T@O&(Tj&j T%$&))(IF(AND T@O&(=(T$&j T@O&)"CIRCLE"))(PROGN(SETQ T@?@(T%&j 10 T@O& NIL)T??@(T1&j 40 T@O&)T|Q(T1&j 210 T@O&))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(IF(> T??@ 0.0)(PROGN(SETQ T1#&(T0 T??@ Tll&)T&#&(* 2(Tl(ABS(/ PI T1#&)))))(IF(AND(> TjO& 0)(> T&#& TjO&))(SETQ T&#& TjO&))(IF(> T&#& 0)(SETQ T1#&(/ Tj%j T&#&)))(IF(NOT T?O&)(SETQ T&#&(- T&#& 1)))(SETQ Tl%j 0.0)(WHILE(>= T&#& 0)(SETQ T&#&(- T&#& 1)Tl#&(Tll(POLAR T@?@ Tl%j T??@)T&l)TO$&(APPEND TO$&(LIST(LIST 0(CAR Tl#&)(CADR Tl#&)0.0 0.0)))Tl%j(+ Tl%j T1#&)))))))))TO$&)
(defun TQO&(TlO& Tll& T&O& / TO$& T&l T1O& T@?@ TO%j T|%j T#O& T|Q T??@ Tl%j T&%j T0%j T%%j)(SETQ TO$& NIL)(IF TlO&(PROGN(SETQ T1O&(Tj&j TlO&))(IF(AND T1O&(=(T$&j T1O&)"ARC"))(PROGN(SETQ T@?@(T%&j 10 T1O& NIL)T??@(T1&j 40 T1O&)Tl%j(T1&j 50 T1O&)T&%j(T1&j 51 T1O&)TO%j(POLAR T@?@ Tl%j T??@)T|%j(POLAR T@?@ T&%j T??@)T0%j(T1%j Tl%j T&%j 1.0)T#O&(POLAR T@?@(T%|j(+ Tl%j(/ T0%j 2)))T??@)T|Q(T1&j 210 T1O&))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(SETQ T%%j(T0O& TO%j T|%j T#O&))(IF T%%j(PROGN(SETQ TO$&(APPEND TO$&(LIST(LIST 1(CAR TO%j)(CADR TO%j)(CADDR TO%j)T%%j)))TO$&(APPEND TO$&(LIST(LIST 2(CAR T|%j)(CADR T|%j)(CADDR T|%j)0.0))))(IF(OR T&O& T&l)(SETQ TO$&(T&l& TO$& NIL Tll&)TO$&(T@Q& TO$& T&l)))))))))TO$&)
(defun T$O&(TOO& Tll& TjO& / TO$& T&l T|O& T@?@ T%O& T?|& Tl#& T|Q Tj|& Tl%j T&%j T@|& TQ|& Tl|& TO@ T|@ T1#& T|?& T&|& T1|& T#|& T0|& T$|& TO|& T||& T??@ T&#&)(SETQ TO$& NIL)(IF TOO&(PROGN(SETQ T|O&(Tj&j TOO&))(IF(AND T|O&(=(T$&j T|O&)"ELLIPSE"))(PROGN(SETQ T@?@(T%&j 10 T|O& NIL)T%O&(T%&j 11 T|O& NIL)Tj|&(T1&j 40 T|O&)Tl%j(T1&j 41 T|O&)T&%j(T1&j 42 T|O&)T?|&(LIST 0.0 0.0 0.0)T@|&(DISTANCE T?|& T%O&)TQ|&(* T@|& Tj|&)Tl|&(ANGLE T?|& T%O&)T|Q(T1&j 210 T|O&))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(IF(AND(> T@|& 0.0)(> TQ|& 0.0))(PROGN(IF(AND T&l T%|&)(SETQ T%O&(LIST(+(CAR T@?@)(CAR T%O&))(+(CADR T@?@)(CADR T%O&))(+(CADDR T@?@)(CADDR T%O&)))T@?@(T$l T@?@ T&l)T%O&(T$l T%O& T&l)Tl|&(ANGLE T@?@ T%O&)))(IF(NOT(EQUAL(- T&%j Tl%j)Tj%j 1E-10))(SETQ TO@(+(CAR T@?@)(* T@|&(COS Tl%j)))T|@(+(CADR T@?@)(* TQ|&(SIN Tl%j)))Tl%j(ANGLE T@?@(LIST TO@ T|@))TO@(+(CAR T@?@)(* T@|&(COS T&%j)))T|@(+(CADR T@?@)(* TQ|&(SIN T&%j)))T&%j(ANGLE T@?@(LIST TO@ T|@))))(SETQ T1#&(T0(MAX T@|& TQ|&)Tll&)T|?&(T%|j(- T&%j 1E-9 Tl%j))T&#&(Tl(ABS(/ T|?& T1#&))))(IF(AND(> TjO& 0)(> T&#& TjO&))(SETQ T&#& TjO&))(IF(> T&#& 0)(SETQ T1#&(/ T|?& T&#&)))(WHILE(>= T&#& 0)(SETQ T&#&(- T&#& 1)T&|&(EXPT(SIN Tl%j)2)T1|&(EXPT(COS Tl%j)2)T#|&(EXPT T@|& 2)T0|&(EXPT TQ|& 2)T$|&(* T#|& T0|& T1|&)TO|&(* T#|& T0|& T&|&)T||&(+(* T0|& T1|&)(* T#|& T&|&))T??@(SQRT(+(/ T$|& T||&)(/ TO|& T||&)))Tl#&(Tll(POLAR T@?@(+ Tl|& Tl%j)T??@)T&l)TO$&(APPEND TO$&(LIST(LIST 0(CAR Tl#&)(CADR Tl#&)0.0 0.0)))Tl%j(+ Tl%j T1#&)))))))))TO$&)
(defun T?%&(TQOj Tj%& / T#|j T%$& T@%& T0j& Tl1& T1Q& T@#& TQ%& T@?@ T#&& T0&& T$&& Tl%& T&%& T1%& T#%& T0%& T@Q TQQ T$%l T%@& T$%& T??@ Tl%j T&%j T|?& TO%& T|%& T%%& T??1 Tj?1 Tll& T@?1 T%&& T|&& Tj0 T1| TQ?1 Tl?1 T&?1 T&0& T1?1)(SETQ T@?1 0 T|l& NIL T#|j(Tj&j TQOj))(IF T#|j(IF(T$Oj(T$&j T#|j))(SETQ T@?1 1)(IF(=(T$&j T#|j)"CIRCLE")(SETQ T@?1 2))))(IF(AND(NOT Tj%&)(OR(= T@?1 2)(AND(= T@?1 1)(TQ1& T#|j))))(PROGN(SETQ TO%&(T1$j T#|j)T|%&(T%$j T#|j 256 NIL)T??1(T?Oj T#|j)Tll&(EXPT 10(* -1.0 Tj0l)))(IF(= T@?1 2)(SETQ T&0& T T&?1 1 T%%& 0.0 Tj?1(CADDR(T%&j 10 T#|j T))Tl1&(T|$& TQOj Tll& NIL 0))(SETQ T&0&(TOOj T#|j)T&?1(T1&j 70 T#|j)T%%&(T1|j T#|j)Tj?1(T@|j TQOj)Tl1&(T&l&(T0Q& T#|j)T&0& Tll&)))(SETQ T@%& TQOj TQOj(T01& Tl1& TO%& T|%& T%%& T&?1 T??1 Tj?1))(IF TQOj(PROGN(TO#j T@%& TQOj)(ENTDEL T@%&)(REDRAW TQOj)(SETQ T#|j(Tj&j TQOj)T@?1 1))(SETQ T@?1 0))))(IF(> T@?1 0)(PROGN(T#?1(T0?1 TQOj)1.0)(TOOl)(T@@l T)(Tj0j(T&Ol 5))))(IF(= T@?1 1)(PROGN(SETQ T1?1 NIL T&0&(TOOj T#|j)Tl1&(T0Q& T#|j)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(SETQ T0j&(T$$& T0&& T))(IF T0j&(PROGN(IF T1#l(SETQ Tl%&(Tl& T0&& TO@Q))(SETQ Tl%& T0&&))(IF(OR(NOT(T#1 T0&& Tl%&))(NOT(T#1 T0&&(LIST(CAR T0j&)(CADR T0j&)))))(SETQ Tl%&(T$?1(LIST(CAR T0j&)(CADR T0j&))T0OQ NIL))))(SETQ T0j&(TO?1(LIST(CAR T0&&)(CADR T0&&)"""0.000"Tj#l))Tl%&(LIST(CAR T0j&)(CADR T0j&))))(IF(NOT(T#1 T0&& Tl%&))(SETQ T1?1 T Tl1&(SUBST(LIST T|&&(CAR Tl%&)(CADR Tl%&)0.0 T%@&)(ASSOC T|&& Tl1&)Tl1&)))(IF T$&&(PROGN(IF T1#l(SETQ T&%&(Tl& T$&& TO@Q))(SETQ T&%& T$&&))(SETQ T0j&(T$$& T$&& T))(IF T0j&(PROGN(SETQ T&%&(LIST(CAR T0j&)(CADR T0j&)))(IF T1#l(SETQ T&%&(Tl& T&%& TO@Q)))))(IF(/= T%@& 0.0)(PROGN(SETQ T1%&(T0$&(T$%j T0&& T$&& T%@&)))(IF T1%&(PROGN(SETQ T0j&(T$$& T1%& T))(IF T0j&(SETQ T1%&(T$?1(LIST(CAR T0j&)(CADR T0j&))T0OQ NIL))(SETQ T0j&(TO?1(LIST(CAR T1%&)(CADR T1%&)"""0.000"Tj#l))T1%&(LIST(CAR T0j&)(CADR T0j&))))(SETQ T$%&(T0O& Tl%& T&%& T1%&))(IF(= T$%& NIL)(SETQ T$%& 0.0))(IF(NOT(EQUAL T%@& T$%& 1E-10))(SETQ T1?1 T Tl1&(SUBST(LIST T|&&(CAR Tl%&)(CADR Tl%&)0.0 T$%&)(ASSOC T|&& Tl1&)Tl1&))))))))))(IF T1?1(T1l& TQOj Tl1&))))(IF(= T@?1 2)(PROGN(SETQ T@?@(T%&j 10 T#|j T)T??@(T1&j 40 T#|j)Tj0 0 TQ%&(T|?1 T@?@ T??@))(IF(NULL(T01@ TQ%&))(PROGN(SETQ T0j&(T$$& T@?@ T))(IF T0j&(SETQ Tj0 0)(SETQ Tl%j T%& Tj0 3)))(PROGN(SETQ TQ?1(SSLENGTH TQ%&))(COND((= TQ?1 1)(SETQ T@Q(T%&j 10(Tj&j(SSNAME TQ%& 0))T)Tl%j(+(ANGLE T@?@ T@Q)(/ Tj%j 3.0))Tj0 2))((= TQ?1 2)(SETQ T@Q(T%&j 10(Tj&j(SSNAME TQ%& 1))T)TQQ(T%&j 10(Tj&j(SSNAME TQ%& 0))T)Tl%j(MAX(ANGLE T@?@ T@Q)(ANGLE T@?@ TQQ))T&%j(MIN(ANGLE T@?@ T@Q)(ANGLE T@?@ TQQ))T|?&(- Tl%j T&%j))(IF(>= T|?& PI)(SETQ Tl%j(- Tl%j(/ T|?& 2)))(SETQ Tl%j(+ Tl%j(/(- Tj%j T|?&)2))))(IF(EQUAL T|?& PI 1E-10)(SETQ Tj0 0)(SETQ Tj0 1)))((> TQ?1 2)(SETQ Tj0 0)))))(IF(/= Tj0 0)(REPEAT Tj0(SETQ T0%&(POLAR T@?@ Tl%j T??@)Tl?1 TO@Q TO@Q 8 T0j&(TO?1(LIST(CAR T0%&)(CADR T0%&)"""0.000"Tj#l))TO@Q Tl?1 Tl%j(+ Tl%j(/ Tj%j 3.0)))))(SETQ T%$& T#|j TQ%&(T|?1 T@?@ T??@))(IF(NULL(T01@ TQ%&))(PROGN(SETQ T0j&(T$$& T@?@ T))(IF T0j&(PROGN(SETQ T@?@(T$?1(LIST(CAR T0j&)(CADR T0j&))T0OQ NIL))(T##j T%$&(LIST(LIST 10(T@1 T@?@ 0.0)))))))(PROGN(SETQ TQ?1(SSLENGTH TQ%&))(IF(> TQ?1 0)(PROGN(SETQ T1| -1)(REPEAT TQ?1(SETQ T#%&(T%&j 10(Tj&j(SSNAME TQ%&(SETQ T1|(+ T1| 1))))T))(T$?1 T#%& T0OQ NIL))))(COND((= TQ?1 2)(PROGN(SETQ T@Q(T%&j 10(Tj&j(SSNAME TQ%& 1))T)TQQ(T%&j 10(Tj&j(SSNAME TQ%& 0))T))(T##j T%$&(LIST(LIST 10(T@1(T&& T@Q TQQ)Tj?1))(LIST 40(/(DISTANCE T@Q TQQ)2.0))(LIST 210(LIST 0.0 0.0 1.0))))))((> TQ?1 2)(PROGN(SETQ T@Q(T%&j 10(Tj&j(SSNAME TQ%& 2))T)TQQ(T%&j 10(Tj&j(SSNAME TQ%& 1))T)T$%l(T%&j 10(Tj&j(SSNAME TQ%& 0))T)T@#&(T$%j T@Q TQQ(T0O& T@Q TQQ T$%l)))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&)0.0)T??@(CAR(CDDDDR T@#&)))(T##j T%$&(LIST(LIST 10 T@?@)(LIST 40 T??@)(LIST 210(LIST 0.0 0.0 1.0)))))))))))))(IF(> T@?1 0)(PROGN(T#?1(T0?1 TQOj)1.0)(T%Ol)(Tj0j(T&Ol 5))))(T%?1 T|l&)(SETQ T|l& NIL)TQOj)
(defun T?j1(TQOj Tjj1 / T#|j Tl1& T%&& T|&& T1Q& T&Q& T0j& T1@j)(SETQ T#|j(Tj&j TQOj))(IF(AND T#|j(T$Oj(T$&j T#|j)))(PROGN(SETQ Tl1&(T0Q& T#|j)Tl1&(T&&& Tl1&)T%&&(LENGTH Tl1&))(IF(> T%&& 0)(PROGN(T@lj T%jQ Tjj1)(SETQ T|&& 0)(WHILE(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T&Q&(LIST(CADR T1Q&)(CADDR T1Q&))T0j&(T$$& T&Q& T))(IF T0j&(SETQ T&Q&(LIST(CAR T0j&)(CADR T0j&)))(SETQ T0j&(TO?1(LIST(CAR T&Q&)(CADR T&Q&)"""0.000"Tj#l))T&Q&(LIST(CAR T0j&)(CADR T0j&))))(SETQ T1@j(CADDR T0j&))(Tllj(LIST(T0?j T1@j T&Q& 10)))(SETQ T|&&(+ T|&& 1)))(Tllj(LIST"END"))(T%Qj))))))
(defun T@j1(/ TQj1 Tlj1 T&j1 T1j1)(SETQ TQj1(GETVAR"VIEWSIZE")Tlj1(CADR(GETVAR"SCREENSIZE"))T&j1(/ TQj1 Tlj1)T1j1(GETVAR"PICKBOX"))(IF(= T1j1 0)(SETQ T1j1 1))(SETQ T1j1(FLOAT T1j1))(*(+ T1j1 0.5)T&j1))
(defun T#j1(T0j1 T?Q / T$j1 T@Q TQQ)(SETQ T$j1(- Tj%j(GETVAR"VIEWTWIST"))T$j1(T%|j T$j1)T@Q(POLAR T0j1(+ T$j1 Tj#@)(* T?Q 1.5))TQQ(POLAR T0j1(+ T$j1 T@#@)(* T?Q 1.5)))(LIST T@Q TQQ))
(defun T0O&(TO%j T|%j T#O& / T@?@ TOj& T|j& T1& T#& T%%j Tl%j T&%j TOj1 T|j1 T0%j T??@ Tj?@ T%%l)(SETQ T%%j NIL)(IF(AND TO%j T|%j T#O&)(PROGN(SETQ T%%l NIL)(IF(=(DISTANCE TO%j T|%j)0)(SETQ T%%l T))(IF(=(DISTANCE TO%j T#O&)0)(SETQ T%%l T))(IF(=(DISTANCE T|%j T#O&)0)(SETQ T%%l T))(IF(NULL T%%l)(PROGN(SETQ TOj&(T&& TO%j T#O&)T|j&(T&& T|%j T#O&)T1&(POLAR TOj&(+(ANGLE TO%j T#O&)T%&)100.0)T#&(POLAR T|j&(+(ANGLE T|%j T#O&)T%&)100.0)T@?@(INTERS TOj& T1& T|j& T#& NIL))(IF T@?@(PROGN(SETQ Tl%j(ANGLE T@?@ TO%j)T&%j(ANGLE T@?@ T|%j)TOj1(T%|j(- T&%j Tl%j))T|j1(ANGLE T@?@ T#O&)T|j1(T%|j(- T|j1 Tl%j)))(IF(> TOj1 T|j1)(SETQ T%%j 1.0))(IF(= TOj1 T|j1)(PROGN(TlO@ 135"")(T0Q@"")))(IF(< TOj1 T|j1)(SETQ T%%j -1.0))(SETQ T0%j(T1%j Tl%j T&%j T%%j))(IF(= T0%j 0.0)(PROGN(TlO@ 136"")(T0Q@"")))(SETQ T??@(DISTANCE T@?@ TO%j)Tj?@(DISTANCE T@?@(T&& TO%j T|%j)))(IF(>(ABS T0%j)PI)(SETQ Tj?@(+ T??@ Tj?@))(SETQ Tj?@(- T??@ Tj?@)))(SETQ T%%j(*(/(* 2 Tj?@)(DISTANCE TO%j T|%j))T%%j))))))))T%%j)
(defun T%j1(TO%j T|%j T#O& / T@#& T@?@ Tl%j T0%j T??@ T?@1 Tj@1 T@@1 TQ@1)(SETQ TQ@1 NIL)(IF(AND TO%j T|%j T#O&)(PROGN(SETQ T@#&(T$%j TO%j T|%j(T0O& TO%j T|%j T#O&)))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T?@1(-(ANGLE T@?@ T#O&)Tl%j))(IF(> T0%j 0)(IF(< T?@1 0)(SETQ T?@1(+ T?@1 Tj%j)))(IF(> T?@1 0)(SETQ T?@1(- T?@1 Tj%j))))(SETQ Tj@1(*(ABS T?@1)T??@)T@@1(*(ABS(- T0%j T?@1))T??@)TQ@1(LIST Tj@1 T@@1))))))TQ@1)
(defun Tl@1(T@#& T0@ T&@1 / T@?@ T??@ Tl%j T&%j T0%j T1@1 T#@1 T0@1 TO%j T|%j T$@1)(SETQ T$@1 NIL)(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j)TO%j(POLAR T@?@ Tl%j T??@)T|%j(POLAR T@?@ T&%j T??@))(IF(>(DISTANCE TO%j T0@)T&@1)(IF(>(DISTANCE T|%j T0@)T&@1)(IF(EQUAL(DISTANCE T@?@ T0@)T??@ T&@1)(PROGN(SETQ T1@1 Tl%j T#@1 T&%j)(IF(< T0%j 0.0)(SETQ T0@1 T1@1 T1@1 T#@1 T#@1 T0@1))(IF(T@%j(ANGLE T@?@ T0@)T1@1 T#@1)(SETQ T$@1 T))))))))T$@1)
(defun T|?1(T@?@ T??@ / Tjj@ TO@1 TQ?1 T|@1 T%@1 T?Q1 T?Q T$j1 TjQ1)(IF(AND T@?@(> T??@ 0))(PROGN(SETQ Tjj@(SSADD)TjQ1(T#j1 T@?@ T??@)TO@1(SSGET"C"(CAR TjQ1)(CADR TjQ1)))(IF(T01@ TO@1)(PROGN(SETQ TQ?1(SSLENGTH TO@1))(WHILE(> TQ?1 0)(SETQ T|@1(SSNAME TO@1(SETQ TQ?1(1- TQ?1)))T%@1(Tj&j T|@1))(IF(T#?@ T%@1)(PROGN(SETQ T?Q1(T%&j 10 T%@1 T)T?Q(DISTANCE T?Q1 T@?@))(IF(> T?Q(- T??@ T0OQ))(IF(< T?Q(+ T??@ T0OQ))(SSADD T|@1 Tjj@))))))))))(IF(=(SSLENGTH Tjj@)0)(SETQ Tjj@ NIL))Tjj@)
(defun T0$&(T@#& / TQ%& T&#@ T@?@ Tl%j T0%j T??@ T?Q TO%j T|%j T#O& T?Q1 T@Q1 T1@1 T#@1 T1|)(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))TO%j(POLAR T@?@ Tl%j T??@)T|%j(POLAR T@?@(+ Tl%j T0%j)T??@)T#O&(POLAR T@?@(T%|j(+ Tl%j(/ T0%j 2)))T??@))(IF(> T0%j 0)(SETQ T1@1 Tl%j T#@1(+ Tl%j T0%j))(SETQ T1@1(+ Tl%j T0%j)T#@1 Tl%j))(SETQ T@Q1 T#O& TQ%&(T|?1 T@?@ T??@))(IF(T01@ TQ%&)(PROGN(SETQ T&#@ NIL T1| -1)(REPEAT(SSLENGTH TQ%&)(SETQ T1|(+ T1| 1)T?Q1(T%&j 10(Tj&j(SSNAME TQ%& T1|))T))(IF(>(DISTANCE T?Q1 TO%j)T0OQ)(IF(>(DISTANCE T?Q1 T|%j)T0OQ)(IF(/=(T@%j(ANGLE T@?@ T?Q1)T1@1 T#@1)NIL)(SETQ T&#@(APPEND T&#@(LIST T?Q1)))))))(IF T&#@(PROGN(SETQ T?Q(DISTANCE T#O& TO%j))(REPEAT(LENGTH T&#@)(SETQ T?Q1(CAR T&#@))(IF(<(DISTANCE T?Q1 T#O&)T?Q)(SETQ T@Q1 T?Q1 T?Q(DISTANCE T?Q1 T#O&)))(SETQ T&#@(CDR T&#@))))))))(SETQ T@Q1 NIL))T@Q1)
(defun TQQ1(TlQ1 / TO@ T|@ T&Q1 T1Q1 T#Q1 T0Q1)(SETQ TO@(CAR(CAR TlQ1))T|@(CADR(CAR TlQ1))T&Q1 TO@ T#Q1 T|@ T1Q1 TO@ T0Q1 T|@)(REPEAT(LENGTH TlQ1)(SETQ TO@(CAR(CAR TlQ1))T|@(CADR(CAR TlQ1)))(IF(< TO@ T&Q1)(SETQ T&Q1 TO@))(IF(< T|@ T#Q1)(SETQ T#Q1 T|@))(IF(> TO@ T1Q1)(SETQ T1Q1 TO@))(IF(> T|@ T0Q1)(SETQ T0Q1 T|@))(SETQ TlQ1(CDR TlQ1)))(LIST T&Q1 T#Q1 T1Q1 T0Q1))
(defun T0?1(T$#@ / T$Q1 Tl1& TlQ1 T@#& T??@ T0@ T@?@ T&Q& T$&& T#&& T|Q T&l TOQ1 T|Q1 TO@ T|@ T%@& T@?@ T??@ Tl%j T&%j T0%j TQ%j T%&& T|&& T%1j)(SETQ TlQ1 NIL T$Q1(Tj&j T$#@)T%1j(T$&j T$Q1))(COND((/=(T$Oj T%1j)NIL)(SETQ Tl1&(T0Q& T$Q1)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T&Q&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&)))TlQ1(APPEND TlQ1(LIST T&Q&)))(IF(/= T%@& 0)(PROGN(IF(= T|&& T%&&)(SETQ T$&& T#&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&)))))(SETQ T@#&(T$%j T&Q& T$&& T%@&))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j))(IF(< T0%j 0.0)(SETQ TQ%j Tl%j Tl%j T&%j T&%j TQ%j))(SETQ TQ%j 0)(REPEAT 4(IF(T@%j TQ%j Tl%j T&%j)(SETQ T0@(POLAR T@?@ TQ%j T??@)TlQ1(APPEND TlQ1(LIST(LIST(CAR T0@)(CADR T0@))))))(SETQ TQ%j(+ TQ%j T%&)))))))(SETQ Tl1&(CDR Tl1&))))((= T%1j"CIRCLE")(SETQ T@?@(T%&j 10 T$Q1 T)T??@(T1&j 40 T$Q1)TO@(-(CAR T@?@)T??@)T|@(-(CADR T@?@)T??@)TlQ1(APPEND TlQ1(LIST(LIST TO@ T|@)))TO@(+(CAR T@?@)T??@)T|@(+(CADR T@?@)T??@)TlQ1(APPEND TlQ1(LIST(LIST TO@ T|@)))))((= T%1j"ARC")(SETQ T@?@(T%&j 10 T$Q1 NIL)T??@(T1&j 40 T$Q1)Tl%j(T1&j 50 T$Q1)T&%j(T1&j 51 T$Q1)TOQ1(POLAR T@?@ Tl%j T??@)T|Q1(POLAR T@?@ T&%j T??@)T|Q(T1&j 210 T%Q1))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q)TOQ1(Tll TOQ1 T&l)T|Q1(Tll T|Q1 T&l)T@?@(Tll T@?@ T&l)Tl%j(ANGLE T@?@ TOQ1)T&%j(ANGLE T@?@ T|Q1)))(SETQ TlQ1(APPEND TlQ1(LIST(LIST(CAR TOQ1)(CADR TOQ1))))TlQ1(APPEND TlQ1(LIST(LIST(CAR T|Q1)(CADR T|Q1))))TQ%j 0.0)(REPEAT 4(IF(T@%j TQ%j Tl%j T&%j)(SETQ T0@(POLAR T@?@ TQ%j T??@)TlQ1(APPEND TlQ1(LIST(LIST(CAR T0@)(CADR T0@))))))(SETQ TQ%j(+ TQ%j T%&))))((= T%1j"LINE")(SETQ T0@(T%&j 10 T$Q1 T?l1)TlQ1(APPEND TlQ1(LIST(LIST(CAR T0@)(CADR T0@))))T0@(T%&j 11 T$Q1 T?l1)TlQ1(APPEND TlQ1(LIST(LIST(CAR T0@)(CADR T0@)))))))(IF TlQ1(SETQ TlQ1(TQQ1 TlQ1)))TlQ1)
(defun T#?1(Tjl1 T|%@ / TlQ1 T@l1 TQl1 Tll1 T&l1 T1l1 T@l T0@ TQj1 T#l1 T?Q TQ%j T0l1)
(defun T$l1(/ TOl1 T|l1 T%l1 T?&1)(SETQ T|l1(GETVAR"VIEWCTR")T%l1(GETVAR"VIEWSIZE")TOl1(GETVAR"SCREENSIZE")Tj&1(/(CAR TOl1)(CADR TOl1))T?&1(* Tj&1 T%l1)T@&1(T%|j(- Tj%j(GETVAR"VIEWTWIST")))TOl1(POLAR T|l1 T@&1(/ T?&1 2))TQ&1(POLAR TOl1(+ T@&1 T%&)(/ T%l1 2))TOl1(POLAR TQ&1(+ T@&1 PI)T?&1)Tl&1(POLAR TOl1(+ T@&1 PI T%&)T%l1)))(IF Tjl1(PROGN(SETQ TQl1(LIST(CAR Tjl1)(CADR Tjl1))Tll1(LIST(CAR Tjl1)(CADDDR Tjl1))T&l1(LIST(CADDR Tjl1)(CADDDR Tjl1))T1l1(LIST(CADDR Tjl1)(CADR Tjl1)))(T$l1)(SETQ T@l1 Tl&1 T?Q(DISTANCE T@l1 TQ&1)TQ%j(T%|j(-(ANGLE T@l1 TQ&1)T@&1))TQ&1(POLAR T@l1 TQ%j T?Q)T?Q(DISTANCE T@l1 TQl1)TQ%j(T%|j(-(ANGLE T@l1 TQl1)T@&1))TQl1(POLAR T@l1 TQ%j T?Q)T?Q(DISTANCE T@l1 Tll1)TQ%j(T%|j(-(ANGLE T@l1 Tll1)T@&1))Tll1(POLAR T@l1 TQ%j T?Q)T?Q(DISTANCE T@l1 T&l1)TQ%j(T%|j(-(ANGLE T@l1 T&l1)T@&1))T&l1(POLAR T@l1 TQ%j T?Q)T?Q(DISTANCE T@l1 T1l1)TQ%j(T%|j(-(ANGLE T@l1 T1l1)T@&1))T1l1(POLAR T@l1 TQ%j T?Q)TlQ1(TQQ1(LIST TQl1 Tll1 T&l1 T1l1))TQl1(LIST(CAR TlQ1)(CADR TlQ1))T&l1(LIST(CADDR TlQ1)(CADDDR TlQ1))T0l1 NIL)(IF(<(CAR TQl1)(CAR Tl&1))(SETQ T0l1 T))(IF(<(CADR TQl1)(CADR Tl&1))(SETQ T0l1 T))(IF(>(CAR T&l1)(CAR TQ&1))(SETQ T0l1 T))(IF(>(CADR T&l1)(CADR TQ&1))(SETQ T0l1 T))(IF T0l1(PROGN(SETQ T#l1(-(CAR T&l1)(CAR TQl1))TQj1(-(CADR T&l1)(CADR TQl1))T?Q(/ T#l1 Tj&1))(IF(> T?Q TQj1)(SETQ TQj1 T?Q))(SETQ T?Q(DISTANCE T@l1 TQl1)TQ%j(T%|j(+(ANGLE T@l1 TQl1)T@&1))TQl1(POLAR T@l1 TQ%j T?Q)T?Q(DISTANCE T@l1 T&l1)TQ%j(T%|j(+(ANGLE T@l1 T&l1)T@&1))T&l1(POLAR T@l1 TQ%j T?Q)T?Q(DISTANCE TQl1 T&l1)TQ%j(ANGLE TQl1 T&l1)T@l(POLAR TQl1 TQ%j(/ T?Q 2)))(IF(EQUAL TQj1 0.0 1E-8)(SETQ TQj1(* 5.0 T&0l)))(command-s"._ZOOM""_C"T@l(* TQj1 T|%@ 1.1))))(T$l1)(SETQ Tjl1(LIST Tl&1 TQ&1))))Tjl1)
(defun T&&1(/ T@ll)(IF(OR(= T01l 0)(= T01l 1))(SETQ T@ll(SQRT(+(EXPT(+(/ T|1l 2)(* T|0l T&0l))2)(EXPT(+(/ T%1l 2)(* T|0l T&0l))2))))(SETQ T@ll(*(+(/ T|1l 2)(/ T%1l 2)(* T$0l T&0l))(SQRT 2))))T@ll)
(defun T1&1(/ T#&1)(IF(OR(= T01l 0)(= T01l 1))(SETQ T#&1(ANGLE(LIST 0.0 0.0)(LIST(+(/ T%1l 2)(* T|0l T&0l))(*(+(/ T|1l 2)(* T|0l T&0l))-1.0))))(SETQ T#&1 T?#@))(T%|j(+ T#&1 T|&)))
(defun T0&1(T0@ /)(POLAR T0@(T1&1)(T&&1)))
(defun T$&1(T0j& / T0@ T1@j T%@ T&?& TO&1)(IF T0j&(SETQ T0@(T%&j 10(Tj&j T0j&)T)T0@(TRANS T0@ 0 1)TO&1(ENTNEXT T0j&)T1@j(T1&j 1(Tj&j TO&1))TO&1(ENTNEXT TO&1)T%@(T1&j 1(Tj&j TO&1))TO&1(ENTNEXT TO&1)T&?&(T1&j 1(Tj&j TO&1))T0j&(LIST(CAR T0@)(CADR T0@)T1@j T%@ T&?&)))T0j&)
(defun T$$&(T0@ T|&1 / TO@1 T%&1 T?11 Tj11 T@11 TQ11 T?Q T0j& Tl11 T#%&)(IF T0@(PROGN(SETQ Tl11(T#j1 T0@(+ T%1l 0.5))T0@(T?1 T0@))(IF T|&1(T#?1(TQQ1(LIST(CAR Tl11)(CADR Tl11)))(* 20 T|1l)))(SETQ TO@1(SSGET"C"(CAR Tl11)(CADR Tl11))Tj11 NIL)(IF(T01@ TO@1)(PROGN(SETQ TQ11 T0OQ T@11(SSLENGTH TO@1))(WHILE(> T@11 0)(SETQ T%&1(SSNAME TO@1(SETQ T@11(1- T@11)))T?11(Tj&j T%&1))(IF(T#?@ T?11)(PROGN(SETQ T#%&(T%&j 10 T?11 T)T?Q(DISTANCE T0@(T?1 T#%&)))(IF(< T?Q TQ11)(SETQ TQ11 T?Q Tj11 T%&1)))))))(IF Tj11(SETQ T%&1(T$&1 Tj11)T0j&(LIST(CAR T%&1)(CADR T%&1)(CADDR T%&1)(CADDDR T%&1)(CAR(CDDDDR T%&1))Tj11))(SETQ T0j& NIL))))(SETQ TO@1 NIL)T0j&)
(defun T#$&(T&11 T111 / T0j& TO@ T|@ T%@ T#11)(SETQ TO@(CAR T&11)T|@(CADR T&11)T%@(T&1 T&11)T0j&(T$$& T&11 T))(IF T0j&(PROGN(SETQ TO@(CAR T0j&)T|@(CADR T0j&)T#11(ATOF(CADDDR T0j&)))(IF T111(IF(NOT(EQUAL T#11 0.0 1E-8))(SETQ T%@ T#11))(SETQ T%@ T#11))))(LIST TO@ T|@ T%@))
(defun T011(T0@ / Tjj@ T0j& T|?@)(SETQ Tjj@ NIL)(IF T0@(PROGN(SETQ T0j&(T$$& T0@ T))(IF T0j&(SETQ T|?@(CAR(CDDDDR(CDR T0j&)))Tjj@(T?j@ T|?@)))))Tjj@)
(defun T$11(TO11 T|11 T%11 / T$1j Tjj@ T?#1)(SETQ T$1j(SSADD))(IF TO11(SETQ Tjj@ T|11)(SETQ Tjj@(T011 T|11)))(IF Tjj@(PROGN(IF T%11(SETQ Tjj@(CDR Tjj@)))(REPEAT(LENGTH Tjj@)(SETQ T?#1(CAR Tjj@))(IF T?#1(SSADD T?#1 T$1j))(SETQ Tjj@(CDR Tjj@)))))T$1j)
(defun Tj#1(TO11 T|11 T%11 / Tjj@ T?#1)(IF TO11(SETQ Tjj@ T|11)(SETQ Tjj@(T011 T|11)))(IF Tjj@(PROGN(IF T%11(SETQ Tjj@(CDR Tjj@)))(REPEAT(LENGTH Tjj@)(SETQ T?#1(CAR Tjj@))(IF T?#1(ENTDEL T?#1))(SETQ Tjj@(CDR Tjj@))))))
(defun T@#1(T&$j TQ#1 Tj|Q T$?j Tl#1 T&#1 / T1#1)(ENTMAKE(LIST(CONS 0"INSERT")(CONS 66 1)(CONS 2 TQ#1)(CONS 8 T&$j)(CONS 10 Tj|Q)))(SETQ T1#1(LIST(+(CAR Tj|Q)(CAR T$%Q))(+(CADR Tj|Q)(CADR T$%Q))(CADDR Tj|Q)))(ENTMAKE(LIST(CONS 0"ATTRIB")(CONS 8"0")(CONS 10 T1#1)(CONS 40 1.5)(CONS 1 T$?j)(CONS 7"STANDARD")(CONS 2 T0%Q)(CONS 70 1)))(SETQ T1#1(LIST(+(CAR Tj|Q)(CAR T|%Q))(+(CADR Tj|Q)(CADR T|%Q))(CADDR Tj|Q)))(ENTMAKE(LIST(CONS 0"ATTRIB")(CONS 8"0")(CONS 10 T1#1)(CONS 40 1.5)(CONS 1 Tl#1)(CONS 7"STANDARD")(CONS 2 TO%Q)(CONS 70 1)))(SETQ T1#1(LIST(+(CAR Tj|Q)(CAR T??l))(+(CADR Tj|Q)(CADR T??l))(CADDR Tj|Q)))(ENTMAKE(LIST(CONS 0"ATTRIB")(CONS 8"0")(CONS 10 T1#1)(CONS 40 1.5)(CONS 1 T&#1)(CONS 7"STANDARD")(CONS 2 T%%Q)(CONS 70 1)))(ENTMAKE(LIST(CONS 0"SEQEND"))))
(defun T##1(T&$j T0&& T$&& T0#1 Tl|j /)(ENTMAKE(LIST(CONS 0"LWPOLYLINE")(CONS 100"AcDbEntity")(CONS 8 T&$j)(CONS 100"AcDbPolyline")(CONS 90 3)(CONS 38 Tl|j)(CONS 10 T0&&)(CONS 10 T$&&)(CONS 10 T0#1))))
(defun T$#1(T0@ TO#1 T$?j Tl#1 / Tj&Q T@Q TQQ T$%l T|#1 T%#1 T?01 T&lQ T?@@ Tj01 T@01 TQ01 Tl01 T&01 T101 T#01 T001)(SETQ T@Q(POLAR T0@(ANGLE T0@ TO#1)(+(/ T%1l 2)(* T00l T&0l)))TQQ TO#1 T&01(T%|j(+ T|& T%&))T101(T%|j(+ T|& T#%l)))(IF(T@%j(ANGLE T0@ TO#1)T&01 T101)(SETQ T001 NIL)(SETQ T001 T))(SETQ T@01 0.0 TQ01 0.0 Tl01 0.0 T?01(LIST 0.0 0.0 0.0)Tj&Q(T$QQ"0"TO1l 0 0 T?01 T|1l 0.0 TQ#l T$?j)T&lQ(TEXTBOX Tj&Q))(IF(NULL T&lQ)(SETQ T&lQ(LIST(LIST 0.0 0.0 0.0)(LIST(* 0.8(STRLEN T$?j)T|1l TQ#l)T|1l 0.0))))(SETQ Tj01(TllQ T&lQ 0.0))(IF T001(SETQ TQ01(CAAR T&lQ)))(IF(/= Tl#1"")(PROGN(SETQ Tj&Q(T$QQ"0"TO1l 0 0 T?01 T|1l 0.0 TQ#l Tl#1)T&lQ(TEXTBOX Tj&Q))(IF(NULL T&lQ)(SETQ T&lQ(LIST(LIST 0.0 0.0 0.0)(LIST 4.3 1.5 0.0))))(SETQ T@01(TllQ T&lQ 0.0))(IF T001(SETQ Tl01(CAAR T&lQ)))))(SETQ T?@@(MAX Tj01 T@01))(IF T001(PROGN(SETQ T#01 T|& T$%l(POLAR TQQ T#01(+ T?@@(* Tj$l T&0l)))T|#1(POLAR TQQ(+ T#01 T?#@)(* T|0l T&0l(SQRT 2.0)))T%#1(POLAR T|#1(- T#01 T%&)(+(* Tj$l T&0l)T|1l)))(IF(= T01l 1)(IF(> TQ01 0.0)(SETQ T|#1(POLAR T|#1(+ T#01 PI)Tl01)))(PROGN(IF(> TQ01 0.0)(SETQ T|#1(POLAR T|#1(+ T#01 PI)TQ01)))(IF(> Tl01 0.0)(SETQ T%#1(POLAR T%#1(+ T#01 PI)Tl01))))))(SETQ T#01(+ T|& PI)T$%l(POLAR TQQ T#01(+ T?@@(* Tj$l T&0l)))T|#1(POLAR TQQ(- T#01 T?#@)(* T|0l T&0l(SQRT 2.0)))T%#1(POLAR T|#1(+ T#01 T%&)(+(* Tj$l T&0l)T|1l))))(LIST T|#1 T%#1 T@Q TQQ T$%l T001))
(defun T$01(/)(SETVAR"LUNITS"2)(SETVAR"LUPREC"TO#l)(SETVAR"TEXTSTYLE"TO1l)(SETVAR"TEXTSIZE"T|1l))
(defun TO01(T0@ T$?j Tjl& T|01 T%01 TO#1 T?$1 Tj$1 / T?#1 T|?@ T0j& T@$1 TQ$1 T|#1 T%#1 T@Q TQQ T$%l Tl$1 T&$1 T1$1 T#$1 TQj@ Tlj@ T&j@ TQ|j T0$1 Tl#1 T$$1 T%%l TO$1 T001 T#@@)(SETQ T0@(T?1 T0@)T0$1(RTOS Tjl& 2 TO@Q)Tl#1(RTOS Tjl& 2 TO#l)T%%l NIL TO$1 NIL)(IF T$1l(SETQ Tjl&(ATOF Tl#1))(SETQ Tjl& 0.0))(IF(AND T@#l Tj$1)(PROGN(SETQ T0j&(T$$& T0@ T))(IF T0j&(IF(<=(DISTANCE T0@(LIST(CAR T0j&)(CADR T0j&)))T0OQ)(PROGN(SETQ T@$1(T011(LIST(CAR T0j&)(CADR T0j&))))(IF T@$1(PROGN(command-s"._ZOOM""_C"T0@(* 20 T|1l))(Tj0@ T@$1)(SETQ T#@@ 25)(IF(NULL T|$1)(SETQ T|$1(T@@@(T%l T#@@ 2))))(INITGET 2(STRCAT(T@@@(T%l T#@@ 2))" "(Tl@@(T%l T#@@ 2))" "(T@@@(T%l T#@@ 3))))(SETQ T$$1(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 1))T$?j(Tl@@(T%l T#@@ 1)))0 T|$1"")))(IF(NULL T$$1)(SETQ T$$1 T|$1))(SETQ T|$1 T$$1)(TQ0@ T@$1)(COND((= T$$1(T@@@(T%l T#@@ 2)))(Tj#1 T T@$1 NIL))((= T$$1(Tl@@(T%l T#@@ 2)))(SETQ T%%l T)))(command-s"._ZOOM""_P"))))))))(SETQ T|?@ NIL TQj@ NIL Tlj@ NIL T&j@ NIL TQ|j NIL)(IF T?$1(SETQ Tl$1(T&Ol 6)T&$1 Tl$1 T1$1 Tl$1 T#$1 Tl$1)(SETQ Tl$1(T&Ol 1)T&$1(T&Ol 2)T1$1(T&Ol 3)T#$1(T&Ol 4)))(IF(NULL T%%l)(PROGN(IF Tj$1(PROGN(T@#1(T&Ol 5)T1?@(T@1 T0@ Tjl&)T$?j T0$1 T|01)(SETQ T|?@(ENTLAST)TO$1 T))(PROGN(SETQ T0j&(T$$& T0@ T))(IF T0j&(SETQ T|?@(CAR(CDDDDR(CDR T0j&)))))))(IF Tl#l(PROGN(IF(= T01l 0)(SETQ Tl#1""))(SETQ TQ$1(T$#1 T0@ TO#1 T$?j Tl#1)T|#1(T@1(NTH 0 TQ$1)Tjl&)T%#1(T@1(NTH 1 TQ$1)Tjl&)T@Q(T@1(NTH 2 TQ$1)0.0)TQQ(T@1(NTH 3 TQ$1)0.0)T$%l(T@1(NTH 4 TQ$1)0.0)T001(NTH 5 TQ$1))(COND((= T01l 0)(IF T001(T#1Q T1$1 TO1l 0 0 T|#1 T|1l T|& TQ#l T$?j)(T#1Q T1$1 TO1l 2 0 T|#1 T|1l T|& TQ#l T$?j))(SETQ TQj@(ENTLAST)))((= T01l 1)(IF T001(T#1Q T1$1 TO1l 0 0 T|#1 T|1l T|& TQ#l T$?j)(T#1Q T1$1 TO1l 2 0 T|#1 T|1l T|& TQ#l T$?j))(SETQ TQj@(ENTLAST))(IF T001(T#1Q T&$1 TO1l 0 0 T|#1 T|1l T|& TQ#l Tl#1)(T#1Q T&$1 TO1l 2 0 T|#1 T|1l T|& TQ#l Tl#1))(SETQ Tlj@(ENTLAST)))((= T01l 2)(IF T001(T#1Q T1$1 TO1l 0 0 T|#1 T|1l T|& TQ#l T$?j)(T#1Q T1$1 TO1l 2 0 T|#1 T|1l T|& TQ#l T$?j))(SETQ TQj@(ENTLAST))(IF T001(T#1Q T&$1 TO1l 0 0 T%#1 T|1l T|& TQ#l Tl#1)(T#1Q T&$1 TO1l 2 0 T%#1 T|1l T|& TQ#l Tl#1))(SETQ Tlj@(ENTLAST))))(IF(/=(T0# T%01)"")(PROGN(IF T001(T#1Q Tl$1 TO1l 0 0 T%#1 T|1l T|& TQ#l T%01)(T#1Q Tl$1 TO1l 2 0 T%#1 T|1l T|& TQ#l T%01))(SETQ T&j@(ENTLAST))))(T##1 T#$1 T@Q TQQ T$%l Tjl&)(SETQ TQ|j(ENTLAST))))))(TO?@ T|?@(LIST T|?@ TQ|j TQj@ Tlj@ T&j@))TO$1)
(defun T%$1(T?O1 TjO1 / T@O1 T0j& TQO1 Tjl&)(SETQ Tjl& 0.0)(IF(CADDR T?O1)(SETQ Tjl&(CADDR T?O1)))(SETQ T?O1(T?1 T?O1)T0j&(T$$& T?O1 T)T@O1 0)(IF(= T0j& NIL)(SETQ T@O1 1)(IF(>(DISTANCE T?O1(LIST(CAR T0j&)(CADR T0j&)))TjO1)(SETQ T@O1 1)))(IF(= T@O1 1)(PROGN(SETQ TQO1(T?#Q))(T$01)(TO01 T?O1 TQO1 Tjl& Tj#l Tj#l(T0&1 T?O1)NIL T)(SETVAR"USERR3"(FLOAT(T|1Q 1))))))
(defun TO?1(T0j& / T0@ T$?j Tjl& Tj$ T&0 T#@@)(SETQ T#@@ 39 T0@(LIST(CAR T0j&)(CADR T0j&))Tjl&(CADDDR T0j&)Tj$(CAR(CDDDDR T0j&)))(command-s"._ZOOM""_C"T0@(* 20 T|1l))(TO1@ T0@ 1)(T#O@ 201""NIL)(SETQ T$?j(T?#Q))(SETQ T&0(GETSTRING(T$j@(T@@@(T%l T#@@ 1))0 T$?j"")))(IF(/= T&0"")(SETQ T$?j(T&@j T&0)))(T$01)(IF(TO01 T0@ T$?j(ATOF Tjl&)Tj$ Tj$(T0&1 T0@)NIL T)(PROGN(Tj#Q T$?j)(SETQ T0@(T$?1 T0@ T0OQ NIL))))(command-s"._ZOOM""_P")(LIST(CAR T0@)(CADR T0@)T$?j Tjl& Tj$))
(defun TlO1(T&O1 / T0j& T1O1 T0@ T%&1 T#O1)(SETQ T0j& NIL)(IF(AND T&O1(/= T&O1""))(PROGN(SETQ T#O1(QQFP T&O1 T1?@))(IF T#O1(PROGN(SETQ T%&1(T$&1 T#O1)T0j&(LIST(CAR T%&1)(CADR T%&1)(CADDR T%&1)(CADDDR T%&1)(CAR(CDDDDR T%&1))T#O1)T0@(T%&j 10(Tj&j T#O1)T))(command-s"._ZOOM""_C"T0@(* 20 T|1l))))))(IF(NULL T0j&)(TlO@ 114 T&O1))T0j&)
(defun T0O1(T%?@ T$O1 / Tl1& TQ$1 TOO1 T|O1 T|?@ TQOj TQj@ Tlj@ T&j@ Tj&Q T?1j T0@ T@?& TQ?& T%O1 T?|1 Tj|1 T@|1 TQ|1 Tl|1 T&|1 T$?j Tl#1 T1|1 Tj0 T#11 T001 T#@@)(SETQ T#@@ 44)(IF T%?@(PROGN(IF(= T$O1 NIL)(SETQ T$O1(T&$@ NIL 0 0(T@@@(T%l T#@@ 1))T#|1""NIL)))(SETQ T#11 0.0)(IF T$O1(PROGN(SETQ T|?@(NTH 0 T%?@)T0@(T%&j 10(Tj&j T|?@)T)T#11(CADDR T0@))(IF(<(DISTANCE T0@ T$O1)(* TO0l T&0l))(SETQ T$O1 NIL))))(IF T$O1(PROGN(SETQ TQ|1(T1$j(Tj&j T|?@)))(IF(/=(STRCASE TQ|1)(STRCASE(T&Ol 5)))(PROGN(SETQ T?1j(Tj&j T|?@))(T##j T?1j(LIST(LIST 8(T&Ol 5))))))(SETQ TQOj(NTH 1 T%?@))(IF TQOj(PROGN(SETQ T?1j(Tj&j TQOj)Tl|1(T1$j T?1j))(IF(/=(STRCASE Tl|1)(STRCASE(T&Ol 4)))(T##j T?1j(LIST(LIST 8(T&Ol 4)))))(SETQ Tl1&(T0Q& T?1j)T@?&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))TQ?&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&)))T%O1(LIST(CADR(CADDR Tl1&))(CADDR(CADDR Tl1&)))TQj@(NTH 2 T%?@)Tlj@(NTH 3 T%?@)T&j@(NTH 4 T%?@)T$?j"1"Tl#1"")(SETQ T?1j(Tj&j TQj@))(IF T?1j(SETQ T$?j(T1&j 1 T?1j)))(SETQ T?1j(Tj&j Tlj@))(IF T?1j(SETQ Tl#1(T1&j 1 T?1j)))(SETQ TQ$1(T$#1 T0@ T$O1 T$?j Tl#1)T?|1(NTH 0 TQ$1)Tj|1(NTH 1 TQ$1)T@?&(NTH 2 TQ$1)TQ?&(NTH 3 TQ$1)T%O1(NTH 4 TQ$1)T001(NTH 5 TQ$1)T|O1(LIST TQj@ Tlj@ T&j@)Tj0 0)(WHILE T|O1(SETQ Tj0(+ Tj0 1)T?1j(Tj&j(CAR T|O1)))(IF T?1j(PROGN(COND((= Tj0 1)(SETQ T1|1 3 T@|1(T@1 T?|1 T#11)))((= Tj0 2)(SETQ T1|1 2)(IF(= T01l 1)(SETQ T@|1(T@1 T?|1 T#11))(SETQ T@|1(T@1 Tj|1 T#11))))((= Tj0 3)(SETQ T1|1 1 T@|1(T@1 Tj|1 T#11))))(SETQ TOO1(LIST(LIST 10 T@|1)(LIST 40 T|1l)(LIST 50 T|&)))(SETQ T&|1(T1$j T?1j))(IF(/=(STRCASE T&|1)(STRCASE(T&Ol T1|1)))(SETQ TOO1(APPEND TOO1(LIST(LIST 8(T&Ol T1|1))))))(IF T001(PROGN(SETQ TOO1(APPEND TOO1(LIST(LIST 72 0))))(IF(NOT(AND(= T%lj 3)(>= T?&j 20080000)(< T?&j 20120800)))(SETQ TOO1(APPEND TOO1(LIST(LIST 11(LIST 0.0 0.0)))))))(SETQ TOO1(APPEND TOO1(LIST(LIST 72 2)(LIST 11 T@|1)))))(SETQ TOO1(APPEND TOO1(LIST(LIST 210(LIST 0.0 0.0 1.0)))))(SETQ T?1j(T##j T?1j TOO1))(IF(AND(= T%lj 3)(>= T?&j 20080000)(< T?&j 20120800))(T##j T?1j(LIST(LIST 10 T@|1))))))(SETQ T|O1(CDR T|O1)))(SETQ Tl1&(SUBST(LIST 1(CAR T@?&)(CADR T@?&)0.0 0.0)(ASSOC 1 Tl1&)Tl1&)Tl1&(SUBST(LIST 2(CAR TQ?&)(CADR TQ?&)0.0 0.0)(ASSOC 2 Tl1&)Tl1&)Tl1&(SUBST(LIST 3(CAR T%O1)(CADR T%O1)0.0 0.0)(ASSOC 3 Tl1&)Tl1&))(T1l& TQOj Tl1&))))))))
(defun T0|1(T%?@ / T|?@ TQj@ Tlj@ T&j@ TQ|j Tl1& TQ?& T$|1 TO|1 T||1)(IF T%?@(PROGN(SETQ T|?@(NTH 0 T%?@)T$|1(T1&j 1(Tj&j(ENTNEXT T|?@)))TO|1(RTOS(ATOF(T1&j 1(Tj&j(ENTNEXT(ENTNEXT T|?@)))))2 TO#l)T||1(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT T|?@)))))TQ|j(NTH 1 T%?@)TQj@(NTH 2 T%?@)Tlj@(NTH 3 T%?@)T&j@(NTH 4 T%?@))(IF TQj@(T##j(Tj&j TQj@)(LIST(LIST 1 T$|1))))(IF Tlj@(T##j(Tj&j Tlj@)(LIST(LIST 1 TO|1))))(IF T&j@(T##j(Tj&j T&j@)(LIST(LIST 1(T$0Q T||1))))(IF(/=(T0# T||1)"")(PROGN(T#1Q(T&Ol 1)TO1l 0 0(T%&j 10(Tj&j T|?@)T)T|1l T|& TQ#l(T$0Q T||1))(SETQ T&j@(ENTLAST)T%?@(LIST T|?@ TQ|j TQj@ Tlj@ T&j@))(TO?@ T|?@ T%?@))))(IF TQ|j(PROGN(SETQ Tl1&(T0Q&(Tj&j TQ|j))TQ?&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&))))(T0O1 T%?@ TQ?&))))))
(defun T%|1(T?%1 Tj%1 / T@%1 TQ%1 Tl%1 T#@@)(SETQ T#@@ 55 T@%1 NIL)(IF(Tl?@)(PROGN(IF T?%1(SETQ TQ%1 TlQ@)(SETQ TQ%1 TQQ@))(INITGET 2(STRCAT TQQ@" "TlQ@))(SETQ Tl%1(GETKWORD(T$j@(T@@@(T%l T#@@ 1))0 TQ%1"")))(IF(NULL Tl%1)(SETQ Tl%1 TQ%1))(IF(= Tl%1 TQQ@)(PROGN(SETQ T@%1(SSGET(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T@%1)(SETQ T@%1(T&%1 T@%1))(IF Tj%1(TlO@ 104 T1?@))))(PROGN(SETQ T@%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T@%1)(IF T1%1(SETQ T@%1(T&%1 T@%1)))(IF Tj%1(TlO@ 102 T1?@))))))(IF Tj%1(TlO@ 102 T1?@)))T@%1)
(defun T#%1(T#$@ / T|1 T0@ T1@j T0j& T#@@)(SETQ T#@@ 43 T|1 NIL)(SETQ T0@(T&$@ NIL T#$@ 128(T@@@(T%l T#@@ 1))0""NIL))(IF(AND T0@(=(TYPE T0@)(quote STR)))(PROGN(SETQ T1@j T0@)(IF(/= T1@j"")(PROGN(SETQ T0j&(TlO1 T1@j))(IF T0j&(SETQ T0@(LIST(CAR T0j&)(CADR T0j&))))))))(IF(AND T0@(=(TYPE T0@)(quote LIST)))(PROGN(SETQ T0j&(T$$& T0@ T))(IF T0j&(SETQ T|1(LIST(CAR T0j&)(CADR T0j&)))(TlO@ 103 T1?@))))T|1)
(defun T0%1(T0@ / T0j& T|0Q TlO)(SETQ T|0Q NIL T0j&(T$$& T0@ T))(IF T0j&(PROGN(SETQ TlO(T0#(CAR(CDDDDR T0j&))))(IF(/= TlO"")(SETQ T|0Q(Tj%(TQO TlO"-")))))))
(defun T$%1(TO%1 T11& T|%1 / TO1j T|l TQ?j Tj0)(SETQ T|l 0)(IF(NOT(T01@ T|%1))(SETQ T|%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 TO%1)))))(IF(AND(T01@ T|%1)(> T11& 0.0))(PROGN(SETQ TQ?j(SSLENGTH T|%1)Tj0 -1)(T&QQ TQ?j)(REPEAT TQ?j(T#QQ)(SETQ TO1j(Tj&j(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))))(IF(AND(=(T$&j TO1j)"INSERT")(=(T1&j 2 TO1j)TO%1))(PROGN(SETQ T|l(T%l T|l 1))(T##j TO1j(LIST(LIST 41 T11&)(LIST 42 T11&)(LIST 43 T11&))))))(T0QQ)))T|l)
(defun T%%1(T??# T11& T|%1 / TO1j T|l TQ?j Tj0)(SETQ T|l 0)(IF(NOT(T01@ T|%1))(SETQ T|%1(SSGET"X"(LIST(CONS 0"SHAPE")(CONS 2 T??#)))))(IF(AND(T01@ T|%1)(> T11& 0.0))(PROGN(SETQ TQ?j(SSLENGTH T|%1)Tj0 -1)(T&QQ TQ?j)(REPEAT TQ?j(T#QQ)(SETQ TO1j(Tj&j(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))))(IF(AND(=(T$&j TO1j)"SHAPE")(=(T1&j 2 TO1j)T??#))(PROGN(SETQ T|l(T%l T|l 1))(T##j TO1j(LIST(LIST 40 T11&))))))(T0QQ)))T|l)
(defun Tj?#(Tj&Q T@?# / T0j& TQ?# T1lQ T$lQ TOlQ T&lQ Tl?# T&?# T1?# T#?# T0?# T#lQ T0lQ T?|& T@Q TQQ T$%l T$?# TO?# T|Q T&l T|?# T%?#)(SETQ T0j& NIL)(IF Tj&Q(PROGN(SETQ Tj&Q(Tj&j Tj&Q)TQ?# NIL T|Q(T1&j 210 Tj&Q)T|?# NIL T%?# NIL)(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(IF(OR(=(T$&j Tj&Q)"TEXT")(=(T$&j Tj&Q)"ATTDEF"))(PROGN(SETQ T?|&(T%&j 10 Tj&Q NIL)T1lQ(T1&j 50 Tj&Q)T1?#(CADDR T?|&)T&lQ(TEXTBOX Tj&Q))(IF T&lQ(SETQ T#lQ(CAR T&lQ)T0lQ(CADR T&lQ)TQ?# T))))(IF(=(T$&j Tj&Q)"MTEXT")(PROGN(SETQ T?|&(T%&j 10 Tj&Q NIL)T@Q(T%&j 11 Tj&Q NIL)T@Q(LIST(+(CAR T?|&)(CAR T@Q))(+(CADR T?|&)(CADR T@Q)))T1lQ(ANGLE T?|& T@Q)T1?#(CADDR T?|&)Tl?#(T1&j 42 Tj&Q)T&?#(T1&j 43 Tj&Q)T#?#(T1&j 71 Tj&Q)T0?#(T1&j 72 Tj&Q))(IF(AND T|Q(<(CADDR T|Q)0.0))(SETQ TO?# T)(SETQ TO?# NIL))(IF TO?#(PROGN(IF(OR(= T#?# 1)(= T#?# 2)(= T#?# 3))(SETQ T?|&(POLAR T?|&(+ T1lQ T%&)T&?#)))(IF(OR(= T#?# 7)(= T#?# 8)(= T#?# 9))(SETQ T?|&(POLAR T?|&(- T1lQ T%&)(* 1.0 T&?#))))))(IF(NULL(AND(= T|lj 0)(>= T?&j 170100)))(IF(= T0?# 4)(IF TO?#(SETQ T?|&(POLAR T?|&(- T1lQ T%&)T&?#))(SETQ T?|&(POLAR T?|&(+ T1lQ T%&)T&?#)))))(IF(OR(= T#?# 2)(= T#?# 5)(= T#?# 8))(SETQ T?|&(POLAR T?|&(- T1lQ PI)(/ Tl?# 2.0)))(IF(OR(= T#?# 3)(= T#?# 6)(= T#?# 9))(SETQ T?|&(POLAR T?|&(- T1lQ PI)Tl?#))))(IF(OR(= T#?# 4)(= T#?# 5)(= T#?# 6))(SETQ T?|&(POLAR T?|&(+ T1lQ T%&)(/ T&?# 2.0)))(IF(OR(= T#?# 7)(= T#?# 8)(= T#?# 9))(SETQ T?|&(POLAR T?|&(+ T1lQ T%&)T&?#))))(SETQ T?|&(POLAR T?|&(- T1lQ T%&)T&?#)T#lQ(LIST 0.0 0.0)T0lQ(LIST Tl?# T&?#)TQ?# T T|?# T T%?# TO?#)))(IF TQ?#(PROGN(SETQ T$lQ(SIN T1lQ)TOlQ(COS T1lQ)T@Q(LIST(+(CAR T?|&)(-(*(CAR T#lQ)TOlQ)(*(CADR T#lQ)T$lQ)))(+(CADR T?|&)(+(*(CAR T#lQ)T$lQ)(*(CADR T#lQ)TOlQ)))T1?#)TQQ(LIST(+(CAR T?|&)(-(*(CAR T0lQ)TOlQ)(*(CADR T#lQ)T$lQ)))(+(CADR T?|&)(+(*(CAR T0lQ)T$lQ)(*(CADR T#lQ)TOlQ)))T1?#)T$%l(LIST(+(CAR T?|&)(-(*(CAR T0lQ)TOlQ)(*(CADR T0lQ)T$lQ)))(+(CADR T?|&)(+(*(CAR T0lQ)T$lQ)(*(CADR T0lQ)TOlQ)))T1?#)T$?#(LIST(+(CAR T?|&)(-(*(CAR T#lQ)TOlQ)(*(CADR T0lQ)T$lQ)))(+(CADR T?|&)(+(*(CAR T#lQ)T$lQ)(*(CADR T0lQ)TOlQ)))T1?#))(IF T|?#(SETQ T@Q(T$l T@Q T&l)TQQ(T$l TQQ T&l)T$%l(T$l T$%l T&l)T$?#(T$l T$?# T&l)))(IF T@?#(SETQ T@Q(Tll T@Q T&l)TQQ(Tll TQQ T&l)T$%l(Tll T$%l T&l)T$?#(Tll T$?# T&l)))(IF T%?#(SETQ T0j&(LIST T$?# T$%l TQQ T@Q))(SETQ T0j&(LIST T@Q TQQ T$%l T$?#)))))))T0j&)
(defun T?j#(T0j& Tjj# / T@Q TQQ T$%l T$?# T@j# TOj& T|j& Tl%j T&%j T$?& TO?& TQ%j T?Q)(IF T0j&(PROGN(SETQ T@Q(T?1(CAR T0j&))TQQ(T?1(CADR T0j&))T$%l(T?1(CADDR T0j&))T$?#(T?1(CADDDR T0j&)))(IF(> Tjj# 0.0)(SETQ TOj&(T&& T@Q TQQ)T|j&(T&& T$%l T$?#)T@j#(T&& TOj& T|j&)Tl%j(ANGLE T@Q TQQ)T&%j(ANGLE T$%l T$?#)T$?&(DISTANCE T@Q TQQ)TO?&(DISTANCE T$%l T$?#)TQ%j(ANGLE T@j# TOj&)T?Q(DISTANCE T@j# TOj&)TOj&(POLAR T@j# TQ%j(+ T?Q Tjj#))T@Q(POLAR TOj&(- Tl%j PI)(+(/ T$?& 2.0)Tjj#))TQQ(POLAR TOj& Tl%j(+(/ T$?& 2.0)Tjj#))TQ%j(ANGLE T@j# T|j&)T?Q(DISTANCE T@j# T|j&)T|j&(POLAR T@j# TQ%j(+ T?Q Tjj#))T$%l(POLAR T|j&(- T&%j PI)(+(/ TO?& 2.0)Tjj#))T$?#(POLAR T|j& T&%j(+(/ TO?& 2.0)Tjj#))))(SETQ T0j&(LIST T@Q TQQ T$%l T$?#))))T0j&)
(defun TQj#(Tj&Q / T0j& Tlj#)(SETQ Tlj# NIL T0j&(Tj?# Tj&Q T))(IF T0j&(SETQ Tlj#(T&&(CAR T0j&)(CADDR T0j&))))Tlj#)
(defun T&j#(Tj&Q TOjj T??Q T1j# / T0j& Tl1& T0@ T@Q TQQ T$%l T$?# T1|l T#j# T#|j T|Q T1?# T%%j)(SETQ T0j&(Tj?# Tj&Q NIL))(IF T0j&(PROGN(SETQ T#j#(Tj&j Tj&Q)T|Q(T1&j 210 T#j#)T1?#(CADDR(CAR T0j&))TOjj(* TOjj T&0l)T0j&(T?j# T0j& TOjj)T@Q(CAR T0j&)TQQ(CADR T0j&)T$%l(CADDR T0j&)T$?#(CADDDR T0j&)T@Q(T@1 T@Q T1?#))(SETVAR"CLAYER"(T1$j T#j#))(SETVAR"CECOLOR"(ITOA(T%$j T#j# 256 NIL)))(SETVAR"PLINEWID"(* T??Q T&0l))(IF(= T1j# 0)(command-s"._PLINE"T@Q TQQ T$%l T$?#"_C")(PROGN(IF(EQUAL TOjj 0.0 1E-10)(SETQ TOjj(T@@ 0 T$#l 0.35)))(SETQ T1|l(ANGLE T@Q TQQ))(command-s"._PLINE"(POLAR T@Q T1|l TOjj)(POLAR TQQ(+ T1|l PI)TOjj)"_Arc"(POLAR TQQ(+ T1|l T%&)TOjj)"Line"(POLAR T$%l(- T1|l T%&)TOjj)"_Arc"(POLAR T$%l(+ T1|l PI)TOjj)"Line"(POLAR T$?# T1|l TOjj)"_Arc"(POLAR T$?#(- T1|l T%&)TOjj)"Line"(POLAR T@Q(+ T1|l T%&)TOjj)"_Arc""_CLose")))(SETQ T#|j(Tj&j(ENTLAST)))(IF(T%1 T|Q)(SETQ T#|j(SUBST(CONS 210 T|Q)(ASSOC 210 T#|j)T#|j)))(SETQ T#|j(T11j T#|j 2))(T##j T#|j NIL))))
(defun T0j#(T$$ / T$# T$j# TOj#)(SETQ TOj#(GETVAR"DIMLFAC"))(IF(< TOj# 0.0)(IF(AND(=(GETVAR"TILEMODE")0)(=(GETVAR"CVPORT")1))(SETQ TOj#(ABS TOj#))(SETQ TOj# 1.0)))(SETQ T$#(RTOS(* T$$ TOj#)(GETVAR"DIMUNIT")(GETVAR"DIMDEC"))T$j#(GETVAR"DIMPOST"))(IF(/= T$j#"")(IF(T@$ T$j#"<>")(SETQ T$#(T@0(T@0 T$j#"<"T$#)">"""))(SETQ T$#(STRCAT T$# T$j#))))T$#)
(defun T|j#(T%j# / T?@# Tj@# T@@# TQ@#)(SETQ T?@# 0)(IF(AND T%j#(TO&j T%j#"DIMENSION"))(IF(AND(= T%lj 3)(>= T?&j 20080000))(PROGN(IF(T1&j 70 T%j#)(PROGN(SETQ TQ@#(T1&j 70 T%j#))(COND((= TQ@# 32)(SETQ T?@# 1))((= TQ@# 33)(SETQ T?@# 2))((= TQ@# 36)(SETQ T?@# 3))((= TQ@# 35)(SETQ T?@# 4))((= TQ@# 34)(SETQ T?@# 5))((= TQ@# 102)(SETQ T?@# 6))))))(PROGN(IF(T1&j 100 T%j#)(PROGN(SETQ Tj@#(STRCASE(T1&j 100 T%j#))T@@#(STRCASE(T1&j 100(REVERSE T%j#))))(COND((OR(= Tj@#"ACDBROTATEDDIMENSION")(= T@@#"ACDBROTATEDDIMENSION"))(SETQ T?@# 1))((OR(= Tj@#"ACDBALIGNEDDIMENSION")(= T@@#"ACDBALIGNEDDIMENSION"))(SETQ T?@# 2))((OR(= Tj@#"ACDBRADIALDIMENSION")(= T@@#"ACDBRADIALDIMENSION"))(SETQ T?@# 3))((OR(= Tj@#"ACDBDIAMETRICDIMENSION")(= T@@#"ACDBDIAMETRICDIMENSION"))(SETQ T?@# 4))((OR(= Tj@#"ACDB3POINTANGULARDIMENSION")(= T@@#"ACDB3POINTANGULARDIMENSION"))(SETQ T?@# 5))((OR(= Tj@#"ACDBORDINATEDIMENSION")(= T@@#"ACDBORDINATEDIMENSION"))(SETQ T?@# 6))))))))T?@#)
(defun Tl@#(TQOj T&@# T1@# T#@# / Tl1& T1Q& T0@# TjQ1 T@#& T$@# T?1j T#&& T0&& T$&& TO@# T|@# T%@# T@?@ T?Q# TQ%l T??@ Tl%j T&%j T|?& T0%j TjQ# T@Q# TQQ# TlQ# T&Q# T%@& T1Q# T%&& T|&& TjOQ Tj?1 T#Q# T0Q# T$Q# TOQ# T|Q# T%Q# T?l# T&0& Tjl#)
(defun T@l#(TQl# Tll# / T0@# TjQ1 T$@# Tj0 T&l# TO@# T|@# T1l# T#l# TQQ# T1|l T0l# T$l#)(SETQ T#l# 0.0 TjQ1(T#j1 TQl#(T@j1))T0@#(SSGET"C"(CAR TjQ1)(CADR TjQ1)))(IF(T01@ T0@#)(PROGN(SETQ Tj0(SSLENGTH T0@#))(WHILE(> Tj0 0)(SETQ T$@#(Tj&j(SSNAME T0@#(SETQ Tj0(- Tj0 1)))))(IF(TO&j T$@#"DIMENSION")(PROGN(SETQ T$l#(T|j# T$@#))(IF(OR(= T$l# 2)(= T$l# 5))(PROGN(SETQ TQQ# 0.0 T&l#(T?1(T%&j 10 T$@# NIL))TO@#(T?1(T%&j 13 T$@# NIL))T|@#(T?1(T%&j 14 T$@# NIL)))(IF(= T$l# 4)(SETQ T1l#(T?1(T%&j 15 T$@# NIL))))(SETQ T1|l(ANGLE TQl# Tll#)T0l# NIL)(IF(T#1 TQl# TO@#)(PROGN(IF(= T$l# 1)(SETQ T0l#(ANGLE TO@# T|@#)))(IF(= T$l# 4)(SETQ T0l#(+(ANGLE T1l# TO@#)T%&)))))(IF(T#1 TQl# T|@#)(PROGN(IF(= T$l# 1)(SETQ T0l#(ANGLE T|@# TO@#)))(IF(= T$l# 4)(SETQ T0l#(-(ANGLE T1l# T|@#)T%&)))))(IF T0l#(IF(OR(T@%j T1|l(- T0l# T?#@)(+ T0l# T?#@))(T@%j(T%|j(- T1|l PI))(- T0l# T?#@)(+ T0l# T?#@)))(PROGN(IF(= T$l# 1)(SETQ TQQ#(DISTANCE T|@# T&l#)))(IF(= T$l# 4)(SETQ TQQ#(ABS(-(DISTANCE T1l# T&l#)(DISTANCE T1l# TO@#))))))))(IF(> TQQ# T#l#)(SETQ T#l# TQQ#)))))))))T#l#)(T#?1(T0?1 TQOj)1.0)(SETQ Tj?1(T@|j TQOj)T#Q#(*(GETVAR"DIMTXT")(GETVAR"DIMSCALE"))T0Q#(GETVAR"DIMTXSTY")T|Q# 0.0)(IF(=(GETVAR"DIMSD1")0)(SETQ T|Q#(+ T|Q#(*(GETVAR"DIMASZ")(GETVAR"DIMSCALE")))))(IF(=(GETVAR"DIMSD2")0)(SETQ T|Q#(+ T|Q#(*(GETVAR"DIMASZ")(GETVAR"DIMSCALE")))))(SETQ T&@#(T?1 T&@#)T1@#(T?1 T1@#)T#@#(T?1 T#@#)TlQ#(DISTANCE T#@# T&@#)T&Q#(- TlQ#(/ T#Q# 2.0))Tl%j(ANGLE T#@# T1@#)T&%j(ANGLE T#@# T&@#)T?1j(Tj&j TQOj)T&0&(TOOj T?1j)Tl1&(T0Q& T?1j)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|?& NIL T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(IF(AND(T#1 T0&& T1@#)(T#1 T$&& T#@#))(SETQ T|?&(- T&%j(+ Tl%j PI)))(IF(AND(T#1 T0&& T#@#)(T#1 T$&& T1@#))(SETQ T|?&(- T&%j Tl%j))))))(IF(OR(NULL T|?&)(EQUAL TlQ# 0.0 1E-8))(SETQ TlQ# 0.0 T|?& 0.0))(SETQ T|?&(T%|j T|?&))(SETQ T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(PROGN(SETQ Tjl# T TjQ1(T#j1 T$&&(T@j1))T0@#(SSGET"C"(CAR TjQ1)(CADR TjQ1)))(IF(T01@ T0@#)(PROGN(SETQ TjOQ(SSLENGTH T0@#))(WHILE(> TjOQ 0)(SETQ T$@#(Tj&j(SSNAME T0@#(SETQ TjOQ(- TjOQ 1)))))(IF(TO&j T$@#"DIMENSION")(PROGN(SETQ TO@#(T?1(T%&j 13 T$@# T?l1))T|@#(T?1(T%&j 14 T$@# T?l1)))(IF(OR(AND(T#1 T0&& TO@#)(T#1 T$&& T|@#))(AND(T#1 T$&& TO@#)(T#1 T0&& T|@#)))(SETQ Tjl# NIL TjOQ 0)))))))(IF Tjl#(IF(= T%@& 0.0)(PROGN(SETQ TjQ#(+(ANGLE T0&& T$&&)T|?&)TQ%l(DISTANCE T0&& T$&&))(IF(> TQ%l 1E-6)(PROGN(SETQ T?l# NIL TQQ# TlQ# T$Q#(T0j# TQ%l)TOQ#(T@&Q T$Q# T#Q# 1.0 T0Q#))(IF(>=(+ TOQ# T|Q#)TQ%l)(PROGN(IF(=(GETVAR"DIMTIX")1)(PROGN(SETQ T%@#(POLAR T0&& TjQ#(+ T&Q#(/ TOQ# 2.0)))T?l# T)(IF(= T|lj 1)(IF(< T?&j 40000)(SETQ T%@#(POLAR T$&& TjQ# TQQ#)T?l# NIL))))(PROGN(SETQ T%Q#(MAX(T@l# T0&& T$&&)(T@l# T$&& T0&&)))(IF(> T%Q# 0.0)(SETQ TQQ#(+ T%Q# T#Q# T&Q#)))(SETQ T%@#(POLAR T$&& TjQ# TQQ#)))))(SETQ T%@#(POLAR T0&& TjQ# TQQ#)))(command-s"._DIMALIGNED"(T@1 T0&& Tj?1)(T@1 T$&& Tj?1)(T@1 T%@# Tj?1))(IF(= T%lj 5)(command-s""))(IF T?l#(T##j(Tj&j(ENTLAST))(LIST(LIST 53 TjQ#)))))))(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&))(IF T@#&(PROGN(SETQ TQQ# TlQ# T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T@Q#(ABS(* T0%j T??@))T1Q#(T%|j(+ Tl%j(/ T0%j 2)))T?Q#(POLAR T@?@ T1Q# T??@)TjQ#(+(ANGLE T0&&(POLAR T@?@(T%|j(+ Tl%j(/ T0%j 10)))T??@))T|?&)T%@#(POLAR T0&& TjQ# TQQ#))(IF(<(DISTANCE T@?@ T%@#)T??@)(SETQ T1Q#(T%|j(- T1Q# PI))))(SETQ T%@#(POLAR T?Q# T1Q#(+ TQQ# 1E-5)))(command-s"._DIMANGULAR"""(T@1 T@?@ Tj?1)(T@1 T0&& Tj?1)(T@1 T$&& Tj?1)(T@1 T%@# Tj?1))(T##j(Tj&j(ENTLAST))(LIST(LIST 1(T0j# T@Q#)))))))))))))
(defun TOl#(T#|j / T||j T|l#)(SETQ T||j NIL)(IF T#|j(PROGN(SETQ T|l#(STRCASE(T1$j T#|j)))(IF(OR(= T|l#(STRCASE(T&Ol 4)))(= T|l#(STRCASE(T&Ol 6))))(IF(T$Oj(T$&j T#|j))(IF(=(T%Oj(T1&j 70 T#|j))0)(IF(NOT(TOOj T#|j))(SETQ T||j T)))))))T||j)
(defun T&%1(T$1@ / T$1j T@&j T??j T%%)(IF(T01@ T$1@)(PROGN(SETQ T$1j(SSADD)T??j(SSLENGTH T$1@))(WHILE(> T??j 0)(SETQ T@&j(SSNAME T$1@(SETQ T??j(1- T??j))))(SSADD T@&j T$1j)))(SETQ T$1j T$1@))T$1j)
(defun T%l#(T?&# Tj&# / T@&# T??j)(IF(AND(T01@ T?&#)(T01@ Tj&#))(PROGN(SETQ T??j(SSLENGTH Tj&#))(WHILE(> T??j 0)(SETQ T@&#(SSNAME Tj&#(SETQ T??j(1- T??j))))(SSDEL T@&# T?&#))))T?&#)
(defun TQ&#(T?&# Tj&# / T|%1 Tl&# T??j T||j)(SETQ T||j NIL)(IF(AND(T01@ T?&#)(T01@ Tj&#))(PROGN(SETQ Tl&#(+(SSLENGTH T?&#)(SSLENGTH Tj&#))T|%1(QQAD T?&# Tj&#))(IF(T01@ T|%1)(PROGN(SETQ T??j(SSLENGTH T|%1))(IF(/= T??j Tl&#)(SETQ T||j T))))))T||j)
(defun T&&#(T1&# T#&# T0&# / T$1j TjQ1)(SETQ TjQ1(T#j1 T1&# T#&#)T$1j(SSGET"C"(CAR TjQ1)(CADR TjQ1)))(IF(AND(NULL T$1j)T0&#)(SETQ T$1j(SSADD)))(IF T0&#(SSADD T0&# T$1j))T$1j)
(defun T$&#(T$1@ TO&# / TQ&j TO1j T??j T%%)(SETQ TQ&j NIL)(IF(T01@ T$1@)(PROGN(SETQ T??j(SSLENGTH T$1@))(IF(= T??j 1)(SETQ TQ&j(SSNAME T$1@ 0))(PROGN(SETQ T%% 0)(WHILE(< T%% T??j)(SETQ TO1j(SSNAME T$1@ T%%))(IF(Tj&j TO1j)(PROGN(T0#@ TO1j)(INITGET 2(STRCAT TjQ@" "T@Q@))(IF(/=(GETKWORD(T$j@ TO&# 0 TjQ@""))T@Q@)(SETQ TQ&j TO1j T%% T??j))(T|#@ TO1j)))(SETQ T%%(+ T%% 1)))))))TQ&j)
(defun T|&#(T%&# T|&j / TQ&j T0@ T?1#)(SETQ TQ&j NIL)(IF(AND T%&#(=(LENGTH T%&#)2))(PROGN(SETQ T0@(CADR T%&#)TQ&j(CAR T%&#))(IF(NULL(TO&j(Tj&j TQ&j)T|&j))(PROGN(SETQ TQ&j NIL T?1#(T&&# T0@(T@j1)NIL))(QQKE T?1#""(LIST T|&j)0.0 0.0 0.0 0 0 0 2)(IF(T01@ T?1#)(SETQ TQ&j(SSNAME T?1# 0)))))))TQ&j)
(defun Tj1#(T%&# / TQ&j TO1j T0@ T?1# T??j T%%)(SETQ TQ&j NIL)(IF(AND T%&#(=(LENGTH T%&#)2))(PROGN(SETQ TO1j(CAR T%&#))(IF(T$|j TO1j)(SETQ TQ&j TO1j)(PROGN(SETQ T0@(CADR T%&#)T?1#(T&&# T0@(T@j1)NIL))(IF(T01@ T?1#)(PROGN(SETQ T??j(SSLENGTH T?1#)T%% 0)(WHILE(< T%% T??j)(SETQ TO1j(SSNAME T?1# T%%))(IF(T$|j TO1j)(SETQ TQ&j TO1j T%% T??j))(SETQ T%%(+ T%% 1)))))))))TQ&j)
(defun T@1#(TQ1# Tl1# T&1# / TQ|@ TQOj T#|j T1&# T11# T?1# T#@@)(SETQ T#@@ 107 TQ|@ NIL TQOj(ENTSEL(T$j@ TQ1# 0"""")))(IF TQOj(PROGN(SETQ T1&#(OSNAP(CADR TQOj)"NEA"))(IF(NULL T1&#)(SETQ T1&#(CADR TQOj)))(IF(= T|lj 1)(IF(>= T?&j 50000)(SETQ T1&#(CADR TQOj))))(SETQ TQOj(CAR TQOj))(IF T1&#(PROGN(SETQ T11#(T@j1)T?1#(T&&# T1&# T11# TQOj))(QQKE T?1#""Tl1# 0.0 0.0 0.0 0 0 0 2)(QQEE T?1# NIL NIL 5 7 4)(SETQ TQOj(T$&# T?1#(T@@@ T#@@)))))(IF(AND TQOj T1&#)(PROGN(SETQ T#|j(ENTGET TQOj(quote ("TOPOLT"))))(IF(AND(NOT(TOl# T#|j))(/=(T@1j T#|j)2))(PROGN(IF(AND(T$Oj(T$&j T#|j))(NOT(TOOj T#|j)))(command-s"._PEDIT"TQOj"_C"""))(SETQ TQ|@(LIST TQOj T1&#)))))(TlO@ T&1#""))))TQ|@)
(defun T#1#(T01# T$1# T|&j TO1# / T|1& T|1# T0@ T?1# T%1# T%%l)(SETQ T|1& NIL T%%l NIL T01#(T$j@ T01# 0"""")T%1# T01#)(WHILE(NULL T%%l)(SETQ T|1#(ENTSEL T%1#))(IF T|1#(PROGN(SETQ T0@(OSNAP(CADR T|1#)"NEA"))(IF(NULL T0@)(SETQ T0@(CADR T|1#)))(IF(= T|lj 1)(IF(>= T?&j 50000)(SETQ T0@(CADR T|1#))))(SETQ T?1#(T&&# T0@(T@j1)(CAR T|1#)))(QQKE T?1#""(LIST T|&j)0.0 0.0 0.0 0 0 0 2)(SETQ T?1#(T%l# T?1# TO1#))(IF(AND(T01@ T?1#)(>(SSLENGTH T?1#)1))(SETQ T%1# T01#)(SETQ T%1#""))(SETQ T|1&(T$&# T?1# T$1#))(IF T|1&(SETQ T%%l T)))(SETQ T%%l T)))T|1&)
(defun T?##(T$1@ Tj## / T%% T??j TO%1 TO1j T@0@)(IF(T01@ T$1@)(PROGN(ENTMAKE)(ENTMAKE(LIST(CONS 0"BLOCK")(CONS 2"*U")(CONS 10 Tj##)(CONS 70 1)))(SETQ T%% 0 T??j(SSLENGTH T$1@))(WHILE(< T%% T??j)(SETQ TO1j(SSNAME T$1@ T%%)T@0@(CDR(Tj&j TO1j)))(IF(OR(TO&j T@0@"POLYLINE")(TQOQ T@0@))(PROGN(ENTMAKE T@0@)(SETQ TO1j(ENTNEXT TO1j)T@0@(CDR(Tj&j TO1j)))(WHILE(NULL(TO&j T@0@"SEQEND"))(ENTMAKE T@0@)(SETQ TO1j(ENTNEXT TO1j)T@0@(CDR(Tj&j TO1j))))(ENTMAKE T@0@))(ENTMAKE T@0@))(SETQ T%%(+ T%% 1)))(SETQ TO%1(ENTMAKE(LIST(CONS 0"ENDBLK"))))(IF TO%1(PROGN(command-s"._ERASE"T$1@"")(ENTMAKE(LIST(CONS 0"INSERT")(CONS 2 TO%1)(CONS 8(GETVAR"CLAYER"))(CONS 10 Tj##)))))(IF(= T|lj 1)(REDRAW)))))
(defun T@##(TQ## / Tl## T|&@ T$lj)(SETQ Tl##(FINDFILE TQ##))(IF(NULL Tl##)(PROGN(SETQ T|&@(TO@j TQ##)Tl##(FINDFILE(STRCAT T|&@(T#@j TQ##))))(IF(NULL Tl##)(IF(= T|lj 0)(PROGN(SETQ T$lj(LIST".bmp"".jpg"".pcx"".png"".tga"".tif"".gif"))(WHILE(AND T$lj(NULL Tl##))(SETQ Tl##(FINDFILE(STRCAT T|&@(CAR T$lj)))T$lj(CDR T$lj))))))))(IF Tl##(SETQ TQ## Tl##))TQ##)
(defun T&##(TQ## / T1## T### T$lj T0## T$##)(SETQ T1## NIL)(IF TQ##(SETQ TQ##(FINDFILE TQ##)))(IF TQ##(PROGN(SETQ T###(STRCAT(T%@j TQ##)(TO@j TQ##))T0##(STRCASE(T#@j TQ##)T))(IF(=(STRLEN T0##)4)(SETQ T$##(STRCAT(SUBSTR T0## 1 2)(SUBSTR T0## 4 1)"w"))(SETQ T$##".wld"))(SETQ T$lj(LIST T$##".tfw"".jgw"".pgw"".gfw"".bpw"".taw"".pxw"".ptw"".fcw"".fiw"".rcw"".rew"".dbw"".rtw"".g4w"".mlw"".clw"".e4w"".blw"".i4w"".isw"".sdw"))(WHILE(AND T$lj(NULL T1##))(SETQ T1##(FINDFILE(STRCAT T###(CAR T$lj)))T$lj(CDR T$lj)))))T1##)
(defun TO##(TQ## / T1## T0## T$##)(SETQ T1##(T&## TQ##))(IF(NULL T1##)(PROGN(IF TQ##(SETQ TQ##(FINDFILE TQ##)))(IF TQ##(PROGN(SETQ T0##(STRCASE(T#@j TQ##)T))(IF(= T0##".tiff")(SETQ T0##".tif"))(IF(=(STRLEN T0##)4)(SETQ T$##(STRCAT(SUBSTR T0## 1 2)(SUBSTR T0## 4 1)"w"))(SETQ T$##".wld"))(SETQ T1##(TjQj TQ## T$##))))))T1##)
(defun T|##(T%## /)(AND T%##(TO&j(Tj&j T%##)"IMAGE")))
(defun T?0#(T%## / T1$ Tj0# T@0# TQ## TQ0#)(SETQ T1$ NIL TQ## NIL Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE"))(PROGN(SETQ T@0#(T1&j 340 Tj0#)TQ0#(T1&j 1(Tj&j T@0#))TQ##(FINDFILE(T@## TQ0#)))(IF TQ##(SETQ T1$ T))))T1$)
(defun Tl0#(T%## / Tj0# T@0# TQ0#)(SETQ TQ0#""Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE"))(SETQ T@0#(T1&j 340 Tj0#)TQ0#(T1&j 1(Tj&j T@0#))))TQ0#)
(defun T&0#(T%## / T1$ Tj0# T10#)(SETQ T1$ NIL Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE"))(PROGN(IF(AND(>(LOGAND(T1&j 70 Tj0#)4)0)(=(T1&j 280 Tj0#)1))(PROGN(SETQ T10#(T1&j 71 Tj0#))(IF(OR(= T10# 1)(= T10# 2))(IF(>(FIX(T1&j 91 Tj0#))1)(SETQ T1$ T)))))))T1$)
(defun T#0#(T%## / T00# Tj0# T@0# T$0# T1lj TO0# TQ## TQ0# T|0# T%0#)(SETQ T00# NIL T|0# NIL TQ## NIL TQ0# NIL Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE"))(PROGN(SETQ T%0#(T1&j 5 Tj0#)T@0#(T1&j 340 Tj0#)TQ0#(T1&j 1(Tj&j T@0#))TQ##(FINDFILE(T@## TQ0#)))(IF T?$#(PROGN(SETQ T$0#(DICTSEARCH(NAMEDOBJDICT)"ACAD_IMAGE_DICT"))(IF T$0#(PROGN(SETQ TO0# NIL)(FOREACH T1lj T$0#(IF(=(CAR T1lj)3)(SETQ TO0#(CDR T1lj)))(IF(AND TO0#(=(CAR T1lj)350)(EQUAL(CDR T1lj)T@0#))(SETQ T|0# TO0#))))))(SETQ T|0#(TO@j TQ##)))(IF(AND TQ## T|0#)(SETQ T00#(LIST TQ## TQ0# T|0# T%0#))(PROGN(T0#@ T%##)(IF(NULL TQ##)(TlO@ 131(STRCAT"\n\n""Saved Path: "TQ0#"\n"))(IF(NULL T|0#)(TlO@ 132"")))(T|#@ T%##)))))T00#)
(defun Tj$#(T%## T@$# TQ$# / Tl$# Tj0# T$0j Tj|Q T&$# T1$# T#$# T?|& T0$# T|Q T$$# TO$# T|$# T%$# T?O# TjO#)(SETQ Tl$# NIL Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE"))(PROGN(SETQ Tj|Q(T%&j 10 Tj0# NIL)T$$#(CAR(T1&j 13 Tj0#))TO$#(CADR(T1&j 13 Tj0#))T?|&(LIST 0.0 0.0)T0$#(T$1(T1&j 11 Tj0#)1E-8)T|Q(T$1(T1&j 12 Tj0#)1E-8)T|$#(ANGLE T?|& T0$#)T%$#(ANGLE T?|& T|Q)T?O#(DISTANCE T?|& T0$#)TjO#(DISTANCE T?|& T|Q)T$0j(T%$j Tj0# 256 NIL))(IF(NULL T@$#)(IF(OR(NOT(EQUAL(T%|j(- T%$# T%&))T|$# 1E-8))(NOT(EQUAL T?O# TjO# 1E-8)))(PROGN(IF(EQUAL(T%|j(- T%$# T#%l))T|$# 1E-8)(T#O@ 211""T)(IF TQ$#(T#O@ 210""T)(T#O@ 209""T)))(SETQ T%$#(T%|j(+ T|$# T%&))TjO# T?O# T0$#(T$1(T@1(POLAR T?|& T|$# T?O#)0.0)1E-10)T|Q(T$1(T@1(POLAR T?|& T%$# TjO#)0.0)1E-10))(T##j Tj0#(LIST(LIST 11 T0$#)(LIST 12 T|Q))))))(SETQ T&$#(POLAR Tj|Q T|$#(* T$$# T?O#))T1$#(POLAR Tj|Q T%$#(* TO$# TjO#))T#$#(POLAR T&$# T%$#(* TO$# TjO#))Tl$#(LIST Tj|Q T&$# T1$# T#$#(FIX T$$#)(FIX TO$#)T?O# TjO# T|$# T%$# T$0j))))Tl$#)
(defun T@O#(T%## TQO# Tl$# TlO# T&O# T1O# T#O# T0O# / Tj0# T$O# TOO# T|O# T0@)(IF(AND T%## TQO# Tl$#)(PROGN(SETQ Tj0#(Tj&j T%##)T$O# 0 TOO# 0 T|O# 0)(IF(AND T0O#(T&0# T%##))(SETQ T$O#(FIX(T1&j 91 Tj0#))))(IF(AND TlO# T&O#(=(LENGTH TlO#)(LENGTH T&O#)))(SETQ TOO#(LENGTH TlO#)))(IF T1O#(SETQ T|O#(LENGTH T1O#)))(Tllj(LIST"OBJ_IMAGE"(NTH 0 TQO#)(NTH 1 TQO#)"T"(NTH 2 TQO#)(NTH 3 TQO#)(LIST(NTH 4 Tl$#))(LIST(NTH 5 Tl$#))(LIST(NTH 6 Tl$#)0 10)(LIST(NTH 7 Tl$#)0 10)(LIST(NTH 8 Tl$#)0 10)(LIST(NTH 9 Tl$#)0 10)(LIST"T"(NTH 0 Tl$#)(NTH 1 Tl$#)10)(LIST"T"(NTH 2 Tl$#)(NTH 3 Tl$#)10)(LIST(NTH 10 Tl$#))(LIST T#O#)(LIST T$O#)(LIST TOO#)(LIST T|O#)))(IF(> T$O# 0)(WHILE Tj0#(SETQ T0@(T1&j 14(LIST(CAR Tj0#))))(IF T0@(Tllj(LIST(LIST(LIST(+(CAR T0@)T%O#)(+(CADR T0@)T%O#))10))))(SETQ Tj0#(CDR Tj0#))))(WHILE(AND TlO# T&O#)(Tllj(LIST(LIST"T"(CAR TlO#)(CAR T&O#)10)))(SETQ TlO#(CDR TlO#)T&O#(CDR T&O#)))(WHILE T1O#(SETQ T0@(LIST(CADR(CAR T1O#))(CADDR(CAR T1O#))))(Tllj(LIST(LIST T0@ 10)))(SETQ T1O#(CDR T1O#))))))
(defun T?|#(/ Tj|# T??j T%%)(SETQ Tj|# 0 T??j(LENGTH T@|#)T%% -1)(REPEAT T??j(IF(=(NTH(SETQ T%%(+ T%% 1))T@|#)"OBJ_IMAGE")(SETQ Tj|#(+ Tj|# 1))))Tj|#)
(defun TQ|#(Tl|# / T&|# TOQj T1|# T#|# T0|# T%%l)(SETQ T&|# NIL T1|#(LENGTH T@|#))(IF(> T1|# 0)(PROGN(SETQ T%%l NIL T#|# 0 T0|# 0)(WHILE(AND(< T0|# T1|#)(NULL T%%l))(SETQ TOQj(NTH T0|# T@|#))(IF(= TOQj"OBJ_IMAGE")(PROGN(SETQ T#|#(+ T#|# 1))(IF(> T#|# Tl|#)(SETQ T%%l T))))(IF(= T#|# Tl|#)(SETQ T&|#(APPEND T&|#(LIST TOQj))))(SETQ T0|#(+ T0|# 1)))))T&|#)
(defun T$|#(T%## T|0# TO|# / Tj0# T@0# T||#)(IF T%|#(IF TO|#(command-s"._-IMAGE""_R"T|0#)(command-s"._-IMAGE""_U"T|0#))(IF T%##(PROGN(SETQ Tj0#(Tj&j T%##))(IF(TO&j Tj0#"IMAGE")(PROGN(SETQ T@0#(Tj&j(T1&j 340 Tj0#)))(IF TO|#(SETQ T||# 1)(SETQ T||# 0))(T##j T@0#(LIST(LIST 280 T||#))))))))(IF T?%#(command-s"._REGEN")(REDRAW T%##)))
(defun Tj%#(T%## T|0# TQ## TQ0# T$$# TO$# / Tj0# T@0# T|&@ T#1& T$1Q)(IF T@%#(PROGN(SETQ T|&@(STRCAT(TO@j TQ##)(T#@j TQ##)))(IF(FINDFILE T|&@)(SETQ TQ## T|&@)(IF(FINDFILE TQ0#)(SETQ TQ## TQ0#)))))(IF T%|#(command-s"._-IMAGE""_P"T|0# TQ##)(IF T%##(PROGN(SETQ Tj0#(Tj&j T%##))(IF(TO&j Tj0#"IMAGE")(PROGN(SETQ T@0#(Tj&j(T1&j 340 Tj0#)))(T##j T@0#(LIST(LIST 1 TQ##))))))))(SETQ Tj0#(Tj&j T%##))(IF Tj0#(PROGN(SETQ T#1&(CAR(T1&j 13 Tj0#))T$1Q(CADR(T1&j 13 Tj0#)))(IF(OR(/=(FIX T#1&)(FIX T$$#))(/=(FIX T$1Q)(FIX TO$#)))(T##j(Tj&j T%##)(LIST(LIST 13(LIST T$$# TO$# 0.0)))))))(IF T?%#(command-s"._REGEN")(REDRAW T%##)))
(defun TQ%#(T%## / Tj0# TQ@#)(SETQ Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE")(ASSOC 70 Tj0#))(PROGN(SETQ TQ@#(T1&j 70 Tj0#))(IF(=(LOGAND TQ@# 8)0)(PROGN(SETQ TQ@#(LOGIOR TQ@# 8))(T##j Tj0#(LIST(LIST 70 TQ@#)))(REDRAW T%##)))(command-s"._DRAWORDER"T%##"""_BACK"))))
(defun Tl%#(T%## T&%# / Tj0# TQ@# T#?# T1%# T#%# T0%#)(SETQ Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE")T&%#(>=(LENGTH T&%#)2)(ASSOC 70 Tj0#)(ASSOC 71 Tj0#)(ASSOC 280 Tj0#)(ASSOC 91 Tj0#))(PROGN(SETQ TQ@#(T1&j 70 Tj0#))(IF(=(LOGAND TQ@# 4)0)(SETQ TQ@#(LOGIOR TQ@# 4)))(IF(>(LENGTH T&%#)2)(PROGN(SETQ T#?# 2)(IF(>(DISTANCE(CAR T&%#)(LAST T&%#))1E-8)(SETQ T&%#(APPEND T&%#(LIST(CAR T&%#))))))(SETQ T#?# 1))(SETQ T1%#(LENGTH T&%#))(SETQ Tj0#(T&#j Tj0# 14))(WHILE T&%#(SETQ T#%#(T?1(CAR T&%#))T#%#(LIST(-(CAR T#%#)T%O#)(-(CADR T#%#)T%O#))Tj0#(APPEND Tj0#(LIST(CONS 14 T#%#)))T&%#(CDR T&%#)))(IF(AND(= T%lj 3)(>= T?&j 20120800))(SETQ T0%#(T1&j 290 Tj0#)Tj0#(T&#j Tj0# 290)Tj0#(APPEND Tj0#(LIST(CONS 290 T0%#)))))(T##j Tj0#(LIST(LIST 70 TQ@#)(LIST 280 1)(LIST 71 T#?#)(LIST 91 T1%#)))(REDRAW T%##))))
(defun T$%#(T%## / Tj0# T#%# T0%#)(SETQ Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE")(ASSOC 70 Tj0#)(ASSOC 71 Tj0#)(ASSOC 280 Tj0#)(ASSOC 91 Tj0#))(PROGN(SETQ Tj0#(T&#j Tj0# 14)T#%#(LIST -0.5 -0.5)T#%#(LIST(-(CAR T#%#)T%O#)(-(CADR T#%#)T%O#))Tj0#(APPEND Tj0#(LIST(CONS 14 T#%#)))T#%#(T1&j 13 Tj0#)T#%#(LIST(-(CAR T#%#)0.5)(-(CADR T#%#)0.5))T#%#(LIST(-(CAR T#%#)T%O#)(-(CADR T#%#)T%O#))Tj0#(APPEND Tj0#(LIST(CONS 14 T#%#))))(IF(AND(= T%lj 3)(>= T?&j 20120800))(SETQ T0%#(T1&j 290 Tj0#)Tj0#(T&#j Tj0# 290)Tj0#(APPEND Tj0#(LIST(CONS 290 T0%#)))))(T##j Tj0#(LIST(LIST 280 0)(LIST 71 1)(LIST 91 2)))(REDRAW T%##))))
(defun TO%#(T%## T|%# / Tj0# T%%# T??0 Tj?0)(SETQ Tj0#(Tj&j T%##))(IF(AND Tj0#(TO&j Tj0#"IMAGE")(ASSOC 70 Tj0#)(ASSOC 280 Tj0#))(PROGN(SETQ T%%#(T1&j 280 Tj0#))(IF(= T%%# 1)(PROGN(SETQ T??0(T1&j 70 Tj0#))(SETQ Tj?0(- T??0(LOGAND T??0 4)))(IF T|%#(SETQ Tj?0(LOGIOR Tj?0 4)))(IF(/= T??0 Tj?0)(PROGN(T##j Tj0#(LIST(LIST 70 Tj?0)))(REDRAW T%##))))))))
(defun T@?0(/ TQ?0 Tl?0 T%&& Tj0)(SETQ TQ?0 NIL Tl?0(TBLNEXT"VIEW"T))(WHILE Tl?0(SETQ T%&&(TO#(T1&j 2 Tl?0)" ")Tj0 0)(REPEAT 10(SETQ T%&&(TO# T%&&(ITOA Tj0))Tj0(+ Tj0 1)))(IF(NOT(MEMBER T%&& TQ?0))(IF(/=(STRCASE T%&&)"TEMPVIEW")(SETQ TQ?0(APPEND TQ?0(LIST T%&&)))))(SETQ Tl?0(TBLNEXT"VIEW")))TQ?0)
(defun T&?0(/ T1?0)(SETQ T1?0(STRCASE(GETVAR"HPNAME"))T#?0 1)(IF(= T1?0"")(SETQ T#?0 0))(IF(= T1?0"U,N")(SETQ T#?0 0))(IF(= T1?0"U")(SETQ T#?0 0))(IF(= T1?0"_U")(SETQ T#?0 0))(IF(= T1?0"_USER")(SETQ T#?0 0))(IF(= T1?0"SOLID")(SETQ T#?0 2))(IF(= T#?0 0)(SETVAR"HPSPACE"(* Tl$l T&0l))))
(defun T0?0(T$?0 /)(IF(OR(= T%lj 11)(AND(= T%lj 3)(>= T?&j 20091231)))(command-s"._HATCH""_S"T$?0"""")(COND((= T#?0 0)(command-s"._HATCH""_U"""""""T$?0""))((= T#?0 1)(command-s"._HATCH"""""""T$?0""))((= T#?0 2)(command-s"._HATCH"""T$?0""))))(IF(/= T#?0 2)(SETVAR"HPANG"(T%|j(+(GETVAR"HPANG")(* 11 PI 0.05))))))
(defun TO?0(/ T|?0 T%?0 T&| T@$1 T@Q TQQ TOQj T?Q T?j0 Tjj0)(SETQ Tjj0 NIL T%?0 NIL T@Q NIL TQQ NIL T?j0 8)(IF(FINDFILE T@j0)(PROGN(SETQ T|?0(OPEN T@j0"r"))(WHILE(AND(SETQ TOQj(READ-LINE T|?0))(<(LENGTH T%?0)3))(SETQ T%?0(APPEND T%?0(LIST TOQj))))(CLOSE T|?0)(T@Qj T@j0)))(IF(AND T%?0(>=(LENGTH T%?0)3)(=(NTH 0 T%?0)"Error"))(PROGN(SETQ Tjj0 T TOQj(NTH 1 T%?0))(IF(AND TOQj(/= TOQj""))(PROGN(SETQ T&|(TQO TOQj" "))(IF(>(LENGTH T&|)1)(SETQ T@Q(LIST(ATOF(NTH 0 T&|))(ATOF(NTH 1 T&|)))))(SETQ TOQj(NTH 2 T%?0))(IF(AND TOQj(/= TOQj""))(PROGN(SETQ T&|(TQO TOQj" "))(IF(>(LENGTH T&|)1)(SETQ TQQ(LIST(ATOF(NTH 0 T&|))(ATOF(NTH 1 T&|)))))))))(IF(AND T@Q TQQ)(PROGN(SETQ T?Q(*(DISTANCE T@Q TQQ)1.3))(IF(= T?Q 0.0)(SETQ T?Q(* 20 T|1l)))(command-s"._PLAN""_C")(command-s"._ZOOM""_C"(T&& T@Q TQQ)T?Q)(GRDRAW T@Q TQQ 1 1)(PRINC(T?O@ 142(STRCAT" "(RTOS(CAR T@Q)2 T?j0)","(RTOS(CADR T@Q)2 T?j0)" - "(RTOS(CAR TQQ)2 T?j0)","(RTOS(CADR TQQ)2 T?j0))))(GETSTRING(T$j@ T&Q@ 0""""))(REDRAW)))(IF(AND T@Q(NULL TQQ))(PROGN(command-s"._PLAN""_C")(command-s"._ZOOM""_C"T@Q(* 20 T|1l))(SETQ T@$1(T011 T@Q))(IF T@$1(Tj0@ T@$1)(TO1@ T@Q 1))(PRINC(T?O@ 143(STRCAT" "(RTOS(CAR T@Q)2 T?j0)","(RTOS(CADR T@Q)2 T?j0))))(GETSTRING(T$j@ T&Q@ 0""""))(IF T@$1(TQ0@ T@$1)(TQ#@ T@Q))))))Tjj0)
(defun TQj0(Tlj0 / T&j0)(IF T1j0(SETQ T&j0".htm")(SETQ T&j0""))(SETFUNHELP(STRCAT"c:"Tlj0)T#j0(STRCAT Tlj0 T&j0)))
(defun T0j0()(IF(AND T$j0 T#j0)(PROGN(TQj0"ChLng")(TQj0"TopoCfg")(TQj0"CodFile")(TQj0"EditLay")(TQj0"Pur")(TQj0"RenPct")(TQj0"FixHpct")(TQj0"Hpct")(TQj0"DelPct")(TQj0"AutoPct")(TQj0"OptPct")(TQj0"JoinPct")(TQj0"SelCod")(TQj0"ChCod")(TQj0"Xpct")(TQj0"Opct")(TQj0"MaxDenPct")(TQj0"Ipct")(TQj0"Epct")(TQj0"AscPct")(TQj0"MTT")(TQj0"ZDD")(TQj0"REDD")(TQj0"FixPct")(TQj0"IP")(TQj0"IPC")(TQj0"Iplan")(TQj0"RapPct")(TQj0"CRad")(TQj0"RefCoo")(TQj0"TabCoo")(TQj0"RxCoo")(TQj0"TxCoo")(TQj0"RecCom")(TQj0"Oins")(TQj0"IB")(TQj0"MScBl")(TQj0"RotBl")(TQj0"DelBl")(TQj0"ChL")(TQj0"Arr")(TQj0"Arr2")(TQj0"GenCP1")(TQj0"GenCP2")(TQj0"Detas")(TQj0"MDetas")(TQj0"RecalcArea")(TQj0"RefLink")(TQj0"HasPl")(TQj0"Timg")(TQj0"ChImg")(TQj0"JoinImg")(TQj0"TrimImg")(TQj0"ResImg")(TQj0"SaveGeoRef")(TQj0"ImgGeoRef")(TQj0"ImgOff")(TQj0"ImgOn")(TQj0"Uimg")(TQj0"Oimg")(TQj0"M3D")(TQj0"TrimM3D")(TQj0"JoinM3D")(TQj0"VM3D")(TQj0"CNN")(TQj0"ProjM3D")(TQj0"VOL")(TQj0"Om3d")(TQj0"CJ")(TQj0"FormPlns")(TQj0"NrPlan")(TQj0"DrPln")(TQj0"Opln")(TQj0"TrCoo")(TQj0"MR")(TQj0"MRS")(TQj0"Red0")(TQj0"LiftUp")(TQj0"SumTxt")(TQj0"BoxTxt")(TQj0"AlTxt")(TQj0"DimPl")(TQj0"MDimPl")(TQj0"InsVx")(TQj0"Mjoin")(TQj0"DelLay")(TQj0"AllBlack")(TQj0"GEdraw"))))
(defun TOj0(T0@ / T0j& Tl1& T|%1 T|j0 T%j0 T?@0 TO1j T?1j T|?@ TQOj TQj@ Tlj@ T&j@ T@Q TQQ T$%l T@?& TQ?& T%O1 T@|1 Tj@0 T@@0 Tj0 TQ?j TQ@0 T1@j TO@ T|@ T%@ T&?& T$|& TQ%j Tl@0 T&@0 T1@0 T#@0 T&@1 T0@0 T$@0 TO@0 T|@0 T%@0)
(defun T?Q0(T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0 / TjQ0)(IF(= T%@0"D")(IF(<=(T%|j(- Tl@0 T&@0))PI)(SETQ TjQ0(POLAR TQ?&(+(ANGLE TQ?& T%O1)T%&)(* T%0l T&0l)))(SETQ TjQ0(POLAR TQ?&(-(ANGLE TQ?& T%O1)T%&)(+(* T%0l T&0l)T1@0))))(IF(<=(T%|j(- T&@0 Tl@0))PI)(SETQ TjQ0(POLAR TQ?&(-(ANGLE TQ?& T%O1)T%&)(* T%0l T&0l)))(SETQ TjQ0(POLAR TQ?&(+(ANGLE TQ?& T%O1)T%&)(+(* T%0l T&0l)T1@0)))))TjQ0)
(defun T@Q0(T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0 / TQQ0)(IF(= T%@0"D")(IF(<=(T%|j(- Tl@0 T&@0))PI)(SETQ TQQ0(POLAR T%O1(+(ANGLE TQ?& T%O1)T%&)(* T%0l T&0l)))(SETQ TQQ0(POLAR T%O1(-(ANGLE TQ?& T%O1)T%&)(+(* T%0l T&0l)T1@0))))(IF(<=(T%|j(- T&@0 Tl@0))PI)(SETQ TQQ0(POLAR T%O1(-(ANGLE TQ?& T%O1)T%&)(* T%0l T&0l)))(SETQ TQQ0(POLAR T%O1(+(ANGLE TQ?& T%O1)T%&)(+(* T%0l T&0l)T1@0)))))TQQ0)(SETQ TQOj NIL TQj@ NIL Tlj@ NIL T&j@ NIL)(IF T0@(SETQ T0j&(T$$& T0@ T)))(IF T0j&(PROGN(SETQ TO@(CAR T0j&)T|@(CADR T0j&)T1@j(CADDR T0j&)T%@(CADDDR T0j&)T&?&(CAR(CDDDDR T0j&))T|?@(CAR(CDDDDR(CDR T0j&)))T0@(LIST TO@ T|@)T&@1(* Tl$l T&0l)T|%1(T&&# T0@(* 2.0 T&@1)NIL)T$@0 NIL TQ?j(SSLENGTH T|%1)Tj0 TQ?j)(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0)))T?1j(Tj&j TO1j))(IF(T$Oj(T$&j T?1j))(PROGN(SETQ T|@0 NIL)(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 4)))(SETQ T|@0 T))(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 6)))(SETQ T|@0 T))(IF T|@0(PROGN(SETQ Tl1&(T0Q& T?1j)TQ@0(LENGTH Tl1&))(IF(= TQ@0 3)(PROGN(SETQ T@Q(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))TQQ(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&)))T$%l(LIST(CADR(CADDR Tl1&))(CADDR(CADDR Tl1&)))TQ%j(ANGLE TQQ T0@))(IF(T@%j(ANGLE TQQ T@Q)(T%|j(- TQ%j(/ PI 10)))(T%|j(+ TQ%j(/ PI 10))))(IF(<=(DISTANCE T0@ T@Q)T&@1)(SETQ T&@1(DISTANCE T0@ T@Q)TQOj TO1j T@?& T@Q TQ?& TQQ T%O1 T$%l T$@0 T))))))))))(SETQ T|j0(SSADD)T%j0(SSADD)T?@0(SSADD))(IF(= T$@0 NIL)(SETQ T|%1(T&&# T0@(* T1$l T&0l)NIL))(PROGN(T#?1(T0?1 TQOj)15.0)(SETQ T|%1(T&&#(T&& TQ?& T%O1)(/(DISTANCE TQ?& T%O1)1.5)NIL))))(SETQ T#@0 NIL Tj0 -1)(REPEAT(SSLENGTH T|%1)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j TO1j))(IF(TO&j T?1j"TEXT")(PROGN(SETQ T$|&(T1&j 1 T?1j))(IF(= T$|& T1@j)(PROGN(SETQ T|@0 NIL)(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 3)))(SETQ T|@0 T))(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 6)))(SETQ T|@0 T))(IF T|@0(PROGN(SSADD TO1j T|j0)(SETQ TQj@ TO1j)(IF(= T#@0 NIL)(SETQ T#@0(T1&j 50 T?1j))))))))))(SETQ Tj0 -1)(REPEAT(SSLENGTH T|%1)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j TO1j))(IF(TO&j T?1j"TEXT")(PROGN(SETQ T$|&(T1&j 1 T?1j)TO@0 NIL)(IF(/= T$|& T1@j)(IF(T|% T$|&)(IF(= T$|& T%@)(SETQ TO@0 T)(IF(<(ABS(-(ATOF T$|&)(ATOF T%@)))0.01)(SETQ TO@0 T)))))(IF TO@0(PROGN(SETQ T|@0 NIL)(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 2)))(SETQ T|@0 T))(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 6)))(SETQ T|@0 T))(IF T|@0(PROGN(SSADD TO1j T%j0)(SETQ Tlj@ TO1j)(IF(= T#@0 NIL)(SETQ T#@0(T1&j 50 T?1j))))))))))(SETQ Tj0 -1)(REPEAT(SSLENGTH T|%1)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j TO1j))(IF(TO&j T?1j"TEXT")(PROGN(SETQ T$|&(T1&j 1 T?1j))(IF(/= T$|& T1@j)(PROGN(SETQ TO@0 NIL)(IF(= T$|& T%@)(SETQ TO@0 T)(IF(/= T%@"0.000")(IF(<(ABS(-(ATOF T$|&)(ATOF T%@)))0.01)(SETQ TO@0 T))))(IF(= TO@0 NIL)(PROGN(SETQ T|@0 NIL)(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 1)))(SETQ T|@0 T))(IF(=(STRCASE(T1$j T?1j))(STRCASE(T&Ol 6)))(SETQ T|@0 T))(IF T|@0(PROGN(SSADD TO1j T?@0)(IF(= T#@0 NIL)(SETQ T#@0(T1&j 50 T?1j))))))))))))(IF(= T$@0 NIL)(PROGN(SETQ TQj@ NIL Tlj@ NIL T&j@ NIL T@|1 T0@)(IF(>(SSLENGTH T|j0)0)(PROGN(SETQ T&@1(* 2 T1$l T&0l)Tj0 -1)(REPEAT(SSLENGTH T|j0)(SETQ TO1j(SSNAME T|j0(SETQ Tj0(+ Tj0 1)))T@|1(T%&j 10(Tj&j TO1j)T)T0@0(DISTANCE T@|1 T0@))(IF(<= T0@0 T&@1)(SETQ T&@1 T0@0 TQj@ TO1j)))(SETQ T@|1(T%&j 10(Tj&j TQj@)T))))(IF(>(SSLENGTH T%j0)0)(PROGN(SETQ T&@1(* T&$l T&0l)Tj0 -1)(REPEAT(SSLENGTH T%j0)(SETQ TO1j(SSNAME T%j0(SETQ Tj0(+ Tj0 1)))Tj@0(T%&j 10(Tj&j TO1j)T)T0@0(DISTANCE T@|1 Tj@0))(IF(<= T0@0 T&@1)(SETQ T&@1 T0@0 Tlj@ TO1j)))))(IF(=(SSLENGTH T?@0)1)(SETQ T&j@(SSNAME T?@0 0))))(PROGN(IF(= T#@0 NIL)(SETQ T#@0 T|&))(SETQ T1@0 T|1l)(IF(=(INTERS(POLAR T0@(+(ANGLE TQ?& T%O1)T%&)(* 10 T&$l T&0l))(POLAR T0@(+(ANGLE TQ?& T%O1)T#%l)(* 10 T&$l T&0l))TQ?&(POLAR TQ?& T#@0(* 10 T&$l T&0l))T)NIL)(SETQ T%@0"D")(SETQ T%@0"S"))(SETQ T&@1(* T%0l T&0l))(IF(>(SSLENGTH T|j0)1)(PROGN(SETQ Tj0 -1)(REPEAT(SSLENGTH T|j0)(SETQ TO1j(SSNAME T|j0(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j TO1j)T@|1(T%&j 10 T?1j T)T1@0(T1&j 40 T?1j)Tl@0(ANGLE TQ?& T@|1)T&@0(ANGLE TQ?& T%O1)Tj@0(T?Q0 T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0)T@@0(T@Q0 T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0)T0@0(DISTANCE T@|1(T?|l Tj@0 T@@0 T@|1 NIL)))(IF(<= T0@0 T&@1)(SETQ T&@1 T0@0 TQj@ TO1j)))))(SETQ T&@1(* T%0l T&0l))(IF(>(SSLENGTH T%j0)1)(PROGN(SETQ Tj0 -1)(REPEAT(SSLENGTH T%j0)(SETQ TO1j(SSNAME T%j0(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j TO1j)T@|1(T%&j 10 T?1j T)T1@0(T1&j 40 T?1j)Tl@0(ANGLE TQ?& T@|1)T&@0(ANGLE TQ?& T%O1)Tj@0(T?Q0 T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0)T@@0(T@Q0 T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0)T0@0(DISTANCE T@|1(T?|l Tj@0 T@@0 T@|1 NIL)))(IF(<= T0@0 T&@1)(SETQ T&@1 T0@0 Tlj@ TO1j)))))(SETQ T&@1(* T%0l T&0l))(IF(>(SSLENGTH T?@0)0)(PROGN(SETQ Tj0 -1)(REPEAT(SSLENGTH T?@0)(SETQ TO1j(SSNAME T?@0(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j TO1j)T@|1(T%&j 10 T?1j T)T1@0(T1&j 40 T?1j)Tl@0(ANGLE TQ?& T@|1)T&@0(ANGLE TQ?& T%O1)Tj@0(T?Q0 T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0)T@@0(T@Q0 T%@0 TQ?& T%O1 Tl@0 T&@0 T1@0)T0@0(DISTANCE T@|1(T?|l Tj@0 T@@0 T@|1 NIL)))(IF(>(DISTANCE TQ?& Tj@0)T1@0)(IF(<= T0@0 T&@1)(SETQ T&@1 T0@0 T&j@ TO1j))))))))))(LIST T|?@ TQOj TQj@ Tlj@ T&j@))
(defun TlQ0(/ T@%1 T|?@ T&Q0 T&?@)(SETQ T&?@ NIL)(IF(Tl?@)(PROGN(SETQ T@%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T@%1)(PROGN(SETQ T|?@(SSNAME T@%1 0)T&Q0(T0j@ T|?@))(IF(OR(= T&Q0 4)(= T&Q0 5))(SETQ T&?@ T))))))T&?@)
(defun T1Q0(/ T@%1 T|?@ T%?@ T0@ T#Q0 T0Q0 T$Q0 T&Q0 Tj0)(IF(AND TOQ0(Tl?@))(PROGN(T?QQ(quote (("VIEW"))))(SETQ T@%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T@%1)(PROGN(PRINC"\nUpdating points to the latest version. Wait ...")(SETQ T$Q0 NIL T#Q0(TBLNEXT"LAYER"T))(WHILE T#Q0(IF(<(T1&j 62 T#Q0)0)(SETQ T0Q0 NIL)(SETQ T0Q0 T))(SETQ T$Q0(APPEND T$Q0(LIST T0Q0)))(TQ0j(T1&j 2 T#Q0))(SETQ T#Q0(TBLNEXT"LAYER")))(T0Ol)(command-s"._PLAN""_C")(command-s"._ZOOM""_E")(SETQ Tj0(SSLENGTH T@%1))(T&QQ Tj0)(WHILE(> Tj0 0)(T#QQ)(SETQ T|?@(SSNAME T@%1(SETQ Tj0(1- Tj0)))T&Q0(T0j@ T|?@))(COND((= T&Q0 4)(SETQ T0@(T%&j 10(Tj&j T|?@)T)T%?@(TOj0 T0@))(TO?@ T|?@ T%?@))((= T&Q0 5)(SETQ T%?@(T#j@ T|?@))(TO?@ T|?@ T%?@))))(T0QQ)(SETQ T#Q0(TBLNEXT"LAYER"T))(WHILE T#Q0(IF(CAR T$Q0)(Tj0j(T1&j 2 T#Q0))(TQ0j(T1&j 2 T#Q0)))(SETQ T$Q0(CDR T$Q0)T#Q0(TBLNEXT"LAYER")))))(TjjQ))))
(defun T|Q0(/ Tj0 T&| TOQj T1@j T%Q0 T%@ T?l0 Tjl0 T@l0 T$O1 TQl0 Tll0 T&l0 T1l0 T&OQ TOOQ T11& T#@@)(SETQ T#@@ 51)(T#$l T#l0 NIL)(SETVAR"PLINEWID"0)(SETQ Tj0 0 T1@j(T?#Q)Tll0(TOO T1@j)TQl0(-(ATOI(CADR Tll0))1)T&l0(CAR Tll0)T1l0(CADDR Tll0))(Tj@@(T@@@(T%l T#@@ 1))0"")(T$01)(IF(FINDFILE T%jQ)(PROGN(SETQ T|jQ(OPEN T%jQ"r")TOjQ T)(IF(SETQ TOQj(READ-LINE T|jQ))(SETQ Tj0(ATOI TOQj)))))(IF(> Tj0 0)(PROGN(T&QQ Tj0)(SETQ Tj0 0)(WHILE(SETQ TOQj(READ-LINE T|jQ))(T#QQ)(SETQ T&|(TQO TOQj","))(IF T&|(IF(>=(LENGTH T&|)12)(PROGN(SETQ Tj0(+ Tj0 1)T1@j(NTH 0 T&|)T%Q0(LIST(ATOF(NTH 2 T&|))(ATOF(NTH 1 T&|)))T%@(ATOF(NTH 3 T&|))T?l0(NTH 4 T&|)Tjl0(NTH 5 T&|))(IF(=(NTH 6 T&|)"D")(SETQ T@l0 T)(SETQ T@l0 NIL))(SETQ T$O1(LIST(ATOF(NTH 8 T&|))(ATOF(NTH 7 T&|)))T&OQ(NTH 9 T&|)TOOQ(NTH 10 T&|))(IF T1#l(SETQ T%Q0(Tl& T%Q0 TO@Q)))(TO01 T%Q0 T1@j T%@ T?l0 Tjl0 T$O1 T@l0 T)(IF(AND T&#l(OR(/= T&OQ"")(/= TOOQ"")))(PROGN(IF T$1l(SETQ T%Q0(T@1 T%Q0 T%@)))(SETQ T11&(* T&0l(ATOF(NTH 11 T&|))))(IF(EQUAL T11& 0.0 1E-8)(SETQ T11& 1.0))(IF(AND(/= T&OQ"")(TBLSEARCH"BLOCK"T&OQ))(IF(NOT(TlOQ T&OQ T%Q0))(T?|Q T&OQ T%Q0 T11& T11& T11&(T0& T%Q0)NIL)))(IF(/= TOOQ"")(IF(NOT(T$OQ TOOQ T%Q0))(command-s"._SHAPE"TOOQ T%Q0 T11&(T0& T%Q0))))))(SETQ Tll0(TOO T1@j)T1@j(ATOI(CADR Tll0)))(IF(> T1@j TQl0)(SETQ TQl0 T1@j T&l0(CAR Tll0)T1l0(CADDR Tll0)))))))(Tj#Q(STRCAT T&l0(ITOA TQl0)T1l0))(T0QQ)(command-s"._ZOOM""_E")(command-s"._REGEN")))(IF TOjQ(PROGN(CLOSE T|jQ)(SETQ TOjQ NIL)))(IF(> Tj0 0)(Tj@@(T@@@(T%l T#@@ 2))0(ITOA Tj0)))(T@Qj T%jQ)(IF(FINDFILE"RapPct.scr")(command-s"._SCRIPT"(FINDFILE"RapPct.scr"))))
(defun T0l0(T$l0 TOl0 / T|l0 T&| TlQj T%l0)(SETQ T|l0(T$Ql(T#Ql 5)".coo"1))(IF T$l0(SETQ T%l0 T$l0)(SETQ T%l0(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))T|l0)))(TlOl T#l0)(QQSE T?&0"RPT"Tj&0(ITOA T|lj)(T#| TOl0)T%l0)(IF(QQEC)(T|Q0)))
(defun T@&0(T%l0 T@%1 TQ&0 Tl&0 / TQjj T&&0 T#@@)(SETQ T#@@ 56)(IF(AND(T01@ T@%1)T%l0)(PROGN(IF(=(STRCASE(T#@j T%l0))".CSV")(SETQ TQjj(T#ll))(SETQ TQjj" "))(SETQ T&&0(QQWC T@%1 T%l0 T1?@ TQjj TQ&0 Tl&0 T1&0))(IF(AND T&&0(> T&&0 1E-8))(PROGN(SETQ T&&0(Tl T&&0))(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))))(Tj@@(T@@@(T%l T#@@ 1))T#|1 T%l0)(Tj@@(T@@@(T%l T#@@ 2))T#|1(ITOA T&&0)))))))
(defun T#&0(/)(SETQ T0&0 T#1l T$&0 T$1l TO&0 T01l T|&0 TO#l T%&0 TO1l T?10 TQ#l Tj10 T|1l T@10 T|& TQ10 T%1l Tl10 Tl#l T&10 T1?@))
(defun T110(/ T|%1 TO1j T?1j T#10 T010 T&| T@?@ T0%& T&@# T1@# T#@# T$10 T$l# T#Q# T%l0 T?0Q Tj0Q TO10 T|10 TQ?j TjOQ T%10 T?#0 Tj#0 T@#0 TQ#0 Tl#0 T&#0 T1#0 T##0 T#@@)(SETQ T#@@ 28 T11Q NIL)(SETVAR"PICKSTYLE"0)(IF T0#0(Tj@@ T1Q@ 0""))(T#$l T#l0 NIL)(SETQ T1#0 NIL T##0 NIL)(IF(AND T0&0(NOT(EQUAL T#1l T0&0 1E-2)))(PROGN(SETQ T|10(/ T#1l T0&0))(IF(/= T0@l"")(PROGN(SETQ T|%1(SSGET"X"(LIST(CONS 8 T0@l))))(IF(T01@ T|%1)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 1))"1:"(RTOS T#1l 2 0)(Tl@@(T%l T#@@ 1)))0 T%@@""))T?Q@)(PROGN(command-s"._ERASE"T|%1"")(WHILE(T$#0 T))(T1%@ Tl?Q NIL)))))))(TOOl)(T$Ol)(SETQ TQ#0(TBLSEARCH"LAYER"T0@l))(IF TQ#0(PROGN(SETQ T&#0 T)(IF(<(T1&j 62 TQ#0)0)(SETQ T&#0 NIL))(SETVAR"CLAYER""0")(IF T&#0(TQ0j T0@l))))(Tj@@(TQ$(TQ$(T@@@(T%l T#@@ 2))"..."(STRCAT"1:"(RTOS T0&0 2 0)))"..."(STRCAT"1:"(RTOS T#1l 2 0)))0"")(SETQ T|%1(SSGET))(IF TQ#0(IF T&#0(Tj0j T0@l)))(T%Ol)(IF(T01@ T|%1)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 3))0 T%@@""))T?Q@)(PROGN(SETQ TQ?j(SSLENGTH T|%1))(WHILE(> TQ?j 0)(SETQ TO1j(SSNAME T|%1(SETQ TQ?j(1- TQ?j)))T@?@(TQj# TO1j))(IF T@?@(command-s"._SCALE"TO1j""T@?@ T|10)))))(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 4))0 T%@@""))T?Q@)(PROGN(TOOl)(T$Ol)(SETQ TQ#0(TBLSEARCH"LAYER"T0@l))(IF TQ#0(PROGN(SETQ T&#0 T)(IF(<(T1&j 62 TQ#0)0)(SETQ T&#0 NIL))(SETVAR"CLAYER""0")(IF T&#0(TQ0j T0@l))))(SETQ TQ?j(SSLENGTH T|%1))(WHILE(> TQ?j 0)(SETQ TO1j(SSNAME T|%1(SETQ TQ?j(1- TQ?j))))(IF(T$Oj(T$&j(Tj&j TO1j)))(T&1& TO1j T|10)))(IF TQ#0(IF T&#0(Tj0j T0@l)))(T%Ol)))(IF T#0Q(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 5))0 T%@@""))T?Q@)(PROGN(SETQ T|10 1.0 T%10 0 T?#0 0)(Tj@@(T@@@(T%l T#@@ 58))0(STRCAT(TO@j T00Q)(T#@j T00Q)))(SETQ TjOQ -1)(REPEAT(LENGTH T#0Q)(SETQ TjOQ(+ TjOQ 1)T&|(NTH TjOQ T#0Q)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|))TO10(CAR(CDR(CDDDDR T&|))))(IF(/= Tj0Q"")(PROGN(IF(= T?0Q 1)(SETQ Tj#0(T$%1 Tj0Q(* T&0l TO10 T|10)T|%1)T%10(+ T%10 Tj#0)))(IF(= T?0Q 2)(SETQ T@#0(T%%1 Tj0Q(* T&0l TO10 T|10)T|%1)T?#0(+ T?#0 T@#0))))))(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 61)))(STRLEN(T@@@(T%l T#@@ 62)))))(Tj@@(T@@@(T%l T#@@ 61))T#|1(ITOA T%10))(Tj@@(T@@@(T%l T#@@ 62))T#|1(ITOA T?#0))))))(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 6))0 T%@@""))T?Q@)(PROGN(TOOl)(T$Ol)(SETQ TQ#0(TBLSEARCH"LAYER"T0@l))(IF TQ#0(PROGN(SETQ T&#0 T)(IF(<(T1&j 62 TQ#0)0)(SETQ T&#0 NIL))(SETVAR"CLAYER""0")(IF T&#0(TQ0j T0@l))))(SETQ T#Q#(*(GETVAR"DIMSCALE")(GETVAR"DIMTXT")0.5)TQ?j(SSLENGTH T|%1))(WHILE(> TQ?j 0)(SETQ TO1j(SSNAME T|%1(SETQ TQ?j(1- TQ?j)))T?1j(Tj&j TO1j))(IF(TO&j T?1j"DIMENSION")(PROGN(SETQ T#10 T?1j T&@#(T%&j 10 T#10 NIL)T1@#(T%&j 13 T#10 NIL)T#@#(T%&j 14 T#10 NIL)T$l#(T1&j 70 T#10)T0%& NIL)(COND((= T$l# 33)(SETQ T0%&(POLAR T#@#(ANGLE T#@# T&@#)(* T|10(DISTANCE T#@# T&@#)))))((= T$l# 32)(SETQ T0%&(POLAR T#@#(ANGLE T#@# T&@#)(+(DISTANCE T#@# T&@#)(* T#Q#(- 1(/ 1 T|10)))))))((= T$l# 37)(SETQ T$10(T%&j 15 T#10 NIL)T0%&(POLAR T$10(ANGLE T$10 T&@#)(+(DISTANCE T$10 T&@#)(* T#Q#(- 1(/ 1 T|10))))))))(IF T0%&(T##j T#10(LIST(LIST 10 T0%&)))))))(command-s"._DIMSTYLE""_APPLY"T|%1"")(IF TQ#0(IF T&#0(Tj0j T0@l)))(T%Ol)))(SETQ T|%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T|%1)(PROGN(IF T1%1(SETQ T|%1(T&%1 T|%1)))(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 7))"1:"(RTOS T#1l 2 0)(Tl@@(T%l T#@@ 7)))0 T%@@""))T?Q@)(SETQ T1#0 T)(SETQ T##0 T))))))))(SETQ Tl#0 T1?@)(IF(AND TO&0(NULL T1#0)(NULL T##0))(IF(OR(/= TO&0 T01l)(/= T$&0 T$1l)(AND(/= T01l 0)(/= T|&0 TO#l))(/=(STRCASE TO1l)(STRCASE T%&0))(NOT(EQUAL TQ#l T?10 1E-8))(NOT(EQUAL T|1l Tj10 1E-8))(NOT(EQUAL T|& T@10 1E-8))(NOT(EQUAL T%1l TQ10 1E-8))(/= Tl#l Tl10)(/=(STRCASE T1?@)(STRCASE T&10)))(PROGN(SETQ T|%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T&10))))(IF(T01@ T|%1)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 8))0 T%@@""))T?Q@)(SETQ T1#0 T)))))))(IF(AND T1#0(T01@ T|%1))(PROGN(IF T1%1(SETQ T|%1(T&%1 T|%1)))(SETQ T1?@ T&10 T%l0(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))".tmp"))(T@&0 T%l0 T|%1 10 T11l)(QQDP T1?@ 1 NIL)(IF(= T|lj 1)(command-s"._REGEN"))(SETQ T1?@ Tl#0)(T0l0 T%l0 T)))(SETQ T0&0 T#1l T$&0 T$1l TO&0 T01l T|&0 TO#l T%&0 TO1l T?10 TQ#l Tj10 T|1l T@10 T|& TQ10 T%1l Tl10 Tl#l T&10 T1?@))
(defun TO#0(T|#0 /)(TlOl T#l0)(QQSE T?&0"CFG"Tj&0(ITOA T|lj)(ITOA T|#0))(IF(QQEC)(T110)))
(defun T%#0(/ T?00 Tj00 T%## T@00 T1O TQ00 Tl00 T&| Tj|Q T?|& T0$# T|Q T0@ TQ## TQ0# T&00 T|0# TO10 Tj|# T??j T%% Tj0 T100 T$$# TO$# T&j1 T|$# T%@ T00j T#00)(T#$l T#l0 NIL)(SETVAR"PICKSTYLE"0)(SETQ T&|(T#Ql 13)T?00(Tlll T&| T 7)Tj00(Tlll T&| T 9))(SETQ T@|#(T&Qj T000 T NIL NIL))(IF(AND T@|#(>=(LENGTH T@|#)11))(PROGN(SETQ Tj|#(T?|#))(IF(> Tj|# 0)(PROGN(Tl$j T$@l)(IF(TBLSEARCH"LAYER"T$@l)(SETQ T#00 T)(SETQ T#00 NIL))(SETQ TQ00 NIL T%% 0)(REPEAT Tj|#(SETQ T%%(+ T%% 1)T1O(TQ|# T%%))(IF T1O(PROGN(SETQ TQ##(NTH 1 T1O)TQ0#(NTH 2 T1O)T&00(NTH 3 T1O)T|0#(NTH 4 T1O)T%##(Tl&j(NTH 5 T1O))T$$#(ABS(ATOF(NTH 6 T1O)))TO$#(ABS(ATOF(NTH 7 T1O)))T&j1(ABS(ATOF(NTH 8 T1O)))T|$#(ATOF(NTH 9 T1O))Tj|Q(T@@j(NTH 10 T1O)" "))(IF(T|## T%##)(PROGN(SETQ T@00(Tj&j T%##)T%@(CADDR(T%&j 10 T@00 NIL))TQ00(APPEND TQ00(LIST(LIST 0 TQ## T&00 T|0# T@00)))Tj|Q(T@1 Tj|Q T%@)T?|&(LIST 0.0 0.0)T0$#(T$1(T@1(POLAR T?|& T|$# T&j1)0.0)1E-10)T|Q(T$1(T@1(POLAR T?|&(+ T|$# T%&)T&j1)0.0)1E-10))(IF T#00(SETQ T00j T$@l)(SETQ T00j(T1$j T@00)))(SETQ T@00(T##j T@00(LIST(LIST 8 T00j)(LIST 10 Tj|Q)(LIST 11 T0$#)(LIST 12 T|Q))))(Tj%# T%## T|0# TQ## TQ0# T$$# TO$#)(T$|# T%## T|0# T)(T$%# T%##)(SETQ T100(-(LENGTH T1O)11))(IF(AND Tj00(>= T100 3)(> T&j1 0.0))(PROGN(SETQ Tl00 NIL Tj0 10)(REPEAT T100(SETQ T0@(T?1(T@@j(NTH(SETQ Tj0(+ Tj0 1))T1O)" ")))(IF T0@(SETQ Tl00(APPEND Tl00(LIST T0@)))))(Tl%# T%## Tl00)))(IF T?00(TQ%# T%##)))(TlO@ 133 T|0#)))))(IF TQ00(SETQ T$00(APPEND T$00(LIST TQ00))))))))(SETQ T@|#(T&Qj TO00 NIL NIL NIL))(IF(AND T@|#(>=(LENGTH T@|#)19))(PROGN(SETQ Tj|#(T?|#))(IF(> Tj|# 0)(PROGN(SETQ T%% 0)(REPEAT Tj|#(SETQ T1O(TQ|#(SETQ T%%(+ T%% 1))))(IF T1O(PROGN(SETQ T|0#(NTH 4 T1O)T%##(Tl&j(NTH 5 T1O)))(IF(T|## T%##)(T$|# T%## T|0# T))))))))))
(defun T|00(T%00 / T?00 T%## T@00 T1O TQ00 Tj|Q TQ## TQ0# T&00 T|0# T$$# TO$# T?O# TjO# T0$# T|Q T?|& T|$# T%$# T?$0 Tj|# T??j T%% T100 Tj$0 T@$0 TQ$0 T#00)(SETQ T?00(Tlll(T#Ql 13)T 7))(SETQ T@|#(T&Qj T%jQ T NIL NIL))(SETQ Tj$0 11)(IF(= T%00 1)(SETQ Tj$0 8))(IF(= T%00 4)(SETQ Tj$0 13))(IF(AND T@|#(>=(LENGTH T@|#)Tj$0))(PROGN(SETQ Tj|#(T?|#))(IF(> Tj|# 0)(PROGN(Tl$j T$@l)(IF(TBLSEARCH"LAYER"T$@l)(SETQ T#00 T)(SETQ T#00 NIL))(SETQ TQ00 NIL T%% 0)(REPEAT Tj|#(SETQ T%%(+ T%% 1)T1O(TQ|# T%%))(IF T1O(PROGN(SETQ TQ##(NTH 1 T1O)TQ0#(NTH 2 T1O)T&00(NTH 3 T1O)T|0#(NTH 4 T1O)T%##(Tl&j(NTH 5 T1O))T$$#(ABS(ATOF(NTH 6 T1O)))TO$#(ABS(ATOF(NTH 7 T1O)))T@00(Tj&j T%##)T?$0"F")(IF(>= T%00 2)(PROGN(SETQ T?$0(NTH 8 T1O)T@$0(ATOF(NTH 9 T1O))TQ$0(ATOF(NTH 10 T1O)))(IF(= T%00 4)(SETQ T?O#(ATOF(NTH 11 T1O))TjO#(ATOF(NTH 12 T1O))))))(IF(T|## T%##)(PROGN(IF(= T&00"")(PROGN(T$|# T%## T|0# T)(IF(= T?$0"T")(PROGN(SETQ TQ00(APPEND TQ00(LIST(LIST 1 TQ## T&00 T|0# T@00))))(ENTDEL T%##))))(PROGN(SETQ TQ00(APPEND TQ00(LIST(LIST 0 TQ## T&00 T|0# T@00))))(IF T#00(T##j T@00(LIST(LIST 8 T$@l))))(IF(>= T%00 2)(PROGN(SETQ T@00(Tj&j T%##)Tj|Q(T%&j 10 T@00 NIL)Tj|Q(LIST T@$0 TQ$0(CADDR Tj|Q))T0$#(T1&j 11 T@00)T|Q(T1&j 12 T@00))(IF(= T%00 4)(SETQ T?|&(LIST 0.0 0.0)T|$#(ANGLE T?|& T0$#)T%$#(ANGLE T?|& T|Q)T0$#(T$1(T@1(POLAR T?|& T|$# T?O#)0.0)1E-10)T|Q(T$1(T@1(POLAR T?|& T%$# TjO#)0.0)1E-10)))(T##j T@00(LIST(LIST 10 Tj|Q)(LIST 11 T0$#)(LIST 12 T|Q)))))(Tj%# T%## T|0# TQ## TQ0# T$$# TO$#)(T$|# T%## T|0# T)(IF(>= T%00 2)(T$%# T%##))(IF T?00(TQ%# T%##)))))))))(IF TQ00(SETQ T$00(APPEND T$00(LIST TQ00)))))))))
(defun Tl$0(T&$0 / T1$0 T%## TQO# T%% T#@@)(SETQ T#@@ 212)(IF(T01@ T&@Q)(QQKE T&@Q""(LIST"IMAGE")0.0 0.0 0.0 0 0 0 2))(IF(T01@ T&@Q)(SETQ T1$0 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1$0(SSGET(LIST(CONS 0"IMAGE"))))))(IF(T01@ T1$0)(PROGN(SETQ T%%(SSLENGTH T1$0))(WHILE(> T%% 0)(SETQ T%##(SSNAME T1$0(SETQ T%%(1- T%%)))TQO#(T#0# T%##))(IF TQO#(T$|# T%##(NTH 2 TQO#)T&$0))))))
(defun T#$0(T0$0 T$$0 T00j / TO$0 T|$0 T%$0 T&| T?O0 TjO0 T@O0 TQO0 TlO0 T&O0 T1O0 T#O0 T0O0 T$O0 TOO0 T|O0 T%O0 T?|0 Tj|0 T@|0 TQ|0 Tl|0 T#@@)(SETQ Tl|0(FINDFILE T&|0))(IF(NULL(TO?0))(PROGN(IF(OR(= T0$0 1)(= T0$0 2))(IF Tl|0(PROGN(IF(= T0$0 1)(Tl$j T|@l)(PROGN(Tl$j T00j)(IF(T01@ T$$0)(command-s"._ERASE"T$$0""))))(LOAD T&|0))))(IF(= T0$0 3)(PROGN(SETQ T&|(T#Ql 14)TO$0(Tlll T&| T 3)T|$0(T|Ql T&| 0 22)T%$0(Tlll T&| T 23))(SETQ T#@@ 230 T@O0 0 T&|(T&Qj T%jQ NIL NIL 12))(IF(AND(>=(LENGTH T&|)12)(=(NTH 0 T&|)"VOLVIEW"))(PROGN(SETQ TQO0(ATOI(NTH 1 T&|))T%O0(ATOI(NTH 2 T&|))T?|0(ATOI(NTH 3 T&|))T@O0(+ T%O0 T?|0)TlO0(ATOF(NTH 4 T&|))T&O0(ATOF(NTH 5 T&|))T1O0(ATOF(NTH 6 T&|))T#O0(ATOF(NTH 7 T&|))T0O0(ATOF(NTH 8 T&|))T$O0(ATOF(NTH 9 T&|))TOO0(ATOF(NTH 10 T&|))T|O0(ATOF(NTH 11 T&|)))(IF(> T@O0 0)(Tj@@(T@@@(T%l T#@@ 1))0(ITOA T@O0)))(SETQ Tj|0(+(MAX(STRLEN(RTOS TlO0 2 TQ0l))(STRLEN(RTOS T&O0 2 TQ0l)))1)T@|0(STRLEN(RTOS(MAX T1O0 T#O0)2 Tj0l))TQ|0(STRLEN(RTOS(MAX T0O0 T$O0 TOO0 T|O0)2 Tj0l)))(SETQ T?O0(STRCAT(T@@@(T%l T#@@ 2))"(+)="(T#%(T#j TlO0)Tj|0 TQ0l T)Tl0l"; "(T@@@(T%l T#@@ 3))"(+)="(T#%(T&j T1O0)T@|0 Tj0l NIL)T@0l"; "))(SETQ TjO0(STRCAT(T@@@(T%l T#@@ 2))"(-)="(T#%(T#j T&O0)Tj|0 TQ0l T)Tl0l"; "(T@@@(T%l T#@@ 3))"(-)="(T#%(T&j T#O0)T@|0 Tj0l NIL)T@0l"; "))(IF(= TQO0 1)(SETQ T?O0(STRCAT T?O0(T@@@(T%l T#@@ 4))"(+)="(T#%(T&j T0O0)TQ|0 Tj0l NIL)T@0l"; "(Tl@@(T%l T#@@ 4))"(+)="(T#%(T&j TOO0)TQ|0 Tj0l NIL)T@0l";")TjO0(STRCAT TjO0(T@@@(T%l T#@@ 4))"(-)="(T#%(T&j T$O0)TQ|0 Tj0l NIL)T@0l"; "(Tl@@(T%l T#@@ 4))"(-)="(T#%(T&j T|O0)TQ|0 Tj0l NIL)T@0l";"))(SETQ T?O0(STRCAT T?O0(Tl@@(T%l T#@@ 3))"(+)="(T#%(T&j T0O0)TQ|0 Tj0l NIL)T@0l";")TjO0(STRCAT TjO0(Tl@@(T%l T#@@ 3))"(-)="(T#%(T&j T$O0)TQ|0 Tj0l NIL)T@0l";")))(Tj@@ T?O0 0"")(Tj@@ TjO0 0"")))(IF(AND TO$0 Tl|0)(PROGN(Tl$j T@Ql)(LOAD T&|0)(IF(AND(= T|$0 1)T%$0)(PROGN(IF(OR(T01@ QSETP)(T01@ QSETN))(Tj@@ T1Q@ 0""))(SETVAR"CECOLOR""1")(IF(T01@ QSETP)(command-s"._UNION"QSETP""))(SETVAR"CECOLOR""5")(IF(T01@ QSETN)(command-s"._UNION"QSETN""))(SETQ QSETN NIL QSETP NIL)))))))))(IF Tl|0(QQFD T&|0))(T@Qj T%jQ))
(defun T%?1(T1|0 / T%% TQOj T#|j T#|0 T0|0 T1Oj TQ0 T$|0)(SETQ T$|0 0 T0Oj NIL)(IF(T01@ T1|0)(PROGN(SETQ T%%(SSLENGTH T1|0))(WHILE(> T%% 0)(SETQ TQOj(SSNAME T1|0(SETQ T%%(1- T%%)))T#|j(ENTGET TQOj(quote ("TOPOLT")))T#|0(T|1j T#|j"SUP")T0|0(Tj&j(Tl&j T#|0)))(IF T0|0(PROGN(SETQ T1Oj(T1(CAR(T@Oj TQOj 0.0 0.0))Tj0l)TQ0(STRCAT(RTOS(T&j T1Oj)2 Tj0l)T@0l)T$|0(+ T$|0 1))(T##j T0|0(LIST(LIST 1 TQ0))))))))T$|0)
(defun C:TLTHELP()(T?QQ NIL)(IF T#j0(STARTAPP(STRCAT"hh.exe"" "(CHR 34)T#j0(CHR 34))))(TjjQ))
(defun C:TLTABOUT()(T?QQ NIL)(QQSE T?&0"ABO"Tj&0(ITOA T|lj))(TjjQ))
(defun C:TLTSETSER()(T?QQ NIL)(QQSE T?&0"KEY")(TjjQ))
(defun T$?1(T0@ TjO1 TO|0 / T0j& T@$1 T@#& T||0 T%|0 T?1j T?%0 T#10 TlO& TQOj Tj%0 T@%0 T|Q T&l TjOQ TQ%0 T|&& T%&& T#%& Tl%0 T&%0 T@?& TQ?& T@?@ TO%j T|%j T#O& T0%j T??@ Tl%j T&%j T%@& T#11 T1%0 Tl1& T#&& T0&& T$&& T#%0 T&0& T0%0)(SETQ Tl%0 T0@)(IF T0@(PROGN(T@@l T)(Tj0j(T&Ol 5))(SETQ T||0(T&&# T0@(+(T@j1)TjO1)NIL))(QQEE T||0(LIST(T&Ol 4)(T&Ol 6)T0@l)NIL 0 0 1)(IF(T01@ T||0)(PROGN(SETQ TQ%0(SSLENGTH T||0)TjOQ TQ%0)(WHILE(> TjOQ 0)(SETQ T%|0(SSNAME T||0(SETQ TjOQ(- TjOQ 1)))T?1j(Tj&j T%|0))(IF(T#?@ T?1j)(PROGN(SETQ T#%&(T%&j 10 T?1j T)T0j&(T$&1 T%|0)T#11 0.0)(IF T0j&(PROGN(SETQ T#11(ATOF(CADDDR T0j&)))(IF(OR T1#l TO|0)(SETQ T#11(T1 T#11 TO#l)))))(IF(<(DISTANCE(T?1 T0@)(T?1 T#%&))0.001)(PROGN(IF(OR T1#l TO|0)(SETQ Tl%0(Tl& T#%& TO@Q))(SETQ Tl%0 T#%&))(IF T$1l(SETQ Tl%0(T@1 Tl%0 T#11))(SETQ Tl%0(T@1 Tl%0 0.0)))(IF(NOT(ZEROP(DISTANCE Tl%0 T#%&)))(PROGN(SETQ T@$1(CDR(T011 T0@)))(T##j T?1j(LIST(LIST 10 Tl%0)(LIST 210(LIST 0.0 0.0 1.0))))(command-s"._MOVE"(T$11 T T@$1 NIL)""T#%& Tl%0))))))))(SETQ TQ%0(SSLENGTH T||0)TjOQ TQ%0)(WHILE(> TjOQ 0)(SETQ T%|0(SSNAME T||0(SETQ TjOQ(- TjOQ 1)))T?1j(Tj&j T%|0))(IF(TO&j T?1j"LINE")(PROGN(SETQ T?%0 T?1j T@?&(T%&j 10 T?%0 T?l1)TQ?&(T%&j 11 T?%0 T?l1)T0%0 NIL)(IF(OR(NOT(EQUAL(CADDR T@?&)0.0 1E-10))(NOT(EQUAL(CADDR TQ?&)0.0 1E-10)))(SETQ T0%0 T))(SETQ T1%0 T#11)(IF(NULL T0%0)(SETQ T1%0 0.0))(IF(<=(DISTANCE T@?& T0@)TjO1)(T##j T?%0(LIST(LIST 10(T@1 Tl%0 T1%0))(LIST 11 TQ?&)(LIST 210(LIST 0.0 0.0 1.0))))(IF(<=(DISTANCE TQ?& T0@)TjO1)(T##j T?%0(LIST(LIST 10 T@?&)(LIST 11(T@1 Tl%0 T1%0))(LIST 210(LIST 0.0 0.0 1.0))))(IF(T0|l T@?& T0@ TQ?& TjO1)(PROGN(T##j T?%0(LIST(LIST 10 T@?&)(LIST 11(T@1 Tl%0 T1%0))(LIST 210(LIST 0.0 0.0 1.0))))(SETQ T?%0(SUBST(CONS 10(T@1 Tl%0 T1%0))(ASSOC 10 T?%0)T?%0)T?%0(SUBST(CONS 11 TQ?&)(ASSOC 11 T?%0)T?%0))(IF(T1&j 210 T?%0)(SETQ T?%0(SUBST(CONS 210(LIST 0.0 0.0 1.0))(ASSOC 210 T?%0)T?%0)))(ENTMAKE)(ENTMAKE(CDR T?%0))))))))(IF(TO&j T?1j"DIMENSION")(PROGN(SETQ T#10 T?1j T@?&(T%&j 13 T#10 T?l1)TQ?&(T%&j 14 T#10 T?l1)T|Q(T1&j 210 T#10))(IF(AND T?l1(T%1 T|Q))(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(IF(<=(DISTANCE T@?& T0@)TjO1)(T##j T#10(LIST(LIST 13(T$l(T@1 Tl%0(CADDR T@?&))T&l))))(IF(<=(DISTANCE TQ?& T0@)TjO1)(T##j T#10(LIST(LIST 14(T$l(T@1 Tl%0(CADDR TQ?&))T&l))))))))(IF(TO&j T?1j"ARC")(PROGN(SETQ TlO& T?1j T#%0 NIL T@?@(T%&j 10 TlO& NIL)T??@(T1&j 40 TlO&)Tl%j(T1&j 50 TlO&)T&%j(T1&j 51 TlO&)TO%j(POLAR T@?@ Tl%j T??@)T|%j(POLAR T@?@ T&%j T??@)T0%j(T1%j Tl%j T&%j 1.0)T#O&(POLAR T@?@(T%|j(+ Tl%j(/ T0%j 2)))T??@)T|Q(T1&j 210 TlO&))(IF(NOT(T%1 T|Q))(PROGN(SETQ T@#&(LIST(CAR T@?@)(CADR T@?@)Tl%j(T1%j Tl%j T&%j 1.0)T??@))(IF(Tl@1 T@#& T0@ TjO1)(SETQ T#O& Tl%0 T#%0 T))(IF(<=(DISTANCE TO%j T0@)TjO1)(SETQ TO%j Tl%0 T#%0 T))(IF(<=(DISTANCE T|%j T0@)TjO1)(SETQ T|%j Tl%0 T#%0 T))(IF T#%0(PROGN(SETQ T@#&(T$%j TO%j T|%j(T0O& TO%j T|%j T#O&)))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&)0.0)Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j))(T##j TlO&(LIST(LIST 10 T@?@)(LIST 40 T??@)(LIST 50 Tl%j)(LIST 51 T&%j)))))))))))(IF(AND(T$Oj(T$&j T?1j))(/=(T%Oj(T1&j 70 T?1j))7))(PROGN(SETQ TQOj T?1j T&0&(TOOj TQOj)Tl1&(T0Q& TQOj)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0 T@%0 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T0&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&))))(IF(<=(DISTANCE T0&& T0@)TjO1)(T%l& T%|0 T|&&(T@1 Tl%0 T#11)T%@&))(SETQ T$&& NIL)(IF(< T|&& T%&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&))))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(IF(= T%@& 0.0)(IF(T0|l T0&& T0@ T$&& TjO1)(SETQ T%|0(T?&& T%|0(+ T|&& T@%0)(T@1 Tl%0 T#11))T@%0(+ T@%0 1)))(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&))(IF(Tl@1 T@#& T0@ TjO1)(PROGN(SETQ T%@&(T0O& T0&& T$&& Tl%0))(IF T%@&(T%l& T%|0 T|&&(T@1 T0&& T#11)T%@&)))))))(SETQ Tl1&(CDR Tl1&)))))(IF(TO&j T?1j"3DFACE")(PROGN(SETQ Tj%0 T?1j T|Q(T1&j 210 Tj%0)T|&& 9)(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(REPEAT 4(SETQ T|&&(+ T|&& 1)T&%0(Tll(T%&j T|&& Tj%0 NIL)T&l))(IF(<=(DISTANCE T&%0 T0@)TjO1)(SETQ Tj%0(T##j Tj%0(LIST(LIST T|&&(T$l(T@1 Tl%0 T#11)T&l))))))))))))(T@@l T)))Tl%0)
(defun T$%0(/ T|%1 TO%0 T||0 T|%0 T?1j T%|0 T%%0 Tl?l T?%0 TQOj TlO& T#10 Tj%0 Tl1& T1Q& T0j& T@#& T??$ T|Q T&l Tj?$ T@?$ T0@ T@?@ Tl#& TO%j T|%j T#O& T#%& Tl%& T&%& T1%& T&%0 T@?& TQ?& T&|l Tl%0 T#&& T&Q& T0&& T$&& T1@j TQ?$ Tl?$ T&?$ T&0 TjO1 T??@ T%@& Tl%j T&%j T0%j T1?$ Tj?1 T#?$ T#11 T1%0 T0?$ T$?$ T%&& T|&& TQ%0 TjOQ T@%0 TO?$ T|?$ T%%l T&0& T0%0 T#%0 T1?1 T#@@)(SETQ T#@@ 58 T|?$ T@#l T%%l NIL T|l& NIL TO%0 NIL TO?$ 0)(SETVAR"PLINEWID"0)(IF(Tl?@)(PROGN(SETQ T$?$ 8 TQ?$(RTOS T0OQ 2 T$?$))(WHILE(AND(=(SUBSTR TQ?$(STRLEN TQ?$)1)"0")(> T$?$ 3))(SETQ TQ?$(RTOS T0OQ 2(SETQ T$?$(- T$?$ 1)))))(SETQ T#|1(+ 5(STRLEN TQ?$)(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2))))))(SETQ T1@j(T?#Q)T&0(GETSTRING(T$j@(T@@@(T%l T#@@ 1))T#|1 T1@j"")))(IF(/= T&0"")(SETQ T1@j(T&@j T&0)))(SETQ T&0(GETSTRING(T$j@(T@@@(T%l T#@@ 2))T#|1 TQ?$"")))(IF(= T&0"")(SETQ TjO1 T0OQ)(SETQ TjO1(ATOF T&0)))(IF(OR(<= TjO1 0.0)(> TjO1(T1@ 0 T$#l 0.5)))(PROGN(TlO@ 116"")(SETQ T%%l T))))(PROGN(TlO@ 102 T1?@)(SETQ T%%l T)))(IF(NOT T%%l)(PROGN(TOOl)(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 3)))(STRLEN(T@@@(T%l T#@@ 4))))))(SETQ T@?$(T&$@ NIL 0 0(T@@@(T%l T#@@ 3))T#|1""NIL))(IF T@?$(SETQ Tj?$(GETCORNER T@?$(T$j@(T@@@(T%l T#@@ 4))T#|1""""))))(IF(AND Tj?$ T@?$)(PROGN(T@@l T)(Tj0j(T&Ol 5))(SETQ TO%0(SSGET"W"Tj?$ T@?$))(QQEE TO%0(LIST(T&Ol 4)(T&Ol 6)T0@l)NIL 0 0 1)))))(IF(T01@ TO%0)(PROGN(IF(>(DISTANCE Tj?$ T@?$)0.0)(command-s"._ZOOM""_W"Tj?$ T@?$)(command-s"._ZOOM""_C"Tj?$(* 20 T|1l)))(command-s"._ZOOM""0.9x")(Tj@@(T@@@(T%l T#@@ 5))0"")(Tj#Q T1@j)(SETQ TQ?$(T|1Q -1))(SETVAR"USERR3"(FLOAT TQ?$))(SETQ T@#l NIL T0?$(SSLENGTH TO%0)T%&& 0 T$?$ T0?$)(WHILE(> T$?$ 0)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T%&&(+ T%&&(TOl&(Tj&j T|%0)))))(T&QQ(+ T0?$ T%&&))(SETQ T$?$ T0?$)(WHILE(> T$?$ 0)(T#QQ)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T?1j(ENTGET T|%0(quote ("TOPOLT"))))(IF(TO&j T?1j"LINE")(PROGN(SETQ T0@(T%&j 10 T?1j T?l1))(T%$1 T0@ TjO1)(SETQ T0@(T%&j 11 T?1j T?l1))(T%$1 T0@ TjO1)))(IF(TO&j T?1j"ARC")(PROGN(SETQ T@?@(T%&j 10 T?1j NIL)T??@(T1&j 40 T?1j)Tl%j(T1&j 50 T?1j)T&%j(T1&j 51 T?1j)T|Q(T1&j 210 T?1j))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(SETQ T0@(Tll(POLAR T@?@ Tl%j T??@)T&l))(T%$1 T0@ TjO1)(SETQ T0@(Tll(POLAR T@?@ T&%j T??@)T&l))(T%$1 T0@ TjO1)(SETQ Tl#&(T0$&(LIST(CAR T@?@)(CADR T@?@)Tl%j(T1%j Tl%j T&%j 1.0)T??@)))(IF Tl#&(PROGN(SETQ Tl#&(Tll(POLAR T@?@(ANGLE T@?@ Tl#&)T??@)T&l))(T%$1 Tl#& TjO1)))))(IF(T$Oj(T$&j T?1j))(PROGN(IF(/=(T@1j T?1j)2)(PROGN(SETQ Tl1&(T0Q& T?1j)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&))(CADDDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(T#QQ)(SETQ T|&&(+ T|&& 1)T&Q&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&))(CADDDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&))))(T%$1 T&Q& TjO1)(IF(/= T%@& 0)(PROGN(IF(= T|&& T%&&)(SETQ T$&& T#&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&))(CADDDR(CADR Tl1&)))))(SETQ Tl#&(T0$&(T$%j T&Q& T$&& T%@&)))(IF Tl#&(PROGN(SETQ T#?$(/(+(CADDR T&Q&)(CADDR T$&&))2.0)Tl#&(T@1 Tl#& T#?$))(T%$1 Tl#& TjO1)))))(SETQ Tl1&(CDR Tl1&)))))))(IF(TO&j T?1j"3DFACE")(PROGN(SETQ T|Q(T1&j 210 T?1j))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(SETQ T0@(Tll(T%&j 10 T?1j NIL)T&l))(T%$1 T0@ TjO1)(SETQ T0@(Tll(T%&j 11 T?1j NIL)T&l))(T%$1 T0@ TjO1)(SETQ T0@(Tll(T%&j 12 T?1j NIL)T&l))(T%$1 T0@ TjO1)(SETQ T0@(Tll(T%&j 13 T?1j NIL)T&l))(T%$1 T0@ TjO1))))(T0QQ)(SETQ T@#l T|?$ Tl?$(T|1Q 0)TO?$(- Tl?$ TQ?$))))(IF(T01@ TO%0)(PROGN(SETQ TO%0(SSGET"W"Tj?$ T@?$))(QQEE TO%0(LIST(T&Ol 4)(T&Ol 6)T0@l)NIL 0 0 1)))(IF(T01@ TO%0)(PROGN(Tj@@(T@@@(T%l T#@@ 7))0"")(SETQ T0?$(SSLENGTH TO%0)T$?$ T0?$)(T&QQ T0?$)(WHILE(> T$?$ 0)(T#QQ)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T?1j(Tj&j T|%0))(IF(T#?@ T?1j)(PROGN(SETQ T0@(T%&j 10 T?1j T))(IF T1#l(SETQ Tl%0(Tl& T0@ TO@Q))(SETQ Tl%0 T0@))(SETQ T1?$(DISTANCE T0@ Tl%0))(IF T$1l(SETQ Tl%0(T@1 Tl%0(CADDR T0@)))(SETQ Tl%0(T@1 Tl%0 0.0)))(IF(> T1?$ TjO1)(T$?1 T0@ TjO1 NIL)(T##j T?1j(LIST(LIST 10 Tl%0)(LIST 210(LIST 0.0 0.0 1.0))))))))(T0QQ)))(IF(T01@ TO%0)(PROGN(SETQ TO%0(SSGET"W"Tj?$ T@?$))(QQKE TO%0 T1?@ NIL 0.0 0.0 0.0 0 0 0 1)))(IF(T01@ TO%0)(PROGN(Tj@@(T@@@(T%l T#@@ 8))0"")(SETQ T0?$(SSLENGTH TO%0)T$?$ T0?$)(T&QQ T0?$)(WHILE(> T$?$ 0)(T#QQ)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T?1j(Tj&j T|%0))(SETQ T0@(T%&j 10 T?1j T)T0j&(T$&1 T|%0))(IF T0j&(SETQ T&?$(STRCAT(CADDR T0j&)";")T#11(ATOF(CADDDR T0j&))))(command-s"._ZOOM""_C"T0@(* 20 T|1l))(SETQ T||0(T&&# T0@(+(T@j1)TjO1)NIL))(QQEE T||0(LIST(T&Ol 4)(T&Ol 6)T0@l)NIL 0 0 1)(IF(T01@ T||0)(PROGN(SETQ TQ%0(SSLENGTH T||0)TjOQ TQ%0)(WHILE(> TjOQ 0)(SETQ T%|0(SSNAME T||0(SETQ TjOQ(- TjOQ 1)))T%%0(Tj&j T%|0))(IF(TO&j T%%0"LINE")(PROGN(SETQ T?%0 T%%0 T@?&(T%&j 10 T?%0 T?l1)TQ?&(T%&j 11 T?%0 T?l1)T0%0 NIL)(IF(OR(NOT(EQUAL(CADDR T@?&)0.0 1E-10))(NOT(EQUAL(CADDR TQ?&)0.0 1E-10)))(SETQ T0%0 T))(IF(T0|l T@?& T0@ TQ?& TjO1)(PROGN(PRINC T&?$)(SETQ T1%0 T#11)(IF(NULL T0%0)(SETQ T1%0 0.0))(T##j T?%0(LIST(LIST 10 T@?&)(LIST 11(T@1 T0@ T1%0))(LIST 210(LIST 0.0 0.0 1.0))))(SETQ T?%0(SUBST(CONS 10(T@1 T0@ T1%0))(ASSOC 10 T?%0)T?%0)T?%0(SUBST(CONS 11 TQ?&)(ASSOC 11 T?%0)T?%0))(IF(T1&j 210 T?%0)(SETQ T?%0(SUBST(CONS 210(LIST 0.0 0.0 1.0))(ASSOC 210 T?%0)T?%0)))(ENTMAKE)(ENTMAKE(CDR T?%0))))))(IF(T$Oj(T$&j T%%0))(IF(=(T%Oj(T1&j 70 T%%0))0)(PROGN(SETQ TQOj T%%0 T&0&(TOOj TQOj)Tl1&(T0Q& TQOj)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0 T@%0 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T0&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&)))T$&& NIL)(IF(< T|&& T%&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&))))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(IF(= T%@& 0.0)(IF(T0|l T0&& T0@ T$&& TjO1)(PROGN(PRINC T&?$)(SETQ T%|0(T?&& T%|0(+ T|&& T@%0)(T@1 T0@ T#11))T@%0(+ T@%0 1))))))(SETQ Tl1&(CDR Tl1&))))))))))(T0QQ)))(IF(T01@ TO%0)(PROGN(IF(>(DISTANCE Tj?$ T@?$)0.0)(command-s"._ZOOM""_W"Tj?$ T@?$)(command-s"._ZOOM""_C"Tj?$(* 20 T|1l)))(command-s"._ZOOM""0.9x")(SETQ TO%0(SSGET"W"Tj?$ T@?$))(QQEE TO%0(LIST(T&Ol 4)(T&Ol 5)(T&Ol 6)T0@l)NIL 0 0 1)(QQEE TO%0(LIST"TEXT")NIL 0 0 2)))(IF(T01@ TO%0)(PROGN(PRINC"\n")(Tj@@(T@@@(T%l T#@@ 9))0"")(SETQ T0?$(SSLENGTH TO%0)T%&& 0 T$?$ T0?$)(WHILE(> T$?$ 0)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T%&&(+ T%&&(TOl&(Tj&j T|%0)))))(T&QQ(+ T0?$ T%&&))(SETQ T$?$ T0?$)(WHILE(> T$?$ 0)(T#QQ)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T?1j(Tj&j T|%0))(IF(TO&j T?1j"INSERT")(IF(/=(STRCASE(T1&j 2 T?1j))T1?@)(PROGN(SETQ Tl?l T?1j T&|l(T%&j 10 Tl?l T)T#11(CADDR T&|l)T0j&(T$$& T&|l T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&)))(IF(<=(DISTANCE(T?1 T&|l)T#%&)TjO1)(PROGN(IF(NOT(EQUAL T#11 0.0 1E-10))(PROGN(SETQ T#11(ATOF(CADDDR T0j&)))(IF T1#l(SETQ T#11(T1 T#11 TO#l)))))(T##j Tl?l(LIST(LIST 10(T@1 T#%& T#11))(LIST 210(LIST 0.0 0.0 1.0)))))))))))(IF(TO&j T?1j"LINE")(PROGN(SETQ T?%0 T?1j T@?&(T%&j 10 T?%0 T?l1)TQ?&(T%&j 11 T?%0 T?l1)T0%0 NIL)(IF(OR(NOT(EQUAL(CADDR T@?&)0.0 1E-10))(NOT(EQUAL(CADDR TQ?&)0.0 1E-10)))(SETQ T0%0 T))(SETQ T@?&(T?1 T@?&)T0j&(T$$& T@?& T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&))T#11(ATOF(CADDDR T0j&)))(IF(OR(<=(DISTANCE T@?& T#%&)TjO1)T0%0)(PROGN(IF(NULL T0%0)(SETQ T#11 0.0))(SETQ T@?&(T@1 T#%& T#11)T?%0(T##j T?%0(LIST(LIST 10 T@?&)(LIST 11 TQ?&)(LIST 210(LIST 0.0 0.0 1.0)))))))))(SETQ TQ?&(T?1 TQ?&)T0j&(T$$& TQ?& T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&))T#11(ATOF(CADDDR T0j&)))(IF T1#l(SETQ T#11(T1 T#11 TO#l)))(IF(OR(<=(DISTANCE TQ?& T#%&)TjO1)T0%0)(PROGN(IF(NULL T0%0)(SETQ T#11 0.0))(T##j T?%0(LIST(LIST 10 T@?&)(LIST 11(T@1 T#%& T#11))(LIST 210(LIST 0.0 0.0 1.0))))))))))(IF(TO&j T?1j"DIMENSION")(PROGN(SETQ T#10 T?1j T@?&(T%&j 13 T#10 T?l1)TQ?&(T%&j 14 T#10 T?l1)T|Q(T1&j 210 T#10))(IF(AND T?l1(T%1 T|Q))(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(SETQ T0j&(T$$& T@?& T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&)))(IF(<=(DISTANCE T@?& T#%&)TjO1)(SETQ T#10(T##j T#10(LIST(LIST 13(T$l(T@1 T#%&(CADDR T@?&))T&l))))))))(SETQ T0j&(T$$& TQ?& T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&)))(IF(<=(DISTANCE TQ?& T#%&)TjO1)(T##j T#10(LIST(LIST 14(T$l(T@1 T#%&(CADDR TQ?&))T&l)))))))))(IF(TO&j T?1j"ARC")(PROGN(SETQ TlO& T?1j T#%0 NIL T@?@(T%&j 10 TlO& NIL)T#11(CADDR T@?@)T??@(T1&j 40 TlO&)Tl%j(T1&j 50 TlO&)T&%j(T1&j 51 TlO&)TO%j(POLAR T@?@ Tl%j T??@)T|%j(POLAR T@?@ T&%j T??@)T0%j(T1%j Tl%j T&%j 1.0)T#O&(POLAR T@?@(T%|j(+ Tl%j(/ T0%j 2)))T??@)T|Q(T1&j 210 TlO&))(IF(NOT(T%1 T|Q))(PROGN(SETQ T#%&(T0$&(LIST(CAR T@?@)(CADR T@?@)Tl%j(T1%j Tl%j T&%j 1.0)T??@)))(IF T#%&(SETQ T#O& T#%& T#%0 T))(SETQ T0j&(T$$& TO%j T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&)))(IF(<=(DISTANCE TO%j T#%&)TjO1)(PROGN(IF(NOT(EQUAL T#11 0.0 1E-10))(PROGN(SETQ T#11(ATOF(CADDDR T0j&)))(IF T1#l(SETQ T#11(T1 T#11 TO#l)))))(SETQ TO%j T#%& T#%0 T)))))(SETQ T0j&(T$$& T|%j T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&)))(IF(<=(DISTANCE T|%j T#%&)TjO1)(SETQ T|%j T#%& T#%0 T))))(IF T#%0(PROGN(SETQ T@#&(T$%j TO%j T|%j(T0O& TO%j T|%j T#O&)))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&)T#11)Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j))(T##j TlO&(LIST(LIST 10 T@?@)(LIST 40 T??@)(LIST 50 Tl%j)(LIST 51 T&%j)(LIST 210(LIST 0.0 0.0 1.0))))))))))))(IF(AND(T$Oj(T$&j T?1j))(/=(T%Oj(T1&j 70 T?1j))7))(PROGN(SETQ TQOj T?1j T0%0 NIL)(IF(<(T%Oj(T1&j 70 TQOj))4)(PROGN(SETQ Tj?1(T@|j T|%0))(IF(NOT(EQUAL Tj?1 0.0 1E-10))(SETQ T0%0 T))))(SETQ T&0&(TOOj TQOj)T1?1 NIL Tl1&(T0Q& TQOj)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&))))(IF T0%0(PROGN(SETQ T0j&(T$$& T#&& T))(IF T0j&(SETQ Tj?1(ATOF(CADDDR T0j&))))))(SETQ T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(T#QQ)(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(SETQ Tl%& T0&& T0j&(T$$& T0&& T))(IF T0j&(PROGN(SETQ Tl%&(LIST(CAR T0j&)(CADR T0j&))T#11(ATOF(CADDDR T0j&)))(IF T1#l(SETQ T#11(T1 T#11 TO#l)))(IF(<=(DISTANCE T0&& Tl%&)TjO1)(SETQ T1?1 T Tl1&(SUBST(LIST T|&&(CAR Tl%&)(CADR Tl%&)T#11 T%@&)(ASSOC T|&& Tl1&)Tl1&)))))(IF T$&&(PROGN(SETQ T&%& T$&& T0j&(T$$& T$&& T))(IF T0j&(PROGN(SETQ T&%&(LIST(CAR T0j&)(CADR T0j&)))(IF(<=(DISTANCE T$&& T&%&)TjO1)(SETQ T1?1 T)(SETQ T&%& T$&&))))(IF(/= T%@& 0.0)(PROGN(SETQ T1%&(T0$&(T$%j T0&& T$&& T%@&)))(IF T1%&(PROGN(SETQ T1?1 T T%@&(T0O& Tl%& T&%& T1%&))(IF(= T%@& NIL)(SETQ T%@& 0.0))(SETQ Tl1&(SUBST(LIST T|&&(CAR Tl%&)(CADR Tl%&)0.0 T%@&)(ASSOC T|&& Tl1&)Tl1&)))))))))(IF T1?1(PROGN(T1l& T|%0 Tl1&)(IF T0%0(T&|j T|%0 Tj?1))))))(IF(TO&j T?1j"3DFACE")(PROGN(SETQ Tj%0 T?1j T|Q(T1&j 210 Tj%0)T??$ NIL T|&& 9)(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(REPEAT 4(SETQ T|&&(+ T|&& 1)T&%0(Tll(T%&j T|&& Tj%0 NIL)T&l)T0j&(T$$& T&%0 T))(IF T0j&(PROGN(SETQ T#%&(LIST(CAR T0j&)(CADR T0j&))T#11(ATOF(CADDDR T0j&)))(IF T1#l(SETQ T#11(T1 T#11 TO#l)))(IF(<=(DISTANCE(T?1 T&%0)T#%&)TjO1)(SETQ T??$(APPEND T??$(LIST(LIST T|&&(T$l(T@1 T#%& T#11)T&l)))))))))(IF T??$(T##j Tj%0 T??$)))))(T0QQ)))(IF(NOT T%%l)(PROGN(IF(> TO?$ 0)(Tj@@(T@@@(T%l T#@@ 6))0(ITOA TO?$)))(T%Ol)))(T%?1 T|l&)(SETQ T|l& NIL))
(defun T%?$(/ T@%1 T?j$ T|?@ Tjj$ T@j$ T$$Q TQj$ Tlj$ T&j$ Tl1& T@#& Tj?$ T@?$ T0@ T$O1 T@Q TQQ T$%l T$?# T1j$ T#j$ T0j$ T$j$ TOj$ Tj@0 T@@0 T|j$ T%j$ T?@$ Tj@$ T@@$ T@?@ T#&& T&Q& T$&& TO%j T|%j T|Q T&l TQ@$ Tl@$ T@ll T#&1 T&@$ T1@$ T#@$ T#Q# Tjl& Tj01 T@01 T?@@ T$ T0@$ T$@$ TO@$ T|@$ T%@$ T?Q T?Q$ TjQ$ T@Q$ TQQ$ TlQ$ T&Q$ T1Q$ T&#& TjlQ T??@ Tl%j T&%j TQ%j T0%j T%@& Tj0 TjOQ T#Q$ T0Q$ T$Q$ TOQ$ T%&& T|&& T|Q$ T%Q$ T?l$ Tjl$ T&$Q T@l$ TQl$ T@l0 T%@0 Tll$ T&l$ T&0& T#@@)(SETQ T#@@ 60)(SETVAR"PLINEWID"0)(SETVAR"PICKBOX"1)(SETVAR"TEXTSTYLE"TO1l)(SETVAR"TEXTSIZE"T|1l)(IF(= T|lj 0)(SETQ T|@$ 1 T$@$ 10))(IF(= T|lj 1)(SETQ T|@$ 2 T$@$ 20))(SETQ TO@$(/(* T$@$ PI)200.0)T%@$(* T|@$ T?$l T&0l))(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2))))))(SETQ T@?$(T&$@ NIL 0 0(T@@@(T%l T#@@ 1))T#|1""NIL))(IF T@?$(SETQ Tj?$(GETCORNER T@?$(T$j@(T@@@(T%l T#@@ 2))T#|1""""))))(SETQ T@%1 NIL)(IF Tj?$(IF T@?$(PROGN(TOOl)(T@@l T)(Tj0j(T&Ol 5))(SETQ T@%1(SSGET"W"Tj?$ T@?$)))))(SETQ T#@@ 67)(IF(T01@ T@%1)(PROGN(IF(>(DISTANCE Tj?$ T@?$)0.0)(command-s"._ZOOM""_W"Tj?$ T@?$)(command-s"._ZOOM""_C"Tj?$(* 20 T|1l)))(command-s"._ZOOM""0.6x")(Tj@@(T@@@(T%l T#@@ 1))0"")(QQKE T@%1 T1?@ NIL 0.0 0.0 0.0 0 0 0 1)(IF(T01@ T@%1)(PROGN(SETQ T#Q$ 0 T0Q$(SSLENGTH T@%1)T$$Q NIL)(T0Ol)(T&QQ T0Q$)(SETQ Tj0 -1)(REPEAT T0Q$(T#QQ)(SETQ T|?@(SSNAME T@%1(SETQ Tj0(+ Tj0 1)))T&$Q(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT T|?@)))))T$$Q(APPEND T$$Q(LIST(T%0Q T&$Q))))(Tj#1 T(T?j@ T|?@)T))(T0QQ)(SETQ T@ll(T&&1)T#&1(T1&1)Tl@$(+ T|1l(*(+ T|0l T00l)T&0l)))(IF(OR(= T01l 0)(= T01l 1))(SETQ T&@$ Tl@$ T$Q$ 1)(SETQ T&@$(* 2 Tl@$)T$Q$ 2))(SETQ T1@$(T%|j(+ T|& T%&))T#@$(T%|j(+ T|& T#%l))T#Q#(*(GETVAR"DIMSCALE")(GETVAR"DIMTXT")0.5))(TQ0j(T&Ol 1))(TQ0j(T&Ol 6))(IF(= T01l 0)(TQ0j(T&Ol 2)))(IF(= T01l 1)(TQ0j(T&Ol 3)))(T&QQ T0Q$)(SETQ TOQ$ 0)(REPEAT T10Q(SETQ TOQ$(+ TOQ$ 1))(T$01)(SETQ Tj0 -1)(REPEAT T0Q$(SETQ Tj0(+ Tj0 1))(IF(=(NTH Tj0 T$$Q)TOQ$)(PROGN(T#QQ)(SETQ T|?@(SSNAME T@%1 Tj0)T0@(T%&j 10(Tj&j T|?@)T)T@l$(T1&j 1(Tj&j(ENTNEXT T|?@)))Tjl&(RTOS(ATOF(T1&j 1(Tj&j(ENTNEXT(ENTNEXT T|?@)))))2 TO#l)T&$Q(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT T|?@)))))Tj01 0.0 T@01 0.0)(command-s"._ZOOM""_C"T0@(* 20 T|1l))(IF(OR(= T01l 0)(= T01l 2))(SETQ Tj01(T@&Q T@l$ T|1l TQ#l TO1l)))(IF(OR(= T01l 1)(= T01l 2))(SETQ T@01(T@&Q Tjl& T|1l TQ#l TO1l)))(SETQ T?@@(MAX Tj01 T@01)T@l0 T T?j$(T&&# T0@(+ T@ll T?@@(* T@$l T&0l))NIL))(IF(T01@ T?j$)(PROGN(SETQ T$(- T@ll T%@$)T|Q$ 0)(WHILE(AND T@l0(<= T|Q$ T$Q$))(SETQ T$(+ T$ T%@$)T|Q$(+ T|Q$ T|@$)T0@$(T%|j(+ T#&1 TO@$))T%Q$ 0)(WHILE(AND T@l0(< T%Q$ 400))(SETQ T0@$(T%|j(- T0@$ TO@$))T%Q$(+ T%Q$ T$@$)T$O1(POLAR T0@ T0@$ T$))(IF(T@%j T0@$ T1@$ T#@$)(SETQ T%@0"R")(SETQ T%@0"L"))(SETQ T@Q(POLAR T0@(ANGLE T0@ T$O1)(/ T%1l 2))TQQ T$O1 T$%l(POLAR TQQ(+ T|& T%&)Tl@$))(IF(OR(= T01l 0)(= T01l 1))(PROGN(IF(= T%@0"L")(SETQ T$?#(POLAR T$%l T|&(+ T?@@(* Tj$l T&0l)))T1j$(POLAR TQQ T|&(+ T?@@(* Tj$l T&0l))))(SETQ T$?#(POLAR T$%l(+ T|& PI)(+ T?@@(* Tj$l T&0l)))T1j$(POLAR TQQ(+ T|& PI)(+ T?@@(* Tj$l T&0l)))))(SETQ TQj$(LIST T@Q TQQ T$%l T$?# T1j$ TQQ)Tlj$(LIST TQQ T$%l T$?# T1j$))))(IF(= T01l 2)(PROGN(IF(= T%@0"L")(SETQ T$?#(POLAR T$%l T|&(+ Tj01(* Tj$l T&0l)))T1j$(POLAR TQQ T|&(+ Tj01(* Tj$l T&0l)))T#j$(POLAR TQQ T|&(+ T@01(* Tj$l T&0l))))(SETQ T$?#(POLAR T$%l(+ T|& PI)(+ Tj01(* Tj$l T&0l)))T1j$(POLAR TQQ(+ T|& PI)(+ Tj01(* Tj$l T&0l)))T#j$(POLAR TQQ(+ T|& PI)(+ T@01(* Tj$l T&0l)))))(SETQ T0j$(POLAR T#j$(- T|& T%&)Tl@$)T$j$(POLAR TQQ(- T|& T%&)Tl@$)TQj$(LIST T@Q TQQ T$%l T$?# T1j$ T#j$ T0j$ T$j$ TQQ)Tlj$(LIST T$%l T$?# T1j$ T#j$ T0j$ T$j$))))(SETQ Tll$ NIL TjOQ(SSLENGTH T?j$))(WHILE(AND(NULL Tll$)(> TjOQ 0))(SETQ Tjj$(SSNAME T?j$(SETQ TjOQ(1- TjOQ)))T@j$(Tj&j Tjj$)TQl$(T$&j T@j$)T|Q(T1&j 210 T@j$)TQ@$(T%1 T|Q)T&l NIL)(IF(NULL Tll$)(IF(OR(T#?@ T@j$)(= TQl$"POINT"))(PROGN(SETQ T@@$(T%&j 10 T@j$ NIL))(IF(OR(T#?@ T@j$)T?l1)(IF TQ@$(SETQ T&l(TOQ T|Q)T@@$(Tll T1l$ T&l))))(IF(NOT(EQUAL T0@ T@@$ 1E-10))(PROGN(IF(T0%l Tlj$ T@@$)(PROGN(SETQ Tll$ T)(IF(= T%@0"R")(PROGN(IF(OR(= T01l 0)(= T01l 1))(SETQ T$%l T1j$ T$?# TQQ))(IF(= T01l 2)(SETQ T$%l T0j$ T$?# T$j$))))(SETQ TOj$(T?|l T$%l T$?# T@@$ NIL)T?Q(DISTANCE TOj$ T@@$))(IF(> T?Q 0.0)(PROGN(SETQ Tj@0(POLAR TQQ(ANGLE TOj$ T@@$)T?Q)T?Q$(DISTANCE T0@ Tj@0)TQQ$(* T?Q$(SIN(-(ANGLE T0@ Tj@0)T|&))))(IF(<=(ABS TQQ$)T$)(PROGN(SETQ TjQ$(* T$(COS(-(ANGLE T0@ TQQ)T|&)))T@Q$(SQRT(-(* T$ T$)(* TQQ$ TQQ$)))TlQ$(- T@Q$ TjQ$)T&Q$(/(SQRT(+(* TlQ$ TlQ$)(* T?Q T?Q)))2.0))(IF(<= T&Q$ T$)(SETQ T1Q$(*(ABS(ATAN T&Q$(SQRT(-(* T$ T$)(* T&Q$ T&Q$)))))2.0)T1Q$(/(* T1Q$ 200.0)PI)T&#&(FIX(Tj(ABS(/ T1Q$ T$@$))))T%Q$(+ T%Q$(* T&#& T$@$)))))))))(PROGN(SETQ TOj$(POLAR T@@$ T?#@(* T%1l 0.75))T@@0(POLAR T@@$ T%1@(* T%1l 0.75)))(IF(T??& TQj$ TOj$ T@@0)(SETQ Tll$ T)(PROGN(SETQ Tj@0(POLAR T@@$ Tj#@(* T%1l 0.75))T|j$(POLAR T@@$ T@#@(* T%1l 0.75)))(IF(T??& TQj$ Tj@0 T|j$)(SETQ Tll$ T)))))))))))(IF(NULL Tll$)(IF(OR(= TQl$"TEXT")(= TQl$"ATTDEF")(= TQl$"MTEXT"))(PROGN(SETQ T&j$(T?j#(Tj?# Tjj$ T)(* T|0l T&0l))TjlQ(DISTANCE(CAR T&j$)(LAST T&j$))T&j$(APPEND T&j$(LIST(CAR T&j$)))T?l$(-(LENGTH T&j$)1)Tjl$ 0)(WHILE(AND(NULL Tll$)(< Tjl$ T?l$))(SETQ TOj$(NTH Tjl$ T&j$)Tj@0(NTH(+ Tjl$ 1)T&j$))(IF(AND(NULL Tll$)(T??& TQj$ TOj$ Tj@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ TOj$))(SETQ Tll$ T))(SETQ Tjl$(+ Tjl$ 1)))(IF(NULL Tll$)(IF(< T&@$ TjlQ)(IF(T@j& T&j$ TQj$)(SETQ Tll$ T)))))))(IF(NULL Tll$)(IF(= TQl$"LINE")(PROGN(IF TQ@$(SETQ T&l(TOQ T|Q)))(SETQ TOj$(T%&j 10 T@j$ NIL)Tj@0(T%&j 11 T@j$ NIL))(IF T?l1(SETQ TOj$(Tll TOj$ T&l)Tj@0(Tll Tj@0 T&l)))(IF(AND(NULL Tll$)(T??&(CDR TQj$)TOj$ Tj@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ TOj$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ Tj@0))(SETQ Tll$ T)))))(IF(NULL Tll$)(IF(OR(= TQl$"TRACE")(= TQl$"SOLID"))(PROGN(IF TQ@$(SETQ T&l(TOQ T|Q)))(SETQ TOj$(Tll(T%&j 10 T@j$ NIL)T&l)Tj@0(Tll(T%&j 11 T@j$ NIL)T&l)T|j$(Tll(T%&j 12 T@j$ NIL)T&l)T@@0(Tll(T%&j 13 T@j$ NIL)T&l))(IF(AND(NULL Tll$)(T??&(CDR TQj$)TOj$ Tj@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)Tj@0 T@@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)T@@0 T|j$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)T|j$ TOj$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ TOj$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ Tj@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T@@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T|j$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l(LIST TOj$ Tj@0 T@@0 T|j$)(CAR TQj$)))(SETQ Tll$ T)))))(IF(NULL Tll$)(IF(= TQl$"DIMENSION")(PROGN(IF(AND T?l1 TQ@$)(SETQ T&l(TOQ T|Q)))(SETQ TOj$(Tll(T%&j 13 T@j$ NIL)T&l)T|j$(Tll(T%&j 14 T@j$ NIL)T&l)T@@0(Tll(T%&j 10 T@j$ NIL)T&l)Tj@0(POLAR T@@0(ANGLE T|j$ TOj$)(DISTANCE T|j$ TOj$))T%j$(Tll(T%&j 11 T@j$ NIL)T&l)T?@$(POLAR T%j$(+(ANGLE T|j$ TOj$)T%&)T#Q#)Tj@$(POLAR T%j$(-(ANGLE T|j$ TOj$)T%&)T#Q#))(IF(AND(NULL Tll$)(T??&(CDR TQj$)TOj$ Tj@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)Tj@0 T@@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)T@@0 T|j$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)Tj@0 T%j$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)T?@$ Tj@$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ TOj$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ Tj@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T@@0))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T|j$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T%j$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T?@$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ Tj@$))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T&j&(CDR TQj$)Tjj$ T))(SETQ Tll$ T)))))(IF(NULL Tll$)(IF(OR(= TQl$"CIRCLE")(= TQl$"ARC"))(PROGN(SETQ T@?@(T%&j 10 T@j$ NIL)T??@(T1&j 40 T@j$))(IF(= TQl$"CIRCLE")(SETQ Tl%j 0.0 T&%j(- Tj%j 1E-10)))(IF(= TQl$"ARC")(SETQ Tl%j(T1&j 50 T@j$)T&%j(T1&j 51 T@j$)))(SETQ TO%j(POLAR T@?@ Tl%j T??@)T|%j(POLAR T@?@ T&%j T??@))(IF(NOT TQ@$)(PROGN(IF(AND(NULL Tll$)(T0%l Tlj$ TO%j))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T0%l Tlj$ T|%j))(SETQ Tll$ T))(IF(AND(NULL Tll$)(Tjj&(CDR TQj$)T@?@ T??@ Tl%j T&%j))(SETQ Tll$ T)))))))(IF(NULL Tll$)(IF(T$Oj TQl$)(IF(OR(=(T%Oj(T1&j 70 T@j$))0)(=(T%Oj(T1&j 70 T@j$))4))(PROGN(SETQ T&l$ NIL)(IF(=(STRCASE(T&Ol 4))(STRCASE(T1$j T@j$)))(SETQ T&l$ T))(SETQ T&0&(TOOj T@j$)Tl1&(T0Q& T@j$)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(WHILE(AND(NULL Tll$)(< T|&& T%&&))(SETQ T|&&(+ T|&& 1)T&Q&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&)))T$&& NIL)(IF(< T|&& T%&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&))))(IF T&0&(SETQ T$&& T#&&)))(IF(AND(NULL Tll$)(T0%l Tlj$ T&Q&))(SETQ Tll$ T))(IF T$&&(IF(EQUAL T%@& 0.0 1E-10)(IF T&l$(IF(AND(NULL Tll$)(T??& TQj$ T&Q& T$&&))(SETQ Tll$ T))(IF(AND(NULL Tll$)(T??&(CDR TQj$)T&Q& T$&&))(SETQ Tll$ T)))(PROGN(SETQ T@#&(T$%j T&Q& T$&& T%@&))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&))T&%j(+ Tl%j T0%j))(IF(< T0%j 0.0)(SETQ TQ%j Tl%j Tl%j T&%j T&%j TQ%j))(IF(AND(NULL Tll$)(Tjj&(CDR TQj$)T@?@ T??@ Tl%j T&%j))(SETQ Tll$ T)))))))(SETQ Tl1&(CDR Tl1&)))))))(IF(NULL Tll$)(IF(= TQl$"INSERT")(IF(NOT(T#?@ T@j$))(IF(AND(NULL Tll$)(T&j&(CDR TQj$)Tjj$ T))(SETQ Tll$ T)))))(IF(NULL Tll$)(IF(= TQl$"SHAPE")(IF(AND(NULL Tll$)(T&j&(CDR TQj$)Tjj$ NIL))(SETQ Tll$ T))))(IF(NULL Tll$)(IF(= TQl$"HATCH")(IF(AND(NULL Tll$)(T&j&(CDR TQj$)Tjj$ NIL))(SETQ Tll$ T)))))(IF(NULL Tll$)(SETQ T@l0 NIL))))))(IF T@l0(SETQ T$O1(POLAR T0@ T#&1 T@ll)T#Q$(+ T#Q$ 1)))(TO01 T0@ T@l$(ATOF Tjl&)T&$Q(T$0Q T&$Q)T$O1 T@l0 NIL)))))(T0QQ)(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(T@@@(T%l T#@@ 3)))))(Tj@@(T@@@(T%l T#@@ 2))T#|1(ITOA(- T0Q$ T#Q$)))(Tj@@(T@@@(T%l T#@@ 3))T#|1(ITOA T#Q$)))(TlO@ 104 T1?@))))(IF(AND Tj?$ T@?$)(T%Ol)))
(defun T#l$(T$1@ T0l$ / TO1j T?1j T?%0 T$l$ TOl$ T|l$ T$l$ Tl1& T@Q TQQ T@?@ Tl#& TQ%& T#&& T&Q& T$&& T|Q T%l$ Tj0 T%&& T|&& TO1& T??@ Tl%j T&%j T%@& T0$Q T#@@ T&0& T?&$)(SETQ T#@@ 103)(IF(AND T#0Q(T01@ T$1@)T0l$)(PROGN(T0?l Tl1l T)(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T%l$ 0 Tj0(SSLENGTH T$1@))(T&QQ Tj0)(WHILE(> Tj0 0)(T#QQ)(SETQ T$l$ NIL TO1j(SSNAME T$1@(SETQ Tj0(- Tj0 1)))T?1j(Tj&j TO1j)Tj&$(T$&j T?1j))(IF(= Tj&$"LINE")(PROGN(SETQ TOl$ NIL T@Q(T%&j 10 T?1j T?l1)TQQ(T%&j 11 T?1j T?l1)T|l$(T0%1 T@Q))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))(SETQ T|l$(T0%1 TQQ))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))(IF TOl$(SETQ T$l$(T@$Q TOl$)))))(IF(= Tj&$"ARC")(PROGN(SETQ TOl$ NIL T@?@(T%&j 10 T?1j NIL)T??@(T1&j 40 T?1j)Tl%j(T1&j 50 T?1j)T&%j(T1&j 51 T?1j)T@Q(POLAR T@?@ Tl%j T??@)TQQ(POLAR T@?@ T&%j T??@)T|Q(T1&j 210 T?1j))(IF(NOT(T%1 T|Q))(PROGN(SETQ T|l$(T0%1 T@Q))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))(SETQ T|l$(T0%1 TQQ))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))(SETQ Tl#&(T0$&(LIST(CAR T@?@)(CADR T@?@)Tl%j(T1%j Tl%j T&%j 1.0)T??@)))(IF Tl#&(PROGN(SETQ T|l$(T0%1 Tl#&))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))))(IF TOl$(SETQ T$l$(T@$Q TOl$)))))))(IF(= Tj&$"CIRCLE")(PROGN(SETQ TOl$ NIL T@?@(T%&j 10 T?1j NIL)T??@(T1&j 40 T?1j)T|Q(T1&j 210 T?1j))(IF(NOT(T%1 T|Q))(PROGN(SETQ TQ%&(T|?1 T@?@ T??@))(IF(T01@ TQ%&)(PROGN(SETQ T%&&(SSLENGTH TQ%&))(IF(> T%&& 0)(PROGN(SETQ T|&& -1)(REPEAT T%&&(SETQ Tl#&(T%&j 10(Tj&j(SSNAME TQ%&(SETQ T|&&(+ T|&& 1))))T)T|l$(T0%1 Tl#&))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$))))))))))(IF TOl$(SETQ T$l$(T@$Q TOl$)))))(IF(T$Oj Tj&$)(PROGN(SETQ TOl$ NIL T&0&(TOOj T?1j)Tl1&(T0Q& T?1j)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T&Q&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&)))T$&& NIL)(IF(< T|&& T%&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&))))(IF T&0&(SETQ T$&& T#&&)))(SETQ T|l$(T0%1 T&Q&))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))(IF(AND T$&&(/= T%@& 0))(PROGN(SETQ Tl#&(T0$&(T$%j T&Q& T$&& T%@&)))(IF Tl#&(PROGN(SETQ T|l$(T0%1 Tl#&))(IF T|l$(SETQ TOl$(APPEND TOl$ T|l$)))))))(SETQ Tl1&(CDR Tl1&)))(IF TOl$(SETQ T$l$(T@$Q TOl$)))))(IF T$l$(PROGN(SETQ TO1&(CAR T$l$)T0$Q(*(CADR T$l$)T&0l)T?&$ NIL)(IF(TBLSEARCH"LTYPE"TO1&)(PROGN(command-s"._CHPROP"TO1j"""_LT"TO1&"")(SETQ T?&$ T)))(IF(NOT(EQUAL(CADR T$l$)0.00 1E-4))(IF(OR(= Tj&$"LINE")(= Tj&$"ARC"))(PROGN(IF(= Tj&$"LINE")(PROGN(SETQ T@Q(T@1 T@Q 0.0)TQQ(T@1 TQQ 0.0)T?%0 T?1j)(T##j T?%0(LIST(LIST 10 T@Q)(LIST 11 TQQ)(LIST 210(LIST 0.0 0.0 1.0))))))(IF T@&$(command-s"._PEDIT"TO1j"_Y""_W"T0$Q"")(command-s"._PEDIT"TO1j"_W"T0$Q""))(SETQ T?&$ T))))(IF(T$Oj Tj&$)(IF(=(T%Oj(T1&j 70 T?1j))0)(PROGN(command-s"._PEDIT"TO1j"_W"T0$Q"")(SETQ T?&$ T))))(IF T?&$(SETQ T%l$(+ T%l$ 1))))))(T0QQ)(Tj@@(T@@@(T%l T#@@ 2))0(ITOA T%l$)))))
(defun TQ&$(/ T|%1 TO1j Tj?$ T@?$ Tj0 Tl&$ T#@@)(SETQ T#@@ 60)(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2))))))(IF T#0Q(PROGN(TOOl)(SETQ T@?$(T&$@ NIL 0 0(T@@@(T%l T#@@ 1))T#|1""NIL))(IF T@?$(SETQ Tj?$(GETCORNER T@?$(T$j@(T@@@(T%l T#@@ 2))T#|1""""))))(SETQ T|%1 NIL)(IF Tj?$(IF T@?$(PROGN(Tj0j(T&Ol 5))(SETQ T|%1(SSGET"W"Tj?$ T@?$))(QQEE T|%1(LIST(T&Ol 4)(T&Ol 6)T0@l)NIL 0 0 1))))(IF(T01@ T|%1)(PROGN(SETQ Tl&$ NIL Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(- Tj0 1))))(IF(T#?@(Tj&j TO1j))(SETQ Tl&$ T Tj0 0)))(IF Tl&$(PROGN(IF(>(DISTANCE Tj?$ T@?$)0.0)(command-s"._ZOOM""_W"Tj?$ T@?$)(command-s"._ZOOM""_C"Tj?$(* 20 T|1l)))(command-s"._ZOOM""0.9x")(T#l$ T|%1 Tl&$))(TlO@ 104 T1?@))))(T%Ol))(T#O@ 204""T)))
(defun T&&$(/ T1&$ T#&$ T0&$ T$&$ TO&$ T|&$ T%&$ T?1$ Tj1$ TQOj T#|j T@1$ T?1# T&| T0j& Tl1& T1Q& TQ1$ TQ%& T0@ T@Q TQQ T$%l T#%& T@?@ Tl#& T#&& T0&& T$&& Tj0 T%&& T|&& TQ?1 Tl1$ T&1$ T1#Q T##Q T0#Q T11$ T#1$ T01$ T$1$ TO1$ T|1$ T%1$ T?#$ Tj#$ T@#$ TQ#$ Tl#$ T&#$ T1#$ TOQQ T##$ T0#$ TQ@1 T?@@ T??@ T$#$ TO#$ T%@& T|#$ T1Oj T#Oj T%#$ T@#j TQ#j Tl#j T111 T?0$ T&0& Tj0$ T%%l T#@@)
(defun T@0$(TQ0$ Tl0$ / T&0$ T10$ T#0$ T#@@)(SETQ T#@@ 105)(IF(< T00$ 4)(SETQ T10$ T$0$ T#0$ TO0$)(SETQ T10$ TO0$ T#0$ T$0$))(SETQ T|0$(APPEND T|0$(LIST(STRCAT" "(T@@@(T%l T#@@ 12))" ("TQ0$") "Tl0$)"ÉÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍ»"(STRCAT"º"(T|$(T@@@(T%l T#@@ 13))8)"³"(T|$(Tl@@(T%l T#@@ 12))25)"³"(T|$(T@@@(T%l T#@@ 14))9)"º")(STRCAT"º"(T|$(Tl@@(T%l T#@@ 13))8)"ÃÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄ´"(T|$(Tl@@(T%l T#@@ 14))9)"º")(STRCAT"º        ³"(T|$(STRCAT T10$" ["T|#l"]")12)"³"(T|$(STRCAT T#0$" ["T|#l"]")12)"³"(TO$(T@@@(T%l T#@@ 15))9)"º")"ÌÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍ͹""º    0   ³      1     ³      2     ³    3    º""ÌÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍ͹")))(SETQ T%0$(LIST(T@@@(T%l T#@@ 13))(Tl@@(T%l T#@@ 13))(Tl@@(T%l T#@@ 12))(STRCAT T10$" ["T|#l"]")(STRCAT T#0$" ["T|#l"]")(T@@@(T%l T#@@ 14))(Tl@@(T%l T#@@ 14))(T@@@(T%l T#@@ 15)))))
(defun T?$$(Tj$$ T@$$ TQ$$ Tl$$ TQ0Q / T&O T&$$ T1$$ T#$$ T0$$ T#@@)
(defun T$$$(TO$$ / T|$$ T%$$ TOj@ T?O$ TjO$)(SETQ T%$$ TO$$ T?O$ 0)(WHILE(OR(<= T%$$ -1.0)(>= T%$$ 1.0))(SETQ T?O$(+ T?O$ 1)T%$$(/ T%$$ 10.0)))(IF(= T?O$ 0)(SETQ T?O$ 1))(SETQ TjO$ TO@Q TOj@(+ T?O$ 1 TjO$))(IF(>= TOj@ 12)(PROGN(SETQ TOj@ 12 TjO$(- TOj@(+ T?O$ 1)))(IF(< TjO$ 0)(SETQ TOj@(- TOj@ TjO$)TjO$ 0)))(SETQ TOj@ 11))(SETQ T|$$(T#% TO$$ TOj@ TjO$ NIL))(IF(< TOj@ 12)(SETQ T|$$(STRCAT T|$$" ")))T|$$)(SETQ T#@@ 105 T&$$ Tj$$)(IF(>= T00$ 4)(SETQ T#$$ T@$$ T@$$ TQ$$ TQ$$ T#$$))(SETQ T&O" ")(IF(>= TQ0Q 2)(SETQ T&O"ï"))(SETQ T0$$ TQ0Q)(IF(> T0$$ 2)(SETQ T0$$ 2 T&$$(STRCAT(Tl@@(T%l T#@@ 19))"="Tj$$)))(SETQ T@O$(APPEND T@O$(LIST(LIST T&$$(RTOS T@$$ 2 TO@Q)(RTOS TQ$$ 2 TO@Q)(RTOS(TQj Tl$$)2 T%#l)T0$$))))(IF(= TQ0Q 3)(PROGN(SETQ T&$$(STRCAT(Tl@@(T%l T#@@ 19))"="Tj$$))(IF(>(STRLEN T&$$)8)(SETQ T&$$(STRCAT(T@@@(T%l T#@@ 19))"="Tj$$)))(IF(>(STRLEN T&$$)8)(SETQ T&$$(STRCAT(T@@@(T%l T#@@ 19))Tj$$)))(IF(>(STRLEN T&$$)8)(SETQ T&$$(STRCAT T&O Tj$$)))(IF(>(STRLEN T&$$)8)(SETQ T&$$ Tj$$))(SETQ T&$$(TO$ T&$$ 8))))(IF(<=(STRLEN T&$$)7)(SETQ T&$$(STRCAT(TO$ T&$$ 7)" ")))(IF(= TQ0Q 0)(SETQ T1$$(TO$" "8))(SETQ T1$$(T#%(TQj Tl$$)8 T%#l NIL)))(SETQ T|0$(APPEND T|0$(LIST(STRCAT"º"T&$$"³"(T$$$ T@$$)"³"(T$$$ TQ$$)"³"T1$$ T&O"º")))))
(defun TQO$(TlO$ TjlQ T&O$ T1O$ T#O$ T0O$ T$O$ TOO$ T|O$ / Tj0 TQ?j T%O$ T?|$ Tj|$ T@|$ TQ|$ Tl|$ T&|$ T1|$ T#|$ T0|$ T$|$ TO|$ T||$ T%|$ T?%$ Tj%$ T$# T?0 T@%$ TQ%$ Tl%$)(SETVAR"TEXTSTYLE"T&O$)(SETVAR"TEXTSIZE"TjlQ)(SETVAR"PLINEWID"(* 0.128 TjlQ))(SETVAR"CLAYER"T|O$)(SETQ T&%$ TlO$ T?|$(* 0.28 TjlQ)Tj|$(* 0.75 TjlQ)T@|$(T@&Q"0"TjlQ 1.0 T&O$)T#O$(T0# T#O$)T1O$(T0# T1O$)T$O$(T0# T$O$)TQ|$(T@&Q"00000"TjlQ 1.0 T&O$)Tl|$(T@&Q"000000.000"TjlQ 1.0 T&O$)T&|$(T@&Q"0000.000"TjlQ 1.0 T&O$)TQ?j(LENGTH T0O$)Tj0 0)(WHILE(< Tj0 TQ?j)(SETQ Tj%$(NTH Tj0 T0O$)T1|$(T@&Q(CAR Tj%$)TjlQ 1.0 T&O$))(IF(> T1|$ TQ|$)(SETQ TQ|$ T1|$))(SETQ T1|$(T@&Q(CADR Tj%$)TjlQ 1.0 T&O$))(IF(> T1|$ Tl|$)(SETQ Tl|$ T1|$))(SETQ T1|$(T@&Q(CADDR Tj%$)TjlQ 1.0 T&O$))(IF(> T1|$ Tl|$)(SETQ Tl|$ T1|$))(SETQ T1|$(T@&Q(CADDDR Tj%$)TjlQ 1.0 T&O$))(IF(> T1|$ T&|$)(SETQ T&|$ T1|$))(SETQ Tj0(+ Tj0 1)))(SETQ TQ|$(+ TQ|$(* 2.0 T@|$))Tl|$(+ Tl|$(* 2.0 T@|$))T&|$(+ T&|$(* 2.0 T@|$))T0|$(+(* 3 T?|$)(* 4 TjlQ)(* 7 Tj|$)(* TQ?j(+ TjlQ Tj|$)))T$|$(+(* 2 T?|$)TQ|$(* 2 Tl|$)T&|$)TQ%$(SSADD)T||$(+(CAR TlO$)T?|$ T@|$)T%|$(-(CADR TlO$)TjlQ)T?%$(LIST T||$ T%|$))(T#1Q T|O$ T&O$ 0 0 T?%$ TjlQ 0.0 1.0 T1O$)(T01Q T1O$ TjlQ(- T$|$(+ T?|$ T@|$))(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T1|$(T?&Q(Tj&j(ENTLAST))))(IF(< T1|$(* 0.40(- T$|$(+ T?|$ T@|$))))(SETQ T#|$(- T$|$(+ T?|$(* 2.5 T@|$)T1|$))T||$(+(CAR TlO$)T?|$(* 2.5 T@|$)T1|$))(SETQ T#|$(- T$|$(+ T?|$ T@|$))T||$(+(CAR TlO$)T?|$ T@|$)T%|$(- T%|$(+ TjlQ Tj|$))))(IF(> T#|$ 0.0)(PROGN(SETQ T1|$(T@&Q T#O$ TjlQ 1.0 T&O$))(IF(AND(> T1|$ 0.0)(>=(/ T#|$ T1|$)0.8))(PROGN(SETQ T?%$(LIST T||$ T%|$))(T#1Q T|O$ T&O$ 0 0 T?%$ TjlQ 0.0 1.0 T#O$)(T01Q T#O$ TjlQ T#|$(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$))(WHILE(/= T#O$"")(SETQ T@%$ T T$#""T?0""T%O$ 0 TQ?j(STRLEN T#O$)Tj0 1)(WHILE(AND T@%$(<= Tj0 TQ?j))(SETQ T?0(SUBSTR T#O$ Tj0 1))(IF(AND(<=(T@&Q(STRCAT T$# T?0)TjlQ 1.0 T&O$)T#|$)(<= Tj0 TQ?j))(SETQ T$#(STRCAT T$# T?0))(SETQ T@%$ NIL))(IF(= T?0" ")(SETQ T%O$ Tj0))(SETQ Tj0(+ Tj0 1)))(IF(<(STRLEN T$#)(STRLEN T#O$))(PROGN(IF(> T%O$ 0)(SETQ T$#(SUBSTR T$# 1(- T%O$ 1))))(SETQ T#O$(T0#(SUBSTR T#O$(+(STRLEN T$#)1)))))(SETQ T#O$""))(SETQ T?%$(LIST T||$ T%|$))(T#1Q T|O$ T&O$ 0 0 T?%$ TjlQ 0.0 1.0 T$#)(SSADD(ENTLAST)TQ%$)(SETQ T%|$(- T%|$(+ TjlQ Tj|$)))))))(SETQ TlO$(LIST(CAR TlO$)(-(CADR T?%$)Tj|$)))(command-s"._PLINE"TlO$(LIST(+(CAR TlO$)T$|$)(CADR TlO$))(LIST(+(CAR TlO$)T$|$)(-(CADR TlO$)T0|$))(LIST(CAR TlO$)(-(CADR TlO$)T0|$))"_C")(SSADD(ENTLAST)TQ%$)(command-s"._PLINE"(LIST(+(CAR TlO$)T?|$)(-(CADR TlO$)T?|$))(LIST(+(CAR TlO$)(- T$|$ T?|$))(-(CADR TlO$)T?|$))(LIST(+(CAR TlO$)(- T$|$ T?|$))(-(CADR TlO$)(- T0|$ T?|$)))(LIST(+(CAR TlO$)T?|$)(-(CADR TlO$)(- T0|$ T?|$)))"_C")(SSADD(ENTLAST)TQ%$)(SETQ TlO$(LIST(+(CAR TlO$)T?|$)(-(CADR TlO$)T?|$))T0|$(- T0|$(* 2 T?|$))TO|$(+(* 4 Tj|$)(* 3 TjlQ))T$|$(- T$|$(* 2 T?|$)))(command-s"._PLINE"(LIST(+(CAR TlO$)TQ|$)(CADR TlO$))(LIST(+(CAR TlO$)TQ|$)(-(CADR TlO$)(- T0|$(+ TjlQ(* 2 Tj|$)))))"")(SSADD(ENTLAST)TQ%$)(command-s"._PLINE"(LIST(+(CAR TlO$)(+ TQ|$ Tl|$))(-(CADR TlO$)(* 0.5 TO|$)))(LIST(+(CAR TlO$)(+ TQ|$ Tl|$))(-(CADR TlO$)(- T0|$(+ TjlQ(* 2 Tj|$)))))"")(SSADD(ENTLAST)TQ%$)(command-s"._PLINE"(LIST(+(CAR TlO$)(+ TQ|$(* 2 Tl|$)))(CADR TlO$))(LIST(+(CAR TlO$)(+ TQ|$(* 2 Tl|$)))(-(CADR TlO$)(- T0|$(+ TjlQ(* 2 Tj|$)))))"")(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)(/ TQ|$ 2.0))(-(CADR TlO$)(+(* 1.5 Tj|$)TjlQ))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 0 TOO$))(T01Q(NTH 0 TOO$)TjlQ(- TQ|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)(/ TQ|$ 2.0))(-(CADR TlO$)(+(* 2.5 Tj|$)(* 2 TjlQ)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 1 TOO$))(T01Q(NTH 1 TOO$)TjlQ(- TQ|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)TQ|$ Tl|$)(-(CADR TlO$)(* 0.25 TO|$))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 2 TOO$))(T01Q(NTH 2 TOO$)TjlQ(-(* 2.0 Tl|$)T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)TQ|$(* 0.5 Tl|$))(-(CADR TlO$)(* 0.75 TO|$))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 3 TOO$))(T01Q(NTH 3 TOO$)TjlQ(- Tl|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)TQ|$(* 1.5 Tl|$))(-(CADR TlO$)(* 0.75 TO|$))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 4 TOO$))(T01Q(NTH 4 TOO$)TjlQ(- Tl|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)TQ|$(* 2 Tl|$)(* 0.5 T&|$))(-(CADR TlO$)(+(* 1.0 Tj|$)(* 0.5 TjlQ)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 5 TOO$))(T01Q(NTH 5 TOO$)TjlQ(- T&|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)TQ|$(* 2 Tl|$)(* 0.5 T&|$))(-(CADR TlO$)(+(* 2.0 Tj|$)(* 1.5 TjlQ)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 6 TOO$))(T01Q(NTH 6 TOO$)TjlQ(- T&|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)TQ|$(* 2 Tl|$)(* 0.5 T&|$))(-(CADR TlO$)(+(* 3.0 Tj|$)(* 2.5 TjlQ)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 7 TOO$))(T01Q(NTH 7 TOO$)TjlQ(- T&|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(command-s"._PLINE"(LIST(+(CAR TlO$)TQ|$)(-(CADR TlO$)(* 0.5 TO|$)))(LIST(+(CAR TlO$)(+ TQ|$(* 2 Tl|$)))(-(CADR TlO$)(* 0.5 TO|$)))"")(SSADD(ENTLAST)TQ%$)(command-s"._PLINE"(LIST(CAR TlO$)(-(CADR TlO$)TO|$))(LIST(+(CAR TlO$)T$|$)(-(CADR TlO$)TO|$))"")(SSADD(ENTLAST)TQ%$)(command-s"._PLINE"(LIST(CAR TlO$)(-(CADR TlO$)(+ TO|$ T?|$)))(LIST(+(CAR TlO$)T$|$)(-(CADR TlO$)(+ TO|$ T?|$)))"")(SSADD(ENTLAST)TQ%$)(SETQ TQ?j(LENGTH T0O$)Tj0 0 T||$(CAR TlO$)T%|$(-(CADR TlO$)(+ TO|$ T?|$ Tj|$ TjlQ)))(WHILE(< Tj0 TQ?j)(SETQ Tj%$(NTH Tj0 T0O$)T?%$(LIST(+ T||$(- TQ|$ T@|$))T%|$))(T#1Q T|O$ T&O$ 2 0 T?%$ TjlQ 0.0 1.0(CAR Tj%$))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+ T||$ TQ|$(- Tl|$ T@|$))T%|$))(T#1Q T|O$ T&O$ 2 0 T?%$ TjlQ 0.0 1.0(CADR Tj%$))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+ T||$ TQ|$(-(* 2.0 Tl|$)T@|$))T%|$))(T#1Q T|O$ T&O$ 2 0 T?%$ TjlQ 0.0 1.0(CADDR Tj%$))(SSADD(ENTLAST)TQ%$)(IF(>(CAR(CDDDDR Tj%$))0)(PROGN(SETQ T?%$(LIST(+ T||$ TQ|$(* 2.0 Tl|$)(- T&|$ T@|$))T%|$))(T#1Q T|O$ T&O$ 2 0 T?%$ TjlQ 0.0 1.0(CADDDR Tj%$))(SSADD(ENTLAST)TQ%$)))(IF(=(CAR(CDDDDR Tj%$))2)(PROGN(SETQ T?%$(LIST(-(CAR T?%$)(+(* 0.5(T?&Q(Tj&j(ENTLAST))))(* 1.5 T@|$)))(+(CADR T?%$)TjlQ(* 0.3 Tj|$))))(command-s"._ARC"T?%$(LIST(+(CAR T?%$)(* 1.5 T@|$))(+(CADR T?%$)(* 0.5 Tj|$)))(LIST(+(CAR T?%$)(* 3.0 T@|$))(CADR T?%$)))(SSADD(ENTLAST)TQ%$)))(SETQ T%|$(- T%|$(+ TjlQ Tj|$))Tj0(+ Tj0 1)))(SETQ TlO$(LIST T||$(+ T%|$ TjlQ)))(command-s"._PLINE"TlO$(LIST(+(CAR TlO$)T$|$)(CADR TlO$))"")(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR TlO$)T@|$)(-(CADR TlO$)(+ TjlQ Tj|$))))(T#1Q T|O$ T&O$ 0 0 T?%$ TjlQ 0.0 1.0 T$O$)(T01Q T$O$ TjlQ(- T$|$(* 2.0 T@|$))(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(T?## TQ%$(T@1 T&%$ 0.0))(ENTLAST))(SETQ T#@@ 105)(SETQ T1%$(T$Ql(T#Ql 5)".tab"2))(SETQ T&|(T#Ql 9)T1&$(Tl1Q(T$Ql T&| TQ1Q 0))T#&$(*(Tjll T&| 2.0 1)T&0l)T0&$(Tjll T&| 0.35 2)T$&$(Tjll T&| 0.0 3)TO&$(Tlll T&| T 4)T|&$(Tlll T&| NIL 5)T%&$(Tlll T&| T 6))(SETQ T&|(T#Ql 10)T00$(T|Ql T&| 0 0)T$0$(T$Ql T&|"N"1)TO0$(T$Ql T&|"E"2)T?1$(Tl1Q(T$Ql T&| TQ1Q 9))Tj1$(*(Tjll T&| 1.8 10)T&0l))(SETVAR"PLINEWID"0)(SETVAR"PICKSTYLE"0)(SETQ Tj0$ NIL T1#$(GETVAR"CLAYER")T%%l NIL)(IF(NULL(Tl?@))(PROGN(TlO@ 105 T1?@)(SETQ T%%l T)))(IF(NULL T%%l)(PROGN(SETQ TQOj NIL T?1# NIL T111 0 T?0$ 0)(IF(T01@ T&@Q)(SETQ TQOj(SSNAME T&@Q 0)T#|j(Tj&j TQOj)T&@Q NIL)(PROGN(SETQ TQOj(T@1#(T@@@(T%l T#@@ 1))(LIST"LWPOLYLINE""POLYLINE""CIRCLE""LINE""ARC")109))(IF TQOj(SETQ T0@(CADR TQOj)TQOj(CAR TQOj)T#|j(Tj&j TQOj))(SETQ T%%l T))))))(IF(AND(NULL T%%l)TQOj)(PROGN(SETQ T?#$(T$&j T#|j))(IF(= T?#$"ARC")(SETQ T?#$"LINE"))(IF(= T?#$"LINE")(PROGN(T0#@ TQOj)(Tj@@(T@@@(T%l T#@@ 3))0"")(SETQ T?1#(SSGET))(IF T?1#(PROGN(IF T@&$(command-s"._PEDIT"TQOj"_Y""_J"T?1#"""_X")(command-s"._PEDIT"TQOj"_J"T?1#"""_X"))(SETQ TQOj(ENTLAST)T#|j(Tj&j TQOj)T?#$"POLYLINE"))(PROGN(SETQ T?#$"XX"T?0$ 1)(TlO@ 115"")))(T|#@ TQOj)))(SETQ T111 0)(COND((T$Oj T?#$)(IF(=(T%Oj(T1&j 70 T#|j))0)(PROGN(SETQ T111 1 T?0$ 1)(IF(NOT(TOOj T#|j))(command-s"._PEDIT"TQOj"_C""")))(SETQ T%%l T)))((= T?#$"CIRCLE")(SETQ T111 1 T?0$ 2)))))(IF(NULL T%%l)(PROGN(IF(/= T111 0)(PROGN(T0#@ TQOj)(SETQ T&|(Tl#Q)T&1$(NTH 0 T&|)T1#Q(NTH 1 T&|)T##Q(NTH 2 T&|)T0#Q(NTH 3 T&|))(SETQ T#|1(+ 3(MAX(STRLEN T&1$)(STRLEN T1#Q)(STRLEN T##Q)(STRLEN T0#Q))(MAX(STRLEN(T@@@(T%l T#@@ 5)))(STRLEN(T@@@(T%l T#@@ 6)))(STRLEN(T@@@(T%l T#@@ 8)))(STRLEN(T@@@(T%l T#@@ 9))))))(SETQ T@#$(GETSTRING(T$j@(T@@@(T%l T#@@ 4))T#|1 T&1$"")))(IF(= T@#$"")(SETQ T@#$ T&1$))(SETQ Tj#$(GETSTRING T(T$j@(T@@@(T%l T#@@ 5))T#|1"""")))(IF(= Tj#$"")(SETQ Tj#$" "))(SETQ TQ#$(GETSTRING(T$j@(T@@@(T%l T#@@ 6))T#|1 T1#Q""))TQ#$(SUBSTR TQ#$ 1 1))(IF(= TQ#$"")(SETQ TQ#$ T1#Q))(SETQ Tj0(ATOI TQ#$))(IF T#@l(IF(> Tj0 0)(IF(<= Tj0(LENGTH T#@l))(PROGN(SETQ TOQQ(CAR(NTH(- Tj0 1)T#@l)))(IF(AND TOQQ(TBLSEARCH"LAYER"TOQQ))(SETQ Tj0$ T T1#$ TOQQ))))))(IF(= TQ#$"1")(PROGN(Tj@@(T@@@(T%l T#@@ 7))0"")(SETQ Tl#$(GETSTRING(T$j@(T@@@(T%l T#@@ 8))T#|1 T##Q"")))(IF(= Tl#$"")(SETQ Tl#$ T##Q))(SETQ T&#$(GETSTRING(T$j@(T@@@(T%l T#@@ 9))T#|1 T0#Q""))T&#$(SUBSTR T&#$ 1 1))(IF(= T&#$"")(SETQ T&#$ T0#Q))(SETQ T&#$(STRCASE T&#$)))(SETQ Tl#$"0"T&#$" "))(IF(= T|lj 1)(PRINC"\n"))(IF T0#0(Tj@@ T1Q@ 0""))(SETQ TQOj(T?%& TQOj(NOT(T%1(T1&j 210 T#|j))))T#|j(Tj&j TQOj))(SETQ T0Oj NIL T|#$(T@Oj TQOj 0.0 0.0)T1Oj(T1(CAR T|#$)Tj0l)T#Oj(T1(CADR T|#$)T%#l)T@1$(SSADD)T0@(T&$@ NIL 0 0(T@@@(T%l T#@@ 10))0""NIL))(IF T0@(PROGN(SETVAR"CLAYER"T1#$)(SETQ T$#$(CAR T0@)TO#$(CADR T0@)T@#j"")(T#1Q T1#$ T1&$ 1 2 T0@ T#&$ 0.0 1.0 T@#$)(SSADD(ENTLAST)T@1$)(SETQ TQ#j(T$#j(ENTLAST))T#%&(POLAR T0@ T#%l(* 2.5 T#&$))Tj0 1)(IF(= T|lj 1)(IF(AND(>= T?&j 30100)(<= T?&j 30300))(SETQ Tj0 0)))(T&j#(ENTLAST)T0&$ T$&$ Tj0)(SSADD(ENTLAST)T@1$)(SETQ Tl#j(T$#j(ENTLAST)))(IF(/=(T0# Tj#$)"")(PROGN(T#1Q T1#$ T1&$ 1 2 T#%& T#&$ 0.0 1.0 Tj#$)(SSADD(ENTLAST)T@1$)(SETQ T@#j(T$#j(ENTLAST))T#%&(POLAR T#%& T#%l(* 1.5 T#&$)))))(T#1Q T1#$ T1&$ 1 2 T#%&(* T#&$ 0.75)0.0 1.0(STRCAT(T@@@(T%l T#@@ 16))"("T@#$")="(RTOS(T&j T1Oj)2 Tj0l)T@0l))(SSADD(ENTLAST)T@1$)(SETQ T#|j(T?#j T#|j(T$#j(ENTLAST))T@#j TQ#j Tl#j))(T##j T#|j NIL)(SETVAR"OSMODE"128)(SETQ Tl1$(GETVAR"ORTHOMODE"))(IF(= T|lj 0)(PROGN(SETVAR"ORTHOMODE"1)(command-s"._ROTATE"T@1$""T0@ PAUSE)))(SETVAR"OSMODE"0)(SETVAR"ORTHOMODE"Tl1$))(SETQ T$#$ 0.0 TO#$ 0.0))(PRINC(STRCAT"\n"(T@@@(T%l T#@@ 11))(RTOS(T&j T1Oj)2 Tj0l)T@0l"    "(Tl@@(T%l T#@@ 11))(RTOS(TQj T#Oj)2 T%#l)T?0l))(SETQ T0jQ(OPEN(STRCAT(GETVAR"DWGPREFIX")"arr.txt")"a")T#jQ T)(PRINC(STRCAT T@#$"_"Tj#$"_"TQ#$"_"Tl#$"_"T&#$"_"(RTOS T1Oj 2 Tj0l)"_"(RTOS T#Oj 2 T%#l)"_"(RTOS TO#$ 2 TO@Q)"_"(RTOS T$#$ 2 TO@Q)"_")T0jQ)(IF(OR T|&$ T%&$)(PROGN(SETQ T|0$ NIL T@O$ NIL)(T@0$ T@#$ Tj#$)))(IF(= T?0$ 1)(PROGN(SETQ T&0&(TOOj T#|j)Tl1&(T0Q& T#|j)Tl1&(T&&& Tl1&)T0#$ 0.0 T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(SETQ T0j&(T$$& T0&& T)T11$(CADDR T0j&))(PRINC(STRCAT T11$"*")T0jQ)(IF T$&&(PROGN(IF(= T%@& 0)(PROGN(SETQ T##$(DISTANCE T0&& T$&&))(IF(OR T|&$ T%&$)(T?$$ T11$(CADR T0&&)(CAR T0&&)T##$ 1)))(PROGN(SETQ Tl#&(T0$&(T$%j T0&& T$&& T%@&)))(IF Tl#&(PROGN(SETQ T0j&(T$$& Tl#& T)TQ@1(T%j1 T0&& T$&&(LIST(CAR T0j&)(CADR T0j&))))(IF(OR T|&$ T%&$)(T?$$ T11$(CADR T0&&)(CAR T0&&)(CAR TQ@1)2))(SETQ T11$(CADDR T0j&))(PRINC(STRCAT(Tl@@(T%l T#@@ 19))"="T11$"*")T0jQ)(IF(OR T|&$ T%&$)(T?$$ T11$(CADR T0j&)(CAR T0j&)(CADR TQ@1)3))(SETQ T##$(+(CAR TQ@1)(CADR TQ@1)))))))(SETQ T0#$(+ T0#$ T##$)))))(IF(EQUAL T#Oj 0.0 1E-10)(SETQ T#Oj T0#$))))(IF(= T?0$ 2)(PROGN(SETQ T@?@(T%&j 10 T#|j NIL)T??@(T1&j 40 T#|j)TQ%&(T|?1 T@?@ T??@))(IF(OR(NULL(T01@ TQ%&))(=(SSLENGTH TQ%&)1))(PROGN(SETQ T0j&(T$$& T@?@ T))(IF T0j&(PROGN(PRINC(STRCAT(Tl@@(T%l T#@@ 17))"="(RTOS T??@ 2 T%#l)"*"(CADDR T0j&))T0jQ)(IF(OR T|&$ T%&$)(T?$$(CADDR T0j&)(CADR T0j&)(CAR T0j&)0.0 0)))))(PROGN(SETQ TQ?1(SSLENGTH TQ%&))(COND((= TQ?1 2)(PROGN(SETQ T@Q(T%&j 10(Tj&j(SSNAME TQ%& 1))T)TQQ(T%&j 10(Tj&j(SSNAME TQ%& 0))T)T#1$(T1&j 1(Tj&j(ENTNEXT(SSNAME TQ%& 1))))T01$(T1&j 1(Tj&j(ENTNEXT(SSNAME TQ%& 0)))))(PRINC(STRCAT(T@@@(T%l T#@@ 18))"*"T#1$"*"T01$)T0jQ)(IF(OR T|&$ T%&$)(PROGN(T?$$ T#1$(CADR T@Q)(CAR T@Q)(* T??@ PI)2)(T?$$ T01$(CADR TQQ)(CAR TQQ)(* T??@ PI)2)(T?$$(T@@@(T%l T#@@ 17))(CADR T@?@)(CAR T@?@)0.0 0)))))((> TQ?1 2)(PROGN(SETQ T@Q(T%&j 10(Tj&j(SSNAME TQ%& 2))T)TQQ(T%&j 10(Tj&j(SSNAME TQ%& 1))T)T$%l(T%&j 10(Tj&j(SSNAME TQ%& 0))T)T#1$(T1&j 1(Tj&j(ENTNEXT(SSNAME TQ%& 2))))T01$(T1&j 1(Tj&j(ENTNEXT(SSNAME TQ%& 1))))T$1$(T1&j 1(Tj&j(ENTNEXT(SSNAME TQ%& 0)))))(PRINC(STRCAT(Tl@@(T%l T#@@ 18))"*"T#1$"*"T01$"*"T$1$)T0jQ)(IF(OR T|&$ T%&$)(PROGN(SETQ TQ@1(T%j1 T@Q T$%l TQQ))(T?$$ T#1$(CADR T@Q)(CAR T@Q)(CAR TQ@1)2)(T?$$ T01$(CADR TQQ)(CAR TQQ)(CADR TQ@1)2)(SETQ TQ@1(T%j1 T$%l TQQ T@Q))(T?$$ T$1$(CADR T$%l)(CAR T$%l)(CAR TQ@1)2)(T?$$(T@@@(T%l T#@@ 17))(CADR T@?@)(CAR T@?@)0.0 0))))))))))(PRINC"\n"T0jQ)(CLOSE T0jQ)(SETQ T#jQ NIL)(IF(OR T|&$ T%&$)(PROGN(SETQ T|0$(APPEND T|0$(LIST"ÇÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄĶ")))(IF(= T?0$ 2)(PROGN(SETQ T%1$(STRCAT(Tl@@(T%l T#@@ 15))"="(RTOS(TQj T??@)2 T%#l)T?0l"   "(T@@@(T%l T#@@ 16))"=ã"(Tl@@(T%l T#@@ 15))"ý   "(Tl@@(T%l T#@@ 16))"=2ã"(Tl@@(T%l T#@@ 15))))(SETQ T|0$(APPEND T|0$(LIST(STRCAT"º "(T0$ T%1$ 43)"º"))))))(SETQ T%1$(STRCAT(T@@@(T%l T#@@ 16))"("T@#$")="(RTOS(T&j T1Oj)2 Tj0l)T@0l"  "(Tl@@(T%l T#@@ 16))"="(RTOS(TQj T#Oj)2 T%#l)T?0l))(SETQ T|0$(APPEND T|0$(LIST(STRCAT"º "(T0$ T%1$ 43)"º")"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ")))(IF(= T?0$ 2)(SETQ T%1$(STRCAT T%1$"  "(Tl@@(T%l T#@@ 15))"="(RTOS(TQj T??@)2 T%#l)T?0l)))(IF(>(LENGTH T|0$)0)(PROGN(IF T|&$(PROGN(SETQ T%#$(STRCAT(GETVAR"DWGPREFIX")"arr"T1%$))(IF(=(STRCASE(STRCAT"arr"T1%$))"ARR.TXT")(SETQ T%#$(STRCAT(GETVAR"DWGPREFIX")"arrtab"T1%$)))(T@lj T%#$"a")(SETQ T$jQ T)(Tllj T|0$)(T%Qj)(SETQ T$jQ NIL)))(IF T%&$(PROGN(SETVAR"CLAYER"T1#$)(IF(OR(NULL T?1$)(NULL(TBLSEARCH"STYLE"T?1$)))(SETQ T?1$(GETVAR"TEXTSTYLE")))(T1%@ Tl?Q NIL)(SETQ T0@(GETVAR"VIEWCTR"))(SETQ TQ1$(TQO$ T0@ Tj1$ T?1$(STRCAT(T@@@(T%l T#@@ 12))" ("T@#$")")Tj#$ T@O$ T%1$ T%0$ T1#$))(command-s"._MOVE"TQ1$""T0@)(SETVAR"OSMODE"T1@Q)(command-s PAUSE)(SETVAR"OSMODE"0)))))))(IF(/= TQ#$"1")(SETQ Tl#$ T##Q T&#$ T0#Q))(T$#Q T@#$ TQ#$ Tl#$ T&#$)(T|#@ TQOj)(IF Tj0$(command-s"._CHPROP"TQOj"""_LA"T1#$""))(IF TO&$(PROGN(SETVAR"CLAYER"T1#$)(SSADD TQOj T@1$)(T&?0)(IF(= T|lj 0)(T0?0 T@1$))(IF(= T|lj 1)(PROGN(IF(OR(= T%lj 11)(AND(= T%lj 3)(>= T?&j 20120800)))(T0?0 T@1$)(T0?0 TQOj)))))))(IF(= T?0$ 0)(TlO@ 109"")))))(PRINC))
(defun T#%$(/ T?1$ Tj1$ TQ1$ TQOj T#|j T0%$ T$%$ Tl1& T0j& T1Q& T&Q& T0@ T1#$ T?#$ T$?j T#@@ T%&& T|&& T1Oj T#Oj T&| T|#$ T10$ T#0$ T@$$ TQ$$ T%%l T&0&)
(defun TO%$(Tj|Q TjlQ T&O$ TOO$ T0O$ T|O$ / TQ%$ T?%$ Tj%$ TQ?j Tj0 Tj|$ T@|$ TQ|$ Tl|$ T0|$ T$|$ TO|$ T||$ T%|$)(SETVAR"TEXTSTYLE"T&O$)(SETVAR"TEXTSIZE"TjlQ)(SETVAR"PLINEWID"(* 0.128 TjlQ))(SETVAR"CLAYER"T|O$)(SETQ TQ?j(LENGTH T0O$)Tj|$(* 0.75 TjlQ)T@|$(* 0.75(T@&Q"0"TjlQ 1.0 T&O$))TQ|$(* 9.0 T&0l)Tl|$(* 18.0 T&0l)T0|$(+(* 2 TjlQ)(* 1.5 Tj|$)(* TQ?j(+ TjlQ Tj|$)))T$|$(+ TQ|$(* 2 Tl|$))TQ%$(SSADD))(command-s"._PLINE"Tj|Q(LIST(+(CAR Tj|Q)T$|$)(CADR Tj|Q))(LIST(+(CAR Tj|Q)T$|$)(-(CADR Tj|Q)T0|$))(LIST(CAR Tj|Q)(-(CADR Tj|Q)T0|$))"_C")(SSADD(ENTLAST)TQ%$)(SETQ TO|$(+(* 1.5 Tj|$)(* 2 TjlQ)))(command-s"._PLINE"(LIST(CAR Tj|Q)(-(CADR Tj|Q)TO|$))(LIST(+(CAR Tj|Q)T$|$)(-(CADR Tj|Q)TO|$))"")(SSADD(ENTLAST)TQ%$)(command-s"._LINE"(LIST(+(CAR Tj|Q)TQ|$)(CADR Tj|Q))(LIST(+(CAR Tj|Q)TQ|$)(-(CADR Tj|Q)T0|$))"")(SSADD(ENTLAST)TQ%$)(command-s"._LINE"(LIST(+(CAR Tj|Q)(+ TQ|$ Tl|$))(CADR Tj|Q))(LIST(+(CAR Tj|Q)(+ TQ|$ Tl|$))(-(CADR Tj|Q)T0|$))"")(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR Tj|Q)(/ TQ|$ 2.0))(-(CADR Tj|Q)(+(* Tj|$ 0.5)(* TjlQ 0.5)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 0 TOO$))(T01Q(NTH 0 TOO$)TjlQ(- TQ|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(POLAR T?%$ T#%l(+(* Tj|$ 0.5)TjlQ)))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 1 TOO$))(T01Q(NTH 1 TOO$)TjlQ(- TQ|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR Tj|Q)TQ|$(* 0.5 Tl|$))(-(CADR Tj|Q)(+(* Tj|$ 0.5)(* TjlQ 0.5)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 2 TOO$))(T01Q(NTH 2 TOO$)TjlQ(- Tl|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(POLAR T?%$ T#%l(+(* Tj|$ 0.5)TjlQ)))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 3 TOO$))(T01Q(NTH 3 TOO$)TjlQ(- Tl|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+(CAR Tj|Q)TQ|$(* 1.5 Tl|$))(-(CADR Tj|Q)(+(* Tj|$ 0.5)(* TjlQ 0.5)))))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 4 TOO$))(T01Q(NTH 4 TOO$)TjlQ(- Tl|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(POLAR T?%$ T#%l(+(* Tj|$ 0.5)TjlQ)))(T#1Q T|O$ T&O$ 1 2 T?%$ TjlQ 0.0 1.0(NTH 5 TOO$))(T01Q(NTH 5 TOO$)TjlQ(- Tl|$ T@|$)(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ Tj0 0 T||$(CAR Tj|Q)T%|$(-(CADR Tj|Q)(+ TO|$(* Tj|$ 0.5)TjlQ)))(WHILE(< Tj0 TQ?j)(SETQ Tj%$(NTH Tj0 T0O$)T?%$(LIST(+ T||$(* TQ|$ 0.5))T%|$))(T#1Q T|O$ T&O$ 1 0 T?%$ TjlQ 0.0 1.0(CAR Tj%$))(T01Q(CAR Tj%$)TjlQ(- TQ|$(* 2.0 T@|$))(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+ T||$ TQ|$(- Tl|$ T@|$))T%|$))(T#1Q T|O$ T&O$ 2 0 T?%$ TjlQ 0.0 1.0(CADR Tj%$))(T01Q(CADR Tj%$)TjlQ(- Tl|$(* 2.0 T@|$))(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(SETQ T?%$(LIST(+ T||$ TQ|$(-(* 2.0 Tl|$)T@|$))T%|$))(T#1Q T|O$ T&O$ 2 0 T?%$ TjlQ 0.0 1.0(CADDR Tj%$))(T01Q(CADDR Tj%$)TjlQ(- Tl|$(* 2.0 T@|$))(Tj&j(ENTLAST)))(SSADD(ENTLAST)TQ%$)(IF(< Tj0(- TQ?j 1))(PROGN(command-s"._LINE"(LIST T||$(- T%|$(* Tj|$ 0.5)))(LIST(+ T||$ T$|$)(- T%|$(* Tj|$ 0.5)))"")(SSADD(ENTLAST)TQ%$)))(SETQ T%|$(- T%|$(+ TjlQ Tj|$))Tj0(+ Tj0 1)))(T?## TQ%$(T@1 Tj|Q 0.0))(ENTLAST))(SETQ T#@@ 105)(SETQ T&|(T#Ql 10)T00$(T|Ql T&| 0 0)T$0$(T$Ql T&|"N"1)TO0$(T$Ql T&|"E"2)T?1$(Tl1Q(T$Ql T&| TQ1Q 9))Tj1$(*(Tjll T&| 1.8 10)T&0l))(SETVAR"PLINEWID"0)(SETVAR"PICKSTYLE"0)(SETQ T1#$(GETVAR"CLAYER")T%%l NIL T0%$ NIL)(IF(NULL(Tl?@))(PROGN(TlO@ 105 T1?@)(SETQ T%%l T)))(IF(NULL T%%l)(IF(T01@ T&@Q)(SETQ TQOj(SSNAME T&@Q 0)T&@Q NIL)(PROGN(SETQ TQOj(T@1#(T@@@(T%l T#@@ 1))(LIST"LWPOLYLINE""POLYLINE""CIRCLE")111))(IF TQOj(SETQ TQOj(CAR TQOj))(SETQ T%%l T)))))(IF(AND(NULL T%%l)TQOj)(PROGN(T0#@ TQOj)(SETQ T#|j(Tj&j TQOj))(IF T#|j(PROGN(SETQ T?#$(T$&j T#|j))(IF(OR(T$Oj T?#$)(= T?#$"CIRCLE"))(PROGN(SETQ TQOj(T?%& TQOj NIL))(IF TQOj(SETQ T#|j(Tj&j TQOj))(SETQ T%%l T)))(PROGN(SETQ T%%l T)(TlO@ 111"")(T|#@ TQOj)))))))(IF(AND(NULL T%%l)TQOj)(PROGN(IF(< T00$ 4)(SETQ T10$ T$0$ T#0$ TO0$)(SETQ T10$ TO0$ T#0$ T$0$))(SETQ T$%$(LIST(T@@@(T%l T#@@ 13))(Tl@@(T%l T#@@ 13))T10$(STRCAT"["T|#l"]")T#0$(STRCAT"["T|#l"]")))(SETQ T0Oj NIL T|#$(T@Oj TQOj 0.0 0.0)T1Oj(T1(CAR T|#$)Tj0l)T#Oj(T1(CADR T|#$)T%#l))(PRINC(STRCAT"\n"(T@@@(T%l T#@@ 11))(RTOS(T&j T1Oj)2 Tj0l)T@0l"    "(Tl@@(T%l T#@@ 11))(RTOS(TQj T#Oj)2 T%#l)T?0l))(SETQ T&0&(TOOj T#|j)Tl1&(T0Q& T#|j)Tl1&(T&&& Tl1&)T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T&Q&(LIST(CADR T1Q&)(CADDR T1Q&))T0j&(T$$& T&Q& T))(IF T0j&(SETQ T&Q&(LIST(CAR T0j&)(CADR T0j&)))(SETQ T0j&(TO?1(LIST(CAR T&Q&)(CADR T&Q&)"""0.000"Tj#l))T&Q&(LIST(CAR T0j&)(CADR T0j&))))(SETQ T$?j(CADDR T0j&))(IF(< T00$ 4)(SETQ T@$$(CADR T&Q&)TQ$$(CAR T&Q&))(SETQ T@$$(CAR T&Q&)TQ$$(CADR T&Q&)))(SETQ T0%$(APPEND T0%$(LIST(LIST T$?j(RTOS T@$$ 2 TO@Q)(RTOS TQ$$ 2 TO@Q))))))))(IF(AND(NULL T%%l)T0%$)(PROGN(T1%@ Tl?Q NIL)(SETQ T0@(GETVAR"VIEWCTR")TQ1$(TO%$ T0@ Tj1$ T?1$ T$%$ T0%$ T1#$))(command-s"._MOVE"TQ1$""T0@)(SETVAR"OSMODE"T1@Q)(command-s PAUSE)(T|#@ TQOj)))(PRINC))
(defun T$#0(T|%$ / T%%$ T??O Tj?O T@?O TQ?O Tl?O T&?O T1?O Tjl1 T#?O T0?O T0#& T$?O TO?O T|?O T%?O T?jO TjjO T0@# T?1j T@jO Tj&Q TQjO TljO T&jO T1jO T#jO T0jO T$jO TOjO T|jO T0&& T$&& T0@ Tj|Q T%jO T?@O Tj@O T@@O T@Q TQQ T$%l T$?# T0%& T?01 TlQ T&Q T#Q T0Q TQ@O Tl@O T&@O T1@O TO@ T|@ T#@O T0@O T$@O TO@O T|@O TQ%j T?Q T%@O T?QO T?@@ T$$ T&@1 T&| TjQO T@QO T# T#lj TQQO TlQO T&QO TQ% T%% Tjl# T1QO Tl|l T&?@ T#@@)(SETQ T#@@ 155 T&?@ NIL)(SETQ T&|(T#Ql 8)T%%$(Tl1Q(T$Ql T&| TQ1Q 0))T??O(*(Tjll T&| 1.8 1)T&0l)Tj?O(Tjll T&| 0.85 2)T@?O(*(Tjll T&| 100.0 3)T&0l)TQ?O(*(Tjll T&| 10.0 4)T&0l)T&?O(T|Ql T&| 1 5)T1?O(T|Ql T&| 0 6)Tl?O(*(Tjll T&| 1.0 7)T&0l))(SETVAR"PLINEWID"0)(SETVAR"TEXTSTYLE"T%%$)(IF(T01@ T&@Q)(SETQ TQjO(SSNAME T&@Q 0)T&@Q NIL)(PROGN(SETQ TQjO(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 1))0""""))))(IF TQjO(IF(NOT(T$Oj(T$&j(Tj&j TQjO))))(PROGN(TlO@ 112"")(SETQ TQjO NIL))))))(IF(AND TQjO(=(T%Oj(T1&j 70(Tj&j TQjO)))0))(PROGN(IF(NOT(TOOj(Tj&j TQjO)))(PROGN(SETQ TljO(Tj&j TQjO))(T##j TljO(LIST(LIST 70 1)))))(SETQ Tjl1(T0?1 TQjO))(IF Tjl1(T#?1 Tjl1 1.0))(PRINC)(T0#@ TQjO)(IF(NULL T|%$)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 2))0 T?Q@""))T%@@)(SETQ T|%$ T)))(SETQ T|%$ NIL))(IF(= T&?O 2)(SETQ T1?O NIL))(T|#@ TQjO)(Tl$j T0@l)(SETQ TjQO(GETVAR"CLAYER")T?jO(SSADD))(IF T|%$(PROGN(command-s"._UCS""_P")(SETQ T1jO(TRANS(LIST(CAR Tjl1)(CADR Tjl1))0 1)T#jO(TRANS(LIST(CADDR Tjl1)(CADDDR Tjl1))0 1)T0jO(TRANS(LIST(CADDR Tjl1)(CADR Tjl1))0 1)T$jO(TRANS(LIST(CAR Tjl1)(CADDDR Tjl1))0 1)Tjl1(TQQ1(LIST T1jO T#jO T0jO T$jO)))))(SETQ T@QO T)(IF(= T&?O 1)(PROGN(SETQ T@QO(T0|Q"CJx.dwg"Tl%Q))(IF(NULL T@QO)(TlO@ 106"CJx.dwg"))))(IF(= T&?O 2)(PROGN(SETQ T@QO(T0|Q"CJxcoo.dwg"Tl%Q))(IF(NULL T@QO)(TlO@ 106"CJxcoo.dwg"))))(IF T@QO(PROGN(SETQ T&?@ T TlQ(CAR Tjl1)T&Q(CADR Tjl1)T#Q(CADDR Tjl1)T0Q(CADDDR Tjl1)TOjO(T&&(LIST TlQ T&Q)(LIST T#Q T0Q))T|jO(LIST(+ T#Q TQ?O)(+ T0Q TQ?O))T0?O NIL T?1j(Tj&j TQjO))(IF(T$Oj(T$&j T?1j))(IF(=(T%Oj(T1&j 70 T?1j))0)(SETQ T0?O(T00&(T0Q& T?1j)0 1))))(IF(AND T0?O(NULL(Tj#& T0?O TOjO)))(PROGN(SETQ T0&&(LIST(CADR(CAR T0?O))(CADDR(CAR T0?O)))T$&&(LIST(CADR(CADR T0?O))(CADDR(CADR T0?O)))TQ%j(ANGLE T0&& T$&&)T?Q(DISTANCE T0&& T$&&)TOjO NIL T0@(POLAR T0&&(- TQ%j 1E-6)(/ T?Q 10.0)))(IF(AND(NULL TOjO)(Tj#& T0?O T0@))(SETQ TOjO T0@))(SETQ T0@(POLAR T0&&(+ TQ%j 1E-6)(/ T?Q 10.0)))(IF(AND(NULL TOjO)(Tj#& T0?O T0@))(SETQ TOjO T0@))(IF(NULL TOjO)(PROGN(SETQ TQ%j 0.0)(REPEAT 8(SETQ T0@(POLAR T0&& TQ%j 1E-6))(IF(AND(NULL TOjO)(Tj#& T0?O T0@))(SETQ TOjO T0@))(SETQ TQ%j(+ TQ%j T?#@)))))(IF(NULL TOjO)(SETQ TOjO(T&& T0&& T$&&)))))(SETQ TQ@O(* T@?O(Tj(/ TlQ T@?O))))(IF(>(T&(/ TlQ T@?O))0)(SETQ TQ@O(+ TQ@O T@?O)))(SETQ Tl@O(* T@?O(Tj(/ T&Q T@?O))))(IF(>(T&(/ T&Q T@?O))0)(SETQ Tl@O(+ Tl@O T@?O)))(SETQ T&@O(* T@?O(Tj(/ T#Q T@?O))))(IF(<(T&(/ T#Q T@?O))0)(SETQ T&@O(- T&@O T@?O)))(SETQ T1@O(* T@?O(Tj(/ T0Q T@?O))))(IF(<(T&(/ T0Q T@?O))0)(SETQ T1@O(- T1@O T@?O)))(IF(EQUAL(- T&@O TQ@O)0.0 1E-10)(SETQ T&@O(+ T&@O T@?O)))(IF(EQUAL(- T1@O Tl@O)0.0 1E-10)(SETQ T1@O(+ T1@O T@?O)))(SETQ T# 0 T%@O(T&(ABS T@?O)))(IF(> T%@O 0.01)(PROGN(SETQ T#(+ T# 1)T%@O(T&(* T%@O 10)))(IF(> T%@O 0.001)(PROGN(SETQ T#(+ T# 1)T%@O(T&(* T%@O 10)))(IF(> T%@O 0.0001)(SETQ T#(+ T# 1)))))))(SETQ TljO NIL T&jO NIL)(IF(= T1?O 0)(PROGN(T?#& TQjO)(command-s"._OFFSET"TQ?O TQjO TOjO"")(SETQ T@jO(ENTLAST))(IF T@jO(PROGN(SETQ TljO(CDR(CAR(Tj&j T@jO)))T&jO TQjO)(T##j(Tj&j TljO)(LIST(LIST 8 TjQO)(LIST 62 256)(LIST 6"BYLAYER")))))))(IF(= T1?O 1)(PROGN(T?#& TQjO)(SETQ T@jO(ENTLAST))(command-s"._OFFSET"TQ?O TQjO T|jO"")(SETQ T@jO(ENTLAST))(IF T@jO(PROGN(SETQ TljO TQjO T&jO(CDR(CAR(Tj&j T@jO))))(T##j(Tj&j T&jO)(LIST(LIST 8 TjQO)))))))(IF(= T&?O 2)(SETQ TljO NIL T&jO TQjO))(SETQ T#?O NIL T0?O NIL)(IF TljO(PROGN(SETQ T?1j(Tj&j TljO))(IF(T$Oj(T$&j T?1j))(IF(=(T%Oj(T1&j 70 T?1j))0)(SETQ T#?O(T00&(T0Q& T?1j)0 1))))))(IF T&jO(PROGN(SETQ T?1j(Tj&j T&jO))(IF(T$Oj(T$&j T?1j))(IF(=(T%Oj(T1&j 70 T?1j))0)(SETQ T0?O(T00&(T0Q& T?1j)0 1))))))(IF(= T&?O 2)(PROGN(SETVAR"ATTREQ"1)(SETQ T?QO(+ T#%l(ANGLE(TRANS(LIST TQ@O Tl@O)1 0)(TRANS(LIST TQ@O T1@O)1 0)))T|@ Tl@O)(WHILE(<= T|@(+ T1@O 1E-8))(SETQ TO@ TQ@O)(WHILE(<= TO@(+ T&@O 1E-8))(SETQ T0@(LIST TO@ T|@))(IF(Tj#& T0?O T0@)(PROGN(SETQ Tj|Q T0@)(IF T|%$(PROGN(SETQ Tj|Q(TRANS T0@ 1 0))(command-s"._UCS""_W")))(T?|Q"CJxcoo"Tj|Q Tl?O Tl?O Tl?O""NIL)(command-s(RTOS T|@ 2 T#)(RTOS TO@ 2 T#))(IF T|%$(PROGN(command-s"._ROTATE"(ENTLAST)""Tj|Q"R"Tj|Q(POLAR Tj|Q 0.0 1.0)(POLAR Tj|Q T?QO 1.0))(command-s"._UCS""_P")))(SSADD(ENTLAST)T?jO)))(SETQ TO@(+ TO@ T@?O)))(SETQ T|@(+ T|@ T@?O))))(PROGN(SETQ TjjO(SSADD)T#@O(- TQ@O(* T@?O 2.0))T0@O(+ T&@O(* T@?O 2.0))T|@ Tl@O)(WHILE(<= T|@(+ T1@O 1E-8))(SETQ T$?O(T##&(LIST T#@O T|@)(LIST T0@O T|@)T0?O)T0#&(T##&(LIST T#@O T|@)(LIST T0@O T|@)T#?O))(IF(AND T$?O T0#&)(PROGN(SETQ T#lj(LENGTH T$?O)TQQO(LENGTH T0#&)TlQO -1)(REPEAT T#lj(SETQ TlQO(+ TlQO 1)TO?O(NTH TlQO T$?O)T%jO(CAR TO?O)T?@O(CADR TO?O)Tjl# NIL T&QO -1)(REPEAT TQQO(SETQ T&QO(+ T&QO 1)TO?O(NTH T&QO T0#&)T@Q(CAR TO?O)TQQ(CADR TO?O))(IF(AND(T0|l T%jO T@Q T?@O 1E-4)(T0|l T%jO TQQ T?@O 1E-4))(PROGN(IF(NULL Tjl#)(SETQ Tj@O T@Q))(SETQ T@@O TQQ Tjl# T))))(IF Tjl#(PROGN(SETQ T?@@(T@&Q(RTOS T|@ 2 T#)T??O Tj?O T%%$))(IF(>(DISTANCE T%jO Tj@O)(* 2.5 T@?O))(PROGN(SETQ T%jO(POLAR Tj@O(ANGLE Tj@O T%jO)(+ T?@@(* 2.0 T??O)))TO@ TQ@O)(WHILE(AND(<= TO@(+ T&@O 1E-8))(<= TO@(CAR T%jO)))(SETQ TO@(+ TO@ T@?O)))(SETQ T%jO(LIST(- TO@ T@?O)(CADR T%jO)))))(IF(>(DISTANCE T?@O T@@O)(* 2.5 T@?O))(PROGN(SETQ T?@O(POLAR T@@O(ANGLE T@@O T?@O)(+ T?@@(* 2.0 T??O)))TO@ TQ@O)(WHILE(AND(<= TO@(+ T&@O 1E-8))(<= TO@(CAR T?@O)))(SETQ TO@(+ TO@ T@?O)))(SETQ T?@O(LIST TO@(CADR T?@O)))))(IF(= T&?O 0)(PROGN(command-s"._LINE"T%jO T?@O"")(SSADD(ENTLAST)T?jO)))(IF(= T&?O 1)(PROGN(command-s"._LINE"T%jO Tj@O"")(SSADD(ENTLAST)T?jO)(command-s"._LINE"T@@O T?@O"")(SSADD(ENTLAST)T?jO)))(IF T|%$(SETQ Tj@O(TRANS Tj@O 1 0)T@@O(TRANS T@@O 1 0)T%jO(TRANS T%jO 1 0)T?@O(TRANS T?@O 1 0)))(SETQ T?QO(ANGLE T%jO T?@O)T0%&(T&& T%jO Tj@O))(REPEAT 2(SETQ T1QO T T0@(POLAR T0%&(+ T?QO T%&)(* TO0l T&0l))TQ% 0)(WHILE(AND(< TQ% 2)T1QO)(SETQ T1QO NIL TQ%(+ TQ% 1)T@Q(POLAR T0@(- T?QO PI)(/ T?@@ 2.0))TQQ(POLAR T@Q T?QO T?@@)T$%l(POLAR TQQ(+ T?QO T%&)T??O)T$?#(POLAR T$%l(- T?QO PI)T?@@))(IF T|%$(SETQ T@Q(TRANS T@Q 0 1)TQQ(TRANS TQQ 0 1)T$%l(TRANS T$%l 0 1)T$?#(TRANS T$?# 0 1)))(SETQ T?01 T0@)(IF T|%$(SETQ T?01(TRANS T?01 0 1)))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T?01)))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T?01))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T@Q)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O TQQ)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T$%l)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T$?#)))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T@Q))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O TQQ))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T$%l))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T$?#))(SETQ T1QO T))(IF T1QO(SETQ T0@(POLAR T0%&(- T?QO T%&)(+(* TO0l T&0l)T??O)))))(IF T1QO(SETQ T0@(POLAR T0%&(+ T?QO T%&)(* TO0l T&0l))))(T#1Q TjQO T%%$ 1 0 T0@ T??O T?QO Tj?O(RTOS T|@ 2 T#))(SSADD(ENTLAST)T?jO)(SSADD(ENTLAST)TjjO)(SETQ T0%&(T&& T?@O T@@O))))))))(SETQ T|@(+ T|@ T@?O)))(SETQ TO@O(- Tl@O(* T@?O 2.0))T|@O(+ T1@O(* T@?O 2.0))TO@ TQ@O)(WHILE(<= TO@(+ T&@O 1E-8))(SETQ T$?O(T##&(LIST TO@ TO@O)(LIST TO@ T|@O)T0?O)T0#&(T##&(LIST TO@ TO@O)(LIST TO@ T|@O)T#?O))(IF(AND T$?O T0#&)(PROGN(SETQ T#lj(LENGTH T$?O)TQQO(LENGTH T0#&)TlQO -1)(REPEAT T#lj(SETQ TlQO(+ TlQO 1)TO?O(NTH TlQO T$?O)T%jO(CAR TO?O)T?@O(CADR TO?O)Tjl# NIL T&QO -1)(REPEAT TQQO(SETQ T&QO(+ T&QO 1)TO?O(NTH T&QO T0#&)T@Q(CAR TO?O)TQQ(CADR TO?O))(IF(AND(T0|l T%jO T@Q T?@O 1E-4)(T0|l T%jO TQQ T?@O 1E-4))(PROGN(IF(NULL Tjl#)(SETQ Tj@O T@Q))(SETQ T@@O TQQ Tjl# T))))(IF Tjl#(PROGN(SETQ T?@@(T@&Q(RTOS TO@ 2 T#)T??O Tj?O T%%$))(IF(>(DISTANCE T%jO Tj@O)(* 2.5 T@?O))(PROGN(SETQ T%jO(POLAR Tj@O(ANGLE Tj@O T%jO)(+ T?@@(* 2.0 T??O)))T|@ Tl@O)(WHILE(AND(<= T|@(+ T1@O 1E-8))(<= T|@(CADR T%jO)))(SETQ T|@(+ T|@ T@?O)))(SETQ T%jO(LIST(CAR T%jO)(- T|@ T@?O)))))(IF(>(DISTANCE T?@O T@@O)(* 2.5 T@?O))(PROGN(SETQ T?@O(POLAR T@@O(ANGLE T@@O T?@O)(+ T?@@(* 2.0 T??O)))T|@ Tl@O)(WHILE(AND(<= T|@(+ T1@O 1E-8))(<= T|@(CADR T?@O)))(SETQ T|@(+ T|@ T@?O)))(SETQ T?@O(LIST(CAR T?@O)T|@))))(IF(= T&?O 0)(PROGN(command-s"._LINE"T%jO T?@O"")(SSADD(ENTLAST)T?jO)))(IF(= T&?O 1)(PROGN(command-s"._LINE"T%jO Tj@O"")(SSADD(ENTLAST)T?jO)(command-s"._LINE"T@@O T?@O"")(SSADD(ENTLAST)T?jO)))(IF T|%$(SETQ Tj@O(TRANS Tj@O 1 0)T@@O(TRANS T@@O 1 0)T%jO(TRANS T%jO 1 0)T?@O(TRANS T?@O 1 0)))(SETQ T?QO(ANGLE T%jO T?@O)T$$(DISTANCE T%jO Tj@O)T0%&(T&& T%jO Tj@O)T&@1(MAX(/ T$$ 2.0)(/ T?@@ 2.0)(/ TQ?O 2.0)T??O)T&@1(+ T&@1(* 2.0 T??O))T&@1(* 2.0 T&@1))(REPEAT 2(SETQ T0@#(QQAD TjjO))(QQKE T0@#""NIL(FLOAT(CAR T0%&))(FLOAT(CADR T0%&))(FLOAT T&@1)0 0 0 3)(SETQ T$@O NIL)(IF(NOT(T01@ T0@#))(PROGN(SETQ Tl|l NIL T1QO T TQ% 0)(WHILE(AND(< TQ% 10)T1QO)(SETQ T1QO NIL TQ%(+ TQ% 1))(COND((OR(= TQ% 1)(= TQ% 2))(SETQ T0@ T0%&))((OR(= TQ% 3)(= TQ% 4))(SETQ T0@(POLAR T0%&(- T?QO PI)(/ T$$ 4.0))))((OR(= TQ% 5)(= TQ% 6))(SETQ T0@(POLAR T0%& T?QO(/ T$$ 4.0))))((OR(= TQ% 7)(= TQ% 8))(SETQ T0@(POLAR T0%&(- T?QO PI)(-(/ T$$ 2.0)(+(* TO0l T&0l)(/ T?@@ 2.0))))))((OR(= TQ% 9)(= TQ% 10))(SETQ T0@(POLAR T0%& T?QO(-(/ T$$ 2.0)(+(* TO0l T&0l)(/ T?@@ 2.0)))))))(IF(TOl TQ%)(SETQ T0@(POLAR T0@(- T?QO T%&)(+(* TO0l T&0l)T??O)))(SETQ T0@(POLAR T0@(+ T?QO T%&)(* TO0l T&0l))))(SETQ T@Q(POLAR T0@(- T?QO PI)(/ T?@@ 2.0))TQQ(POLAR T@Q T?QO T?@@)T$%l(POLAR TQQ(+ T?QO T%&)T??O)T$?#(POLAR T$%l(- T?QO PI)T?@@))(IF T|%$(SETQ T@Q(TRANS T@Q 0 1)TQQ(TRANS TQQ 0 1)T$%l(TRANS T$%l 0 1)T$?#(TRANS T$?# 0 1)))(SETQ T%?O(LIST T@Q TQQ T$%l T$?# T@Q))(SETQ T%%(SSLENGTH T0@#)Tl|l NIL)(WHILE(AND(> T%% 0)(NULL Tl|l))(SETQ Tj&Q(SSNAME T0@#(SETQ T%%(- T%% 1)))T|?O(Tj?# Tj&Q NIL))(IF T|?O(PROGN(IF T|%$(SETQ T|?O(T%0& T|?O 0 1)))(SETQ T|?O(APPEND T|?O(LIST(CAR T|?O))))(IF(AND(NULL Tl|l)(T??& T|?O T@Q TQQ))(SETQ Tl|l T))(IF(AND(NULL Tl|l)(T??& T|?O TQQ T$%l))(SETQ Tl|l T))(IF(AND(NULL Tl|l)(T??& T|?O T$%l T$?#))(SETQ Tl|l T))(IF(AND(NULL Tl|l)(T??& T|?O T$?# T@Q))(SETQ Tl|l T))(IF(AND(NULL Tl|l)(T@j& T|?O T%?O))(SETQ Tl|l T))(IF(AND(NULL Tl|l)(T@j& T%?O T|?O))(SETQ Tl|l T)))))(SETQ T1QO Tl|l)(SETQ T?01 T0@)(IF T|%$(SETQ T?01(TRANS T?01 0 1)))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T?01)))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T?01))(SETQ T1QO T))(IF(AND(<= TQ% 2)(NULL T1QO))(SETQ T$@O T0@))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T@Q)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O TQQ)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T$%l)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T$?#)))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T@Q))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O TQQ))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T$%l))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T$?#))(SETQ T1QO T)))(IF T1QO(SETQ T0@ T$@O)))(PROGN(SETQ T1QO T T0@(POLAR T0%&(+ T?QO T%&)(* TO0l T&0l))TQ% 0)(WHILE(AND(< TQ% 2)T1QO)(SETQ T1QO NIL TQ%(+ TQ% 1))(SETQ T@Q(POLAR T0@(- T?QO PI)(/ T?@@ 2.0))TQQ(POLAR T@Q T?QO T?@@)T$%l(POLAR TQQ(+ T?QO T%&)T??O)T$?#(POLAR T$%l(- T?QO PI)T?@@))(IF T|%$(SETQ T@Q(TRANS T@Q 0 1)TQQ(TRANS TQQ 0 1)T$%l(TRANS T$%l 0 1)T$?#(TRANS T$?# 0 1)))(SETQ T?01 T0@)(IF T|%$(SETQ T?01(TRANS T?01 0 1)))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T?01)))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T?01))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T@Q)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O TQQ)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T$%l)))(SETQ T1QO T))(IF(AND(NULL T1QO)(NULL(Tj#& T0?O T$?#)))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T@Q))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O TQQ))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T$%l))(SETQ T1QO T))(IF(AND(NULL T1QO)(Tj#& T#?O T$?#))(SETQ T1QO T))(IF T1QO(SETQ T0@(POLAR T0%&(- T?QO T%&)(+(* TO0l T&0l)T??O)))))(IF T1QO(SETQ T0@(POLAR T0%&(+ T?QO T%&)(* TO0l T&0l))))))(IF T0@(PROGN(T#1Q TjQO T%%$ 1 0 T0@ T??O T?QO Tj?O(RTOS TO@ 2 T#))(SSADD(ENTLAST)T?jO)))(SETQ T$$(DISTANCE T?@O T@@O)T0%&(T&& T?@O T@@O))))))))(SETQ TO@(+ TO@ T@?O)))(IF(= T&?O 1)(PROGN(SETVAR"ATTREQ"0)(SETQ T|@ Tl@O)(WHILE(<= T|@(+ T1@O 1E-8))(SETQ TO@ TQ@O)(WHILE(<= TO@(+ T&@O 1E-8))(SETQ T0@(LIST TO@ T|@))(IF(Tj#& T#?O T0@)(PROGN(T?|Q"CJx"T0@ Tl?O Tl?O Tl?O""NIL)(SSADD(ENTLAST)T?jO)))(SETQ TO@(+ TO@ T@?O)))(SETQ T|@(+ T|@ T@?O)))))))(IF T|%$(command-s"._UCS""_W"))(T?## T?jO(LIST 0.0 0.0 0.0))))))T&?@)
(defun T#QO(/ T@%1 T&&0 T0QO T|&j T$QO TOQO T#@@)(SETQ T@%1(T%|1 T T))(IF(T01@ T@%1)(PROGN(SETQ T&&0(QQWC T@%1 T%jQ T1?@" "10 1 T1&0))(IF(AND T&&0(> T&&0 1E-8))(PROGN(SETQ T#@@ 186)(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(Tl@@(T%l T#@@ 1))0 T%@@""))T?Q@)(SETQ TOQO"F")(SETQ TOQO"T"))(TlOl T#l0)(SETQ T0QO(ENTLAST)T$QO(SSADD))(QQSE T?&0"JNP"TOQO)(IF(QQEC)(PROGN(LOAD T&|0)(WHILE(SETQ T0QO(ENTNEXT T0QO))(SETQ T|&j(T$&j(Tj&j T0QO)))(IF(OR(T$Oj T|&j)(= T|&j"CIRCLE"))(SSADD T0QO T$QO)))(T#l$ T$QO T)(QQFD T&|0))))))))
(defun T|QO(/ T@%1 T%QO TO1j T0@# T0@ T?lO T&$Q Tj0 TQ?j TjlO T@lO TQlO T#@@)(SETQ T#@@ 186)(IF(Tl?@)(PROGN(TOOl)(T@@l T)(T0Ol)(SETQ T%QO(T0#(GETSTRING(T$j@(T@@@(T%l T#@@ 1))0""""))))(IF(/= T%QO"")(PROGN(SETQ T@lO 0)(IF(=(SUBSTR T%QO 1 1)"*")(SETQ T@lO 1))(IF(=(SUBSTR T%QO(STRLEN T%QO)1)"*")(SETQ T@lO 2))(IF(AND(=(SUBSTR T%QO 1 1)"*")(=(SUBSTR T%QO(STRLEN T%QO)1)"*"))(SETQ T@lO 3))(SETQ T%QO(TO# T%QO"*")TjlO 0)(command-s"._ZOOM""_E")(SETQ T@%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T@%1)(PROGN(SETQ TQ?j(SSLENGTH T@%1))(IF(> TQ?j 0)(PROGN(T&QQ TQ?j)(SETQ T0@#(SSADD)Tj0 TQ?j)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T@%1(SETQ Tj0(1- Tj0)))T&$Q(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT TO1j)))))T?lO(Tj%(TQO T&$Q"-")))(IF(NULL T?lO)(SETQ T?lO(LIST"")))(WHILE T?lO(SETQ T&$Q(CAR T?lO)TQlO NIL)(COND((= T@lO 0)(IF(= T&$Q T%QO)(SETQ TQlO T)))((= T@lO 1)(IF(>=(STRLEN T&$Q)(STRLEN T%QO))(IF(=(SUBSTR T&$Q(+(-(STRLEN T&$Q)(STRLEN T%QO))1)(STRLEN T%QO))T%QO)(SETQ TQlO T))))((= T@lO 2)(IF(>=(STRLEN T&$Q)(STRLEN T%QO))(IF(=(SUBSTR T&$Q 1(STRLEN T%QO))T%QO)(SETQ TQlO T))))((= T@lO 3)(IF(T@$ T&$Q T%QO)(SETQ TQlO T))))(IF TQlO(PROGN(SSADD TO1j T0@#)(SETQ TjlO(+ TjlO 1))))(SETQ T?lO(CDR T?lO))))(SETQ T@%1 NIL)(T0QQ)(Tj@@(T@@@(T%l T#@@ 2))0(ITOA TjlO))(PRINC"\n")(IF(> TjlO 0)(PROGN(SETQ T@%1 T0@# T0@#(SSADD))(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 3))0 T%@@""))T?Q@)(PROGN(SETQ TQ?j(SSLENGTH T@%1)Tj0 TQ?j)(T&QQ TQ?j)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T@%1(SETQ Tj0(1- Tj0)))T0@(T%&j 10(Tj&j TO1j)T)T0@#(T$11 NIL T0@ T)))(T0QQ)))(SETQ T0@#(QQAD T0@# T@%1))(IF(T01@ T0@#)(PROGN(command-s"._SELECT"T0@#"")(Tj@@(T@@@(T%l T#@@ 4))0"")(PRINC"\n")))))))))(T%Ol))))(TlO@ 102 T1?@)))
(defun TllO(/ TO%0 T&lO T|%0 T?1j Tl1& T0@ T@?@ Tl#& T#&& T&Q& T$&& TOQ1 T|Q1 T|Q T&l T??@ T%@& Tl%j T&%j T0?$ T$?$ T%&& T|&& T#@@)
(defun T1lO(Tl@& T&$Q / T0j& T0@ T#lO T?lO Tj0 T0lO T@$1 TO1j)(IF(AND Tl@& T&$Q)(PROGN(SETQ T0j&(T$$& Tl@& T))(IF T0j&(PROGN(SETQ T0@(LIST(CAR T0j&)(CADR T0j&))T#lO(CAR(CDDDDR T0j&))T?lO(Tj%(TQO T#lO"-")))(IF(NULL T?lO)(SETQ T?lO(LIST T&$Q)))(SETQ Tj0 0 T0lO"")(WHILE T?lO(SETQ Tj0(+ Tj0 1)T#lO(CAR T?lO))(IF(= Tj0 1)(SETQ T#lO T&$Q))(IF(= T#lO"")(SETQ T#lO" "))(SETQ T0lO(STRCAT T0lO T#lO"-")T?lO(CDR T?lO)))(SETQ T0lO(T0#(SUBSTR T0lO 1(-(STRLEN T0lO)1)))T@$1(T011 T0@)TO1j(ENTNEXT(ENTNEXT(ENTNEXT(CAR(CDDDDR(CDR T0j&)))))))(T##j(Tj&j TO1j)(LIST(LIST 1 T0lO)))(T0|1 T@$1)(SETQ T$lO(+ T$lO 1)))))))(SETQ T#@@ 183)(SETVAR"PLINEWID"0)(IF(Tl?@)(PROGN(TOOl)(T@@l T)(T$Ol)(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ TO%0(SSGET))(T0Ol)(IF(T01@ TO%0)(PROGN(SETQ T&lO(GETSTRING(T$j@(T@@@(T%l T#@@ 2))0""""))T$lO 0)(command-s"._ZOOM""_E")(SETQ T0?$(SSLENGTH TO%0)T$?$ T0?$)(T&QQ T0?$)(WHILE(> T$?$ 0)(T#QQ)(SETQ T|%0(SSNAME TO%0(SETQ T$?$(- T$?$ 1)))T?1j(Tj&j T|%0))(IF(TO&j T?1j"LINE")(PROGN(SETQ T0@(T%&j 10 T?1j T?l1))(T1lO T0@ T&lO)(SETQ T0@(T%&j 11 T?1j T?l1))(T1lO T0@ T&lO)))(IF(TO&j T?1j"ARC")(PROGN(SETQ T@?@(T%&j 10 T?1j NIL)T??@(T1&j 40 T?1j)Tl%j(T1&j 50 T?1j)T&%j(T1&j 51 T?1j)TOQ1(POLAR T@?@ Tl%j T??@)T|Q1(POLAR T@?@ T&%j T??@)T|Q(T1&j 210 T?1j))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q)TOQ1(Tll TOQ1 T&l)T|Q1(Tll T|Q1 T&l))(SETQ T&l NIL))(T1lO TOQ1 T&lO)(T1lO T|Q1 T&lO)(IF(NOT T&l)(PROGN(SETQ Tl#&(T0$&(LIST(CAR T@?@)(CADR T@?@)Tl%j(T1%j Tl%j T&%j 1.0)T??@)))(IF Tl#&(PROGN(SETQ Tl#&(POLAR T@?@(ANGLE T@?@ Tl#&)T??@))(T1lO Tl#& T&lO)))))))(IF(T$Oj(T$&j T?1j))(PROGN(SETQ Tl1&(T0Q& T?1j)T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T&Q&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&))))(T1lO T&Q& T&lO)(IF(/= T%@& 0)(PROGN(IF(= T|&& T%&&)(SETQ T$&& T#&&)(SETQ T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&)))))(SETQ Tl#&(T0$&(T$%j T&Q& T$&& T%@&)))(IF Tl#&(PROGN(SETQ Tl#&(T?1 Tl#&))(T1lO Tl#& T&lO)))))(SETQ Tl1&(CDR Tl1&)))))(IF(TO&j T?1j"3DFACE")(PROGN(SETQ T|Q(T1&j 210 T?1j))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(SETQ T0@(Tll(T%&j 10 T?1j NIL)T&l))(T1lO T0@ T&lO)(SETQ T0@(Tll(T%&j 11 T?1j NIL)T&l))(T1lO T0@ T&lO)(SETQ T0@(Tll(T%&j 12 T?1j NIL)T&l))(T1lO T0@ T&lO)(SETQ T0@(Tll(T%&j 13 T?1j NIL)T&l))(T1lO T0@ T&lO))))(T0QQ)(Tj@@(T@@@(T%l T#@@ 3))0(ITOA T$lO))(PRINC"\n")))(T%Ol))(TlO@ 102 T1?@)))
(defun TOlO(T|lO / T1&$ T#&$ T0&$ T$&$ T%lO TQOj T#|j T?&O Tj&O T@&O TQ&O Tl&O T&&O T1&O T#&O T0&O T$&O TO&O T|&O TQjj T%&O T?1O Tj1O T?#$ TOQj T&| T@1O TlQj TQ1O Tl1O T%%l Tj$ T#@@)(SETQ T#@@ 169)(SETQ T&|(T#Ql 9)T1&$(Tl1Q(T$Ql T&| TQ1Q 0))T#&$(*(Tjll T&| 2.0 1)T&0l)T0&$(*(Tjll T&| 0.35 2)T&0l)T$&$(*(Tjll T&| 0.0 3)T&0l)T%lO(Tlll T&| T 7))(SETVAR"PICKSTYLE"0)(SETVAR"TEXTSTYLE"T1&$)(SETVAR"TEXTSIZE"T#&$)(SETQ T%&O 0 T%%l NIL T0&O 0.0 T$&O 0.0 TO&O 0.0 T|&O 0.0 Tj&O(LIST 0.0 0.0)Tl&O NIL T&&O NIL T1&O NIL T#&O NIL)(IF(NULL T&1O)(SETQ T&1O(T@@@(T%l T#@@ 1))))(INITGET 2(STRCAT(T@@@(T%l T#@@ 1))" "(Tl@@(T%l T#@@ 1))" "(T@@@(T%l T#@@ 2))" "(Tl@@(T%l T#@@ 2))" "(T@@@(T%l T#@@ 3))" "(Tl@@(T%l T#@@ 3))))(SETQ Tj1O(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 4))" "(T@@@(T%l T#@@ 1))"/"(Tl@@(T%l T#@@ 1))"/"(T@@@(T%l T#@@ 2))"/"(Tl@@(T%l T#@@ 2))"/"(T@@@(T%l T#@@ 3))"/"(Tl@@(T%l T#@@ 3)))0 T&1O"")))(IF(NULL Tj1O)(SETQ Tj1O T&1O))(SETQ T&1O Tj1O)(COND((= Tj1O(T@@@(T%l T#@@ 1)))(SETQ T%&O 1))((= Tj1O(Tl@@(T%l T#@@ 1)))(SETQ T%&O 2))((= Tj1O(T@@@(T%l T#@@ 2)))(SETQ T%&O 3))((= Tj1O(Tl@@(T%l T#@@ 2)))(SETQ T%&O 4))((= Tj1O(T@@@(T%l T#@@ 3)))(SETQ T%&O 5))((= Tj1O(Tl@@(T%l T#@@ 3)))(SETQ T%&O 6)))(IF(> T%&O 0)(PROGN(COND((= T%&O 1)(SETQ T?#$(T@@@(T%l T#@@ 5))))((= T%&O 2)(SETQ T?#$(T@@@(T%l T#@@ 6))))((= T%&O 3)(SETQ T?#$(T@@@(T%l T#@@ 6))))((= T%&O 4)(SETQ T?#$(T@@@(T%l T#@@ 8))))((= T%&O 5)(SETQ T?#$(T@@@(T%l T#@@ 7))))((= T%&O 6)(SETQ T?#$(T@@@(T%l T#@@ 9)))))(SETQ TQOj(T@1# T?#$(LIST"LWPOLYLINE""POLYLINE""CIRCLE")111))(IF TQOj(SETQ T?&O(CADR TQOj)TQOj(CAR TQOj)T#|j(Tj&j TQOj))(SETQ T%%l T))))(IF(NULL T%%l)(PROGN(SETQ T?#$(T$&j T#|j))(IF(OR(T$Oj T?#$)(= T?#$"CIRCLE"))(PROGN(IF(AND(T$Oj T?#$)(NOT(TOOj T#|j)))(command-s"._PEDIT"TQOj"_C"""))(IF(= T?#$"CIRCLE")(PROGN(IF(= T%&O 4)(PROGN(TlO@ 127"")(SETQ T%%l T)))(IF(= T%&O 6)(PROGN(TlO@ 138"")(SETQ T%%l T))))))(SETQ T%%l T))))(IF(NULL T%%l)(PROGN(T#?1(T0?1 TQOj)1.0)(T0#@ TQOj)))(IF(NULL T%%l)(PROGN(SETQ T0&O(QQDI TQOj T%&O T1&$(FLOAT T#&$)(FLOAT T0&$)(FLOAT T$&$)T%lO(FLOAT(/ 0.5(EXPT 10(+ Tj0l 1))))T@0l(FLOAT T1j)Tj0l))(IF(NULL T0&O)(SETQ T%%l T))))(IF(AND(NULL T%%l)(= T%&O 2))(PROGN(SETQ T%%l T)(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ -123)))(STRLEN(T@@@(T%l T#@@ -122))))))(SETQ T?&O(T&$@ NIL T1@Q 0(T@@@(T%l T#@@ -123))T#|1""NIL))(IF T?&O(PROGN(SETQ Tj&O(T&$@ T?&O T1@Q 0(T@@@(T%l T#@@ -122))T#|1""NIL))(IF Tj&O(SETQ T%%l NIL))))))(IF(AND(NULL T%%l)(= T%&O 5))(PROGN(TO1@ T?&O 1)(SETQ Tj&O(T&$@ NIL T1@Q 0(T@@@(T%l T#@@ 10))0""NIL))(IF Tj&O(IF(T#1 T?&O Tj&O)(PROGN(TlO@ 129"")(SETQ T%%l T))(TO1@ Tj&O 5))(SETQ T%%l T))))(IF(NULL T%%l)(PROGN(SETQ T%%l(NOT(QQDM 1(CAR T?&O)(CADR T?&O)(CAR Tj&O)(CADR Tj&O))))(IF(OR(= T%&O 1)(= T%&O 3)(= T%&O 4)(= T%&O 5)(= T%&O 6))(IF T%%l(PROGN(TlO@ 124"")(SETQ T%%l T))))))(IF(AND(NULL T%%l)(= T%&O 4))(PROGN(SETQ T@&O(T&$@ NIL 512 0(Tl@@(T%l T#@@ 10))0""NIL))(IF T@&O(PROGN(SETQ Tj$(QQDM 2(CAR T@&O)(CADR T@&O)))(IF(OR(= Tj$ 1)(= Tj$ 2))(PROGN(IF(= Tj$ 1)(TlO@ 124""))(IF(= Tj$ 2)(TlO@ 128""))(SETQ T%%l T)))(IF(= Tj$ NIL)(SETQ T%%l T)))(SETQ T%%l T))))(IF(AND(NULL T%%l)(OR(= T%&O 2)(= T%&O 3)(= T%&O 4)))(PROGN(SETQ TQ&O(T&$@ NIL 0 0(T@@@(T%l T#@@ 11))0""NIL))(IF TQ&O(PROGN(TO1@ TQ&O 5)(QQDM 3(CAR TQ&O)(CADR TQ&O)))(SETQ T%%l T))))(IF(AND(NULL T%%l)(= T%&O 6))(PROGN(SETQ TQ&O T)(WHILE TQ&O(SETQ TQ&O(T&$@ NIL 512 0(Tl@@(T%l T#@@ 9))0""NIL))(IF TQ&O(QQDM 4(CAR TQ&O)(CADR TQ&O)NIL NIL)))))(IF(AND(NULL T%%l)(= T%&O 6))(PROGN(SETQ TQ&O(T&$@ NIL 1 0(Tl@@(T%l T#@@ 11))0""NIL))(IF TQ&O(PROGN(TO1@ TQ&O 5)(SETQ TO&O(QQDM 5(CAR TQ&O)(CADR TQ&O)))(IF(= TO&O -1)(PROGN(TlO@ 139"")(SETQ T%%l T)))(IF(= TO&O NIL)(SETQ T%%l T)))(SETQ T%%l T))))(IF T|lO(PROGN(IF(NULL T%%l)(PROGN(IF(= T%&O 6)(SETQ T?1O 1)(SETQ T?1O 0))(SETQ TQjj(T#ll))(QQSE T?&0"TDS"(STRCAT(GETVAR"DWGPREFIX")(GETVAR"DWGNAME"))(ITOA T?1O)(RTOS(T1(T&j T0&O)Tj0l)2 Tj0l)(RTOS(T1(TQj TO&O)T%#l)2 T%#l)(ITOA Tj0l)(ITOA T%#l)T@0l T?0l TQjj)(IF(QQEC)(PROGN(SETQ T@1O(STRCAT T%l@"TopoLT.det"))(IF(FINDFILE T@1O)(PROGN(SETQ TlQj(OPEN T@1O"r"))(WHILE(SETQ TOQj(READ-LINE TlQj))(SETQ T&|(TQO TOQj(CHR 9)))(IF(>=(LENGTH T&|)4)(PROGN(SETQ T1&O(APPEND T1&O(LIST(NTH 0 T&|)))T#&O(APPEND T#&O(LIST(NTH 1 T&|)))T$&O(/(ATOF(NTH 2 T&|))T1j)Tl&O(APPEND Tl&O(LIST(FLOAT T$&O))))(IF(= T%&O 6)(SETQ T|&O(/(ATOF(NTH 3 T&|))Tlj)T&&O(APPEND T&&O(LIST(FLOAT T|&O))))))))(CLOSE TlQj)))(IF(NULL Tl&O)(SETQ T%%l T)))(SETQ T%%l T)))))(PROGN(IF(AND(NULL T%%l)(= T%&O 6))(PROGN(PRINC"\n>")(IF(NULL T11O)(SETQ T11O 100.0))(SETQ T#|1(+ 3(STRLEN(RTOS T11O 2 T%#l))(STRLEN T?0l)(MAX(STRLEN(Tl@@(T%l T#@@ 12)))(STRLEN(Tl@@(T%l T#@@ 13))))))(Tj@@(Tl@@(T%l T#@@ 12))T#|1(STRCAT(RTOS(T1(TQj TO&O)T%#l)2 T%#l)T?0l))(INITGET 4)(SETQ T|&O(GETREAL(T$j@(Tl@@(T%l T#@@ 13))T#|1(RTOS(TQj T11O)2 T%#l)T?0l)))(IF T|&O(SETQ T|&O(/ T|&O Tlj)T11O(ABS T|&O))(SETQ T|&O T11O))(IF(> T|&O TO&O)(PROGN(TlO@ 140"")(SETQ T%%l T)))(IF(< T|&O 0.0)(SETQ T%%l T))))(IF(NULL T%%l)(PROGN(PRINC"\n>")(IF(NULL T#1O)(SETQ T#1O 1000.0))(SETQ T#|1(+ 3(STRLEN(RTOS T#1O 2 Tj0l))(STRLEN T@0l)(MAX(STRLEN(T@@@(T%l T#@@ 12)))(STRLEN(T@@@(T%l T#@@ 13))))))(Tj@@(T@@@(T%l T#@@ 12))T#|1(STRCAT(RTOS(T1(T&j T0&O)Tj0l)2 Tj0l)T@0l))(INITGET(+ 2 4))(SETQ T$&O(GETREAL(T$j@(T@@@(T%l T#@@ 13))T#|1(RTOS(T&j T#1O)2 Tj0l)T@0l)))(IF T$&O(SETQ T$&O(/ T$&O T1j)T#1O(ABS T$&O))(SETQ T$&O T#1O))(IF(> T$&O T0&O)(PROGN(TlO@ 126"")(SETQ T%%l T)))(IF(<= T$&O 1E-8)(SETQ T%%l T))))(IF(NULL T%%l)(PROGN(SETQ TQ1O(CAR(Tl#Q)))(SETQ T#|1(+ 3(STRLEN TQ1O)(MAX(STRLEN(T@@@(T%l T#@@ 14)))(STRLEN(Tl@@(T%l T#@@ 14))))))(SETQ TOQj(GETSTRING T(T$j@(T@@@(T%l T#@@ 14))T#|1 TQ1O"")))(IF(= TOQj"")(SETQ TOQj TQ1O))(SETQ TQ1O(T0# TOQj))(IF(>(STRLEN TQ1O)0)(T$#Q TQ1O NIL NIL NIL))(SETQ Tl1O(T0#(GETSTRING T(T$j@(Tl@@(T%l T#@@ 14))T#|1""""))))))(IF(NULL T%%l)(SETQ Tl&O(LIST(FLOAT T$&O))T&&O(LIST(FLOAT T|&O))T1&O(LIST TQ1O)T#&O(LIST Tl1O)))))(T|#@ TQOj)(REDRAW)(IF(NULL T%%l)(IF(NULL(QQDC Tl&O T&&O T1&O T#&O(T&O@ 207"")(T&O@ 208"")))(PROGN(REDRAW)(TlO@ 125"")))))
(defun T01O(T$1O TO1O / T1$ T$QO T|1O T%1O T%%l T?#O Tj#O)(SETQ T1$ NIL)(IF(= T$1O"IMOB_N")(PRINC(STRCAT"\nImobil "(ITOA TO1O)" - nou"))(PRINC(STRCAT"\nImobil "(ITOA TO1O)" - vechi")))(SETQ T?#O(STRCAT T$1O":"(ITOA TO1O)))(SETQ T|1O(T@1#(STRCAT T?#O" <ENTER> / Selectati polilinia alocata pentru TEREN")(LIST"LWPOLYLINE""POLYLINE""CIRCLE")111))(IF T|1O(PROGN(SETQ T$QO(SSADD)T|1O(CAR T|1O)T|1O(T?%& T|1O NIL))(IF T|1O(PROGN(SSADD T|1O T$QO)(T%#@ T$QO)(T@lj T%jQ"a")(Tllj(LIST T$1O))(T%Qj)(T?j1 T|1O"a")(SETQ T1$ T Tj#O 0 T%%l T)(WHILE T%%l(SETQ Tj#O(+ Tj#O 1))(T1%@ Tl?Q NIL)(SETQ T%1O(T@1#(STRCAT T?#O" <ENTER> / Selectati polilinia alocata pentru constructia nr. "(ITOA Tj#O))(LIST"LWPOLYLINE""POLYLINE""CIRCLE")111))(IF T%1O(PROGN(SETQ T%1O(CAR T%1O))(IF(SSMEMB T%1O T$QO)(SETQ Tj#O(- Tj#O 1))(PROGN(SETQ T%1O(T?%& T%1O NIL))(IF T%1O(PROGN(SSADD T%1O T$QO)(T%#@ T$QO)(T?j1 T%1O"a"))(SETQ T%%l NIL)))))(SETQ T%%l NIL)))(T@lj T%jQ"a")(Tllj(LIST"ENDIMOB"))(T%Qj)(T?0@ T$QO)))))T1$)
(defun T@#O(/ TQ#O Tl#O T&#O T1#O T##O T0#O T$#O TO#O T|#O T%#O T?0O Tj0O T@0O TQ0O Tl0O T&0O T#@@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE"))))(SETQ Tj%j(* 2.0 PI)T%&(/ PI 2.0)T#%l(* 3.0 T%&)T?#@(/ PI 4.0)Tj#@(* 3.0 T?#@)T%1@(* 5.0 T?#@)T@#@(* 7.0 T?#@))(SETQ T$j0 NIL T1j0 NIL T10O T T?jQ NIL T##l"_OFF"TlQQ"_ON"T%|# NIL T?%# NIL T@%# NIL T?$# T T%O# 0.0 T$%@"._VIEW"T@&$ T T#|Q NIL T1%1 NIL T1&0 NIL T?l1 NIL T%|& T TO& NIL T#0O 0 T00O 1 T&&Q T T0#0 T TQ0O NIL T0%@ NIL Tj1@ NIL T%lj 0 Tl0O(GETVAR"PRODUCT")T|#O(GETVAR"PLATFORM"))(IF(NULL Tl0O)(SETQ Tl0O""))(SETQ Tl0O(STRCASE Tl0O))(SETQ TO#O(AND T|#O(T@$ T|#O"x64")))(SETQ T|lj 0)(IF(GETVAR"ICADVER")(SETQ T|lj 1)(IF(OR(T@$ Tl0O"BRICSCAD")(T@$ Tl0O"ZWCAD"))(SETQ T|lj 1)))(COND((= T|lj 0)(SETQ T?&j(T1?j(GETVAR"ACADVER"))T$&@"ACAD"TQ1Q"ROMANS.SHX")(IF(AND(T@$ Tl0O"AUTOCAD")(T@$ Tl0O"LT"))(SETQ Tj1@ T))(IF(>= T?&j 150000)(SETQ T$j0 T))(SETQ T?jQ"._IMAGEFRAME")(IF(>= T?&j 160200)(SETQ T##l"0"TlQQ"1"))(SETQ T%|# T)(IF(>= T?&j 150600)(SETQ T@%# NIL)(SETQ T@%# T))(IF(>= T?&j 170000)(SETQ T#0O 1))(SETQ T0#0 NIL))((= T|lj 1)(SETQ T?&j(GETVAR"ICADVER"))(IF(NULL T?&j)(SETQ T?&j(GETVAR"ACADVER")))(SETQ T?&j(T1?j T?&j)T$&@"ICAD")(IF(FINDFILE"ROMANS.SHX")(SETQ TQ1Q"ROMANS.SHX")(IF(FINDFILE"IC-Romans.shx")(SETQ TQ1Q"IC-Romans.shx")(IF(FINDFILE"IC-TXT.SHX")(SETQ TQ1Q"IC-TXT.shx")(IF(FINDFILE"TXT.SHX")(SETQ TQ1Q"TXT.shx")(SETQ TQ1Q"Standard")))))(SETQ T10O NIL)(IF(AND(>= T?&j 50000)(< T?&j 70000))(SETQ T?jQ NIL))(IF(AND(>= T?&j 60100)(< T?&j 70000))(SETQ T@&$ NIL))(SETQ T?%# T)(SETQ T?$# NIL)(SETQ TO& T)(SETQ T&&Q NIL)(IF(T@$ Tl0O"BRICSCAD")(IF(AND(>= T?&j 70000)(< T?&j 170000))(SETQ T%lj 1)(IF(>= T?&j 170000)(SETQ T%lj 11)))(IF(OR(T@$ Tl0O"PROGECAD")(T@$ Tl0O"[PROGRAMNAME]"))(SETQ T%lj 2)(IF(T@$ Tl0O"ZWCAD")(SETQ T%lj 3)(IF(AND(T@$ Tl0O"INTELLICAD")(T@$(STRCASE(GETVAR"_VENDORNAME"))"CAD MANUFACTURING SOLUTIONS"))(SETQ T%lj 4)(IF(T@$ Tl0O"CADIAN")(SETQ T%lj 5))))))(IF(= T%lj 0)(PROGN(SETQ T&0O(GETVAR"_VENDORNAME"))(IF(NULL T&0O)(SETQ T&0O""))(SETQ T&0O(STRCASE T&0O))(IF(T@$ T&0O"GSTARSOFT")(SETQ T%lj 6))))(IF(AND(= T%lj 1)(>= T?&j 70000)(<= T?&j 70100))(PROGN(SETQ T10O T)(IF(AND T10O(GETCNAME"IMAGEFRAME"))(SETQ T?jQ"_IMAGEFRAME"))(SETQ T@&$ NIL)(SETQ T1%1 T)))(IF(>= T%lj 11)(PROGN(SETQ T?&j(T1?j(GETVAR"_VERNUM")))(IF(< T?&j 100308)(T0Q@"TopoLT doesn't support this version of BricsCAD!\nTry version 10.3.8 or later."))(SETQ T10O T)(IF(AND T10O(GETCNAME"IMAGEFRAME"))(SETQ T?jQ"_IMAGEFRAME"))(SETQ T@%# T)(SETQ T?$# T)(SETQ T@&$ T)(SETQ T1%1 T)(SETQ TO& NIL)(SETQ T#0O 1)(IF(>= T?&j 120000)(SETQ T&&Q T))(SETQ T0#0 NIL)(IF(>= T?&j 150000)(PROGN(SETQ T$j0 T T1j0 T)))(IF(>= T?&j 150200)(PROGN(SETQ T##l"0"TlQQ"1")(SETQ T1%1 NIL)))))(IF(AND(= T%lj 2)(>= T?&j 70000))(PROGN(IF(< T?&j 80000)(PROGN(SETQ T?jQ"IEFRAME"))(PROGN(SETQ T?&j(T1?j(GETVAR"_VERNUM")))(SETQ T10O T)(IF(AND T10O(GETCNAME"IMAGEFRAME"))(SETQ T?jQ"_IMAGEFRAME"))))(IF(>= T?&j 80010)(SETQ T$%@"._-VIEW"))(IF(>= T?&j 80018)(PROGN(SETQ T$j0 T T1j0 T)(SETQ T?$# T)))(SETQ T@&$ NIL)(SETQ T1%1 T)(IF(>= T?&j 90000)(PROGN(SETQ T##l"0"TlQQ"1")(SETQ T@%# T)(SETQ T1&0 T)))(SETQ T00O 0)(IF(>= T?&j 100000)(SETQ T1&0 NIL))))(IF(= T%lj 3)(PROGN(SETQ T?&j(T1?j(GETVAR"VERNUM")))(IF(OR(< T?&j 20080222)(AND(>= T?&j 20080400)(< T?&j 20091231)))(T0Q@"TopoLT doesn't support this version of ZwCAD!\nTry version 2019 or later."))(SETQ T10O T)(IF(AND T10O(GETCNAME"IMAGEFRAME"))(SETQ T?jQ"_IMAGEFRAME"T##l"OFF"TlQQ"ON"))(SETQ T%|# T)(IF(>= T?&j 20090730)(SETQ T@%# T))(SETQ T?$# T)(SETQ T%O# -0.5)(SETQ T@&$ T)(SETQ T1%1 T)(IF(>= T?&j 20091231)(PROGN(SETQ T@%# T)(SETQ T%O# 0.0)))(IF(>= T?&j 20110000)(PROGN(SETQ T$%@"._-VIEW")(SETQ TO& NIL)(SETQ T&&Q T)))(IF(>= T?&j 20120800)(PROGN(SETQ TQ0O T T$&@"ZWCAD")(SETQ T$j0 T)(SETQ T1%1 NIL)(SETQ T0#0 NIL)(IF(>= T?&j 20140000)(PROGN(SETQ T##l"0"TlQQ"1")(IF(>= T?&j 20180000)(PROGN(IF(< T?&j 20190000)(SETQ T0%@ T))(SETQ TO#O(T@$(STRCASE(GETVAR"VERNUM"))"X64"))(SETQ T#0O 1)))))))))(IF(AND(= T%lj 4)(>= T?&j 60300))(PROGN(IF(>= T?&j 60400)(SETQ T10O T))(IF(>= T?&j 60400)(SETQ T?$# T))(SETQ T@&$ NIL)(SETQ T1%1 T)(SETQ T00O 0)))(IF(AND(= T%lj 5)(>= T?&j 60000))(PROGN(SETQ T$j0 T T1j0 T)(SETQ T10O T)(IF(AND T10O(GETCNAME"IMAGEFRAME"))(SETQ T?jQ"_IMAGEFRAME"))(SETQ T%|# T)(SETQ T?$# T)(SETQ T@&$ T)(SETQ T#|Q T)(SETQ T1%1 T)(SETQ T00O 0)))(IF(AND(= T%lj 6)(>= T?&j 70000))(PROGN(SETQ T?&j(T1?j(GETVAR"VERNUM")))(IF(<= T?&j 70020)(T0Q@"TopoLT doesn't support this version of GstarCAD!\nTry version 2012 or later."))(SETQ T10O T)(SETQ T?jQ"_IMAGEFRAME"T##l"0"TlQQ"1")(SETQ T%|# T T?%# T)(SETQ T@%# T)(SETQ T?$# T)(SETQ T@&$ T)(SETQ T1%1 T)(SETQ T00O 0)(SETQ T&&Q T)))))(REGAPP"TOPOLT")(REGAPP"PROFLT")(SETQ Tj&0"C:"T$#O(FINDFILE TQ1Q))(IF T$#O(SETQ Tj&0(T%@j T$#O)))(SETVAR"DIMZIN"0)(IF(= T|lj 0)(SETVAR"PROXYNOTICE"0))(IF(= T|lj 1)(IF(>= T?&j 40000)(SETVAR"PROXYNOTICE"0)))(IF(= T|lj 0)(IF(>= T?&j 150000)(SETVAR"UCSVIEW"0)))(SETQ T#|1 30 T0@@ 765 T11@ NIL T#j0 NIL T|$1 NIL T$0O NIL T%$@(LOGIOR T1@Q 512)T&1O NIL T11O NIL T#1O NIL TO0O NIL T|0O NIL T%0O NIL TO#@ NIL T@@Q NIL Tl@Q T T?$O NIL Tj$O NIL T@$O NIL T0%Q"PNTNO"TO%Q"PNTELEV"T%%Q"PNTCODE"T$%Q(LIST 1.4 0.0)T|%Q(LIST 1.4 -2.5)T??l(LIST 1.4 -5.0)TQ$O NIL TOQ0 NIL T|l& NIL T0Oj NIL T$@Q NIL T11Q NIL)(SETQ T?&0(FINDFILE"TopoLT.exe"))(IF(NULL T?&0)(PROGN(SETQ T?&0(TOQ@))(IF(NULL T?&0)(PROGN(SETQ T?&0(GETFILED"Select TopoLT.exe file""TopoLT.exe""exe"0))(IF(NULL T?&0)(T0Q@"ERROR: TopoLT.exe not found on path of TopoLT.lsp!"))))(SETQ T%l@(T%@j T?&0))(IF(=(SUBSTR T%l@(STRLEN T%l@)1)"\\")(SETQ T%l@(SUBSTR T%l@ 1(-(STRLEN T%l@)1))))(T1&@ T%l@)(Tj&@ T%l@)))(SETQ T%l@(T%@j T?&0)T#l0(STRCAT T%l@"TopoLT.cfg")T@l@(STRCAT T%l@"TopoLT.lic")T%jQ(STRCAT T%l@"TopoLT.$$$")T@j0(STRCAT T%l@"TopoLT.err")T&|0(STRCAT T%l@"Entities.lsp")TO00(STRCAT T%l@"Timgout.coo")T000(STRCAT T%l@"Timgin.coo")TQOl(STRCAT T%l@"Configurations\\""ModelDefault.cfg"))(IF(NOT(FINDFILE TQOl))(SETQ TQOl(STRCAT T%l@"ModelDefault.cfg")))(SETQ T?0O NIL T&#O""T1#O".DLL")(IF(= T|lj 0)(PROGN(COND((AND(>= T?&j 140000)(< T?&j 150000))(SETQ T&#O"TLTAP"))((AND(>= T?&j 150000)(< T?&j 160000))(SETQ T&#O"TLTAD"))((AND(>= T?&j 160000)(< T?&j 170000))(SETQ T&#O"TLTAK"))((AND(>= T?&j 170000)(< T?&j 170100))(SETQ T&#O"TLTAS"))((AND(>= T?&j 170100)(< T?&j 180000))(SETQ T&#O"TLTAO"))((AND(>= T?&j 180000)(< T?&j 190000))(SETQ T&#O"TLTAZ"))((AND(>= T?&j 190000)(< T?&j 200000))(SETQ T&#O"TLTAT"))((AND(>= T?&j 200000)(< T?&j 210000))(SETQ T&#O"TLTAC"))((AND(>= T?&j 210000)(< T?&j 220000))(SETQ T&#O"TLTAN"))((AND(>= T?&j 220000)(< T?&j 230000))(SETQ T&#O"TLTAB"))((>= T?&j 230000)(SETQ T&#O"TLTAM")))(SETQ TQ#O(ARX))))(IF(= T|lj 1)(PROGN(COND((= T%lj 3)(COND((< T?&j 20080400)(SETQ T&#O"TLTZP"))((AND(>= T?&j 20091231)(< T?&j 20120800))(SETQ T&#O"TLTZW"))((AND(>= T?&j 20120800)(< T?&j 20130000))(SETQ T&#O"TLTZD"T1#O".ZRX"))((AND(>= T?&j 20130000)(< T?&j 20140000))(SETQ T&#O"TLTZK"T1#O".ZRX"))((AND(>= T?&j 20140000)(< T?&j 20141100))(SETQ T&#O"TLTZC"T1#O".ZRX"))((AND(>= T?&j 20141100)(< T?&j 20150000))(SETQ T&#O"TLTZU"T1#O".ZRX"))((AND(>= T?&j 20181000)(< T?&j 20190100))(SETQ T&#O"TLTZN"T1#O".ZRX"))((>= T?&j 20190100)(SETQ T&#O"TLTZO"T1#O".ZRX")))(IF(= T&#O"")(T0Q@"TopoLT doesn't support this version of ZwCAD!\nTry version 2019 SP2.")))((OR(= T%lj 0)(= T%lj 1)(= T%lj 2)(= T%lj 4)(= T%lj 5))(SETQ T&#O"TLTIP"))((= T%lj 11)(COND((AND(>= T?&j 100308)(< T?&j 110000))(SETQ T&#O"TLTIB"))((AND(>= T?&j 110000)(< T?&j 120000))(SETQ T&#O"TLTBI"))((AND(>= T?&j 120000)(< T?&j 130000))(SETQ T&#O"TLTBD"))((AND(>= T?&j 130000)(< T?&j 140000))(SETQ T&#O"TLTBT"))((AND(>= T?&j 140000)(< T?&j 150000))(SETQ T&#O"TLTBP"))((AND(>= T?&j 150000)(< T?&j 160000))(SETQ T&#O"TLTBC"))((AND(>= T?&j 150000)(< T?&j 160000))(SETQ T&#O"TLTBP"))((AND(>= T?&j 160000)(< T?&j 170000))(SETQ T&#O"TLTBS"T1#O".BRX"))((AND(>= T?&j 170000)(< T?&j 180000))(SETQ T&#O"TLTBL"T1#O".BRX"))((AND(>= T?&j 180000)(< T?&j 190000))(SETQ T&#O"TLTBM"T1#O".BRX"))((>= T?&j 190000)(SETQ T&#O"TLTBN"T1#O".BRX")))(IF(= T&#O"")(T0Q@"TopoLT doesn't support this version of BricsCAD!\nTry version V19.2.")))((= T%lj 6)(IF(>= T?&j 70020)(SETQ T&#O"TLTGI"T1#O".GRX"))))(IF TQ0O(SETQ TQ#O(ZRX))(SETQ TQ#O(ADS)))))(IF TO#O(SETQ T&#O(STRCAT T&#O"64"T1#O))(SETQ T&#O(STRCAT T&#O T1#O)))(SETQ T##O(FINDFILE T&#O))(IF T##O(PROGN(WHILE TQ#O(SETQ T?0O NIL)(IF(=(STRCASE(STRCAT(TO@j(CAR TQ#O))(T#@j(CAR TQ#O))))T&#O)(SETQ T?0O T TQ#O NIL))(SETQ TQ#O(CDR TQ#O)))(IF(NULL T?0O)(PROGN(ARXLOAD T##O)(SETQ T?0O T)))))(IF(NOT(TYPE QQSE))(T0Q@(STRCAT"Error: Library file was not loaded!\n\nTopoLT doesn't support this version of "Tl0O"!")))(SETQ T#1@"")(IF(FINDFILE T@l@)(PROGN(SETQ T#1@(CAR(T&Qj T@l@ NIL NIL 1)))(IF(NULL T#1@)(SETQ T#1@""))(IF(FINDFILE T#1@)(SETQ T11@ T#1@))))(GRAPHSCR)(SETQ T@0O(TQ1@))(T#Q@)(SETQ T#1@(FINDFILE T#1@))(IF(NULL T#1@)(SETQ T#1@(FINDFILE"TLT-eng.lng")))(IF T#1@(T&@@ T#1@)(ALERT"Language file not found.\nIn this case message texts are empty."))(SETQ T#@@ 0 T?#l(T@@@(T%l T#@@ 1))Tl$O(Tl@@(T%l T#@@ 1)))(SETQ T#j0(FINDFILE(TjQj T#1@".chm")))(IF(NOT T#j0)(SETQ T#j0(FINDFILE"TLT-eng.chm")))(IF T@0O(QQSE T?&0"MSG"T%l@))(SETQ T%#O 0)(IF T?&0(PROGN(QQSE T?&0"INI"Tj&0(ITOA T|lj))(SETQ T%#O(QQNZ))))(SETQ Tj0O(NOT(QQTA)))(IF Tj0O(T0Q@""))(IF(NULL Tj0O)(PROGN(SETQ T?%Q NIL Tl#O(TBLNEXT"STYLE"T))(WHILE Tl#O(SETQ T0#O(T1&j 3 Tl#O))(IF(=(STRCASE(T#@j T0#O))".SHX")(IF(NOT(FINDFILE(STRCAT(TO@j T0#O)(T#@j T0#O))))(PROGN(PRINC(STRCAT"\nTopoLT not found shx file: "T0#O))(SETQ T?%Q T))))(SETQ Tl#O(TBLNEXT"STYLE")))(IF T?%Q(T#O@ 206""T))(T|$l T#l0)(SETQ T11Q NIL)(IF(OR(=(GETVAR"HPNAME")"ANGLE")(=(GETVAR"HPNAME")""))(PROGN(SETVAR"HPNAME""ANSI31")(SETVAR"HPSPACE"(* Tl$l T&0l))))(SETQ TOQ0(TlQ0))(IF(FINDFILE"TopoLT.scr")(command-s"._SCRIPT"(FINDFILE"TopoLT.scr")))))(TjjQ))(T@#O)
(defun C:CHLNG(/ T&$O Tll@)(T?QQ NIL)(SETQ T&$O(GETFILED"Select language file for TopoLT"T#1@"lng"0))(IF T&$O(PROGN(SETQ T&$O(FINDFILE(STRCAT(T%@j T#l0)(TO@j T&$O)(T#@j T&$O))))(IF T&$O(PROGN(command-s"._MENUUNLOAD""TopoLT")(SETQ T#1@ T&$O)(T%Q@ T#1@)(TO&@(TO@j T#1@))(T&@@ T#1@)(SETQ Tll@(TjQj T#1@".mns"))(TQl@ Tll@)(command-s"._MENULOAD"Tll@)(T?&@)(T@1@)(SETQ T#j0(FINDFILE(TjQj T#1@".chm")))(IF(NOT T#j0)(SETQ T#j0(FINDFILE"TLT-eng.chm")))(T0j0))(ALERT(STRCAT"ERROR:""\n""Language file not found by the path when program TopoLT is instalated!")))))(TjjQ))
(defun C:TOPOCFG(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T#&0)(TO#0 -1)(TjjQ))
(defun C:OINS(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T#&0)(TO#0 10)(TjjQ))
(defun C:OIMG(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T#&0)(TO#0 7)(TjjQ))
(defun C:OM3D(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T#&0)(TO#0 8)(TjjQ))
(defun C:OPLN(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T#&0)(TO#0 6)(TjjQ))
(defun C:EDITCOD(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(IF(AND T00Q(FINDFILE T00Q))(PROGN(TlOl T#l0)(QQSE T?&0"COD"T00Q)(IF(QQEC)(T#$l T#l0 NIL))))(TjjQ))
(defun C:EDITLAY(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(IF(AND TQ1l(FINDFILE TQ1l))(PROGN(TlOl T#l0)(QQSE T?&0"LAY"TQ1l)(IF(QQEC)(T#$l T#l0 NIL))))(TjjQ))
(defun C:PUR(/ T|%1 TO1j T1$O T?1j T$# Tj0 T#$O T0$O T$$O T@?& TQ?& T||@ T#Oj TO$O T#@@)(T?QQ NIL)(SETQ T#@@ 36)(SETVAR"PICKSTYLE"0)(Tj@@ T1Q@ 0"")(SETQ T||@ 0)(IF(AND(=(GETVAR"TILEMODE")0)(=(GETVAR"CVPORT")1))(SETQ T||@ 1))(SETQ T#$O 0 T0$O 0 T$$O 0)(SETQ T|%1(SSGET"X"(LIST(CONS 0"*TEXT")(CONS 67 T||@))))(IF(T01@ T|%1)(PROGN(SETQ Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0))))(IF TO1j(PROGN(SETQ T?1j(Tj&j TO1j))(IF T?1j(PROGN(SETQ T$#(T1&j 1 T?1j))(IF(=(T0# T$#)"")(PROGN(ENTDEL TO1j)(SETQ T#$O(+ T#$O 1)))))))))))(SETQ T|%1(SSGET"X"(LIST(CONS 0"LINE")(CONS 67 T||@))))(IF(T01@ T|%1)(PROGN(SETQ Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0))))(IF TO1j(PROGN(SETQ T?1j(Tj&j TO1j))(IF T?1j(PROGN(SETQ T@?&(T%&j 10 T?1j T?l1)TQ?&(T%&j 11 T?1j T?l1))(IF(T01 T@?& TQ?&)(PROGN(ENTDEL TO1j)(SETQ T0$O(+ T0$O 1)))))))))))(SETQ T|%1(SSGET"X"(LIST(CONS 0"POLYLINE")(CONS 67 T||@))))(IF(T01@ T|%1)(PROGN(SETQ Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO$O NIL TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0)))T1$O(ENTNEXT TO1j)T?1j(Tj&j T1$O))(IF T?1j(PROGN(IF(TO&j T?1j"SEQEND")(SETQ TO$O T)(PROGN(SETQ T@?&(T%&j 10 T?1j NIL)T1$O(ENTNEXT T1$O)T?1j(Tj&j T1$O))(IF T?1j(PROGN(IF(TO&j T?1j"SEQEND")(SETQ TO$O T)(PROGN(SETQ TQ?&(T%&j 10 T?1j NIL)T1$O(ENTNEXT T1$O)T?1j(Tj&j T1$O))(IF T?1j(IF(TO&j T?1j"SEQEND")(IF(T01 T@?& TQ?&)(SETQ TO$O T))))))))))(IF TO$O(PROGN(ENTDEL TO1j)(SETQ T$$O(+ T$$O 1)))))))))(SETQ T|%1(SSGET"X"(LIST(CONS 0"LWPOLYLINE")(CONS 67 T||@))))(QQEE T|%1(LIST(T&Ol 4))NIL 0 0 1)(IF(T01@ T|%1)(PROGN(SETQ Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0))))(SETQ T#Oj(CADR(T@Oj TO1j NIL NIL)))(IF(AND T#Oj(EQUAL T#Oj 0.0 1E-10))(PROGN(ENTDEL TO1j)(SETQ T$$O(+ T$$O 1)))))))(SETQ T|%1(SSGET"X"(LIST(CONS 0"POLYLINE")(CONS 67 T||@))))(IF(T01@ T|%1)(PROGN(SETQ Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0)))T?1j(Tj&j TO1j))(IF(<(T1&j 70 T?1j)8)(PROGN(SETQ T#Oj(CADR(T@Oj TO1j NIL NIL)))(IF(AND T#Oj(EQUAL T#Oj 0.0 1E-10))(PROGN(ENTDEL TO1j)(SETQ T$$O(+ T$$O 1)))))))))(SETQ T0Oj NIL)(IF(= T|lj 0)(REPEAT 7(command-s"._PURGE""_All""""N")))(IF(> T#$O 0)(Tj@@(T@@@(T%l T#@@ 1))0(ITOA T#$O)))(IF(> T0$O 0)(Tj@@(T@@@(T%l T#@@ 2))0(ITOA T0$O)))(IF(> T$$O 0)(Tj@@(Tl@@(T%l T#@@ 2))0(ITOA T$$O)))(IF(= T|lj 1)(PROGN(IF(OR(> T#$O 0)(> T0$O 0)(> T$$O 0))(GETSTRING(T$j@ T&Q@ 0"""")))(IF(= T%lj 2)(REPEAT 7(command-s"-PURGE""_All""*""_N")))(IF(= T%lj 4)(REPEAT 7(command-s"._PURGE""_All""*""_All")))(IF(= T%lj 1)(REPEAT 7(command-s"._PURGE""_All""_All")))(IF(OR(= T%lj 11)(= T%lj 6)(AND(= T%lj 3)(>= T?&j 20091231)))(REPEAT 7(command-s"._PURGE""_All""*""_N")))))(TjjQ)(IF(= T|lj 1)(PROGN(IF(OR(= T%lj 5)(AND(= T%lj 3)(>= T?&j 20080000)(< T?&j 20091231)))(command-s"._PURGE"))))(PRINC))
(defun C:MAXDENPCT(/ TQl0 T|%1 Tj0 TO1j Tll0 T1@j T&l0 T1l0 T#@@)(T?QQ NIL)(SETQ T#@@ 38 TQl0 0 T&l0""T1l0""T|%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T|%1)(PROGN(SETQ Tj0(SSLENGTH T|%1))(T&QQ Tj0)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0)))Tll0(TOO(CADDR(T$&1 TO1j)))T1@j(ATOI(CADR Tll0)))(IF(> T1@j TQl0)(SETQ TQl0 T1@j T&l0(CAR Tll0)T1l0(CADDR Tll0))))(T0QQ)(Tj@@(T@@@(T%l T#@@ 1))0(ITOA TQl0)))(TlO@ 102 T1?@))(Tj#Q(STRCAT T&l0(ITOA TQl0)T1l0))(TjjQ))
(defun C:IPCT(/ T1@j T&0 T0@ TO#1 T%@ T#@@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME"))))(SETQ T#@@ 39)(SETVAR"PLINEWID"0)(SETVAR"LUNITS"2)(SETVAR"LUPREC"TO@Q)(IF(Tl?@)(PROGN(SETQ T1@j(T?#Q))(IF(= T$0O NIL)(SETQ T$0O(RTOS 0.0)))(SETQ T#|1(MAX(+ 5(MAX(STRLEN T1@j)(STRLEN T$0O))(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))))(+ 2(STRLEN(T@@@(T%l T#@@ 3))))(+ 2(STRLEN(T@@@(T%l T#@@ 4))))))(SETQ T&0(GETSTRING(T$j@(T@@@(T%l T#@@ 1))T#|1 T1@j"")))(IF(/= T&0"")(SETQ T1@j(T&@j T&0)))(SETQ T0@(T&$@ NIL T1@Q 128(T@@@(T%l T#@@ 3))T#|1""NIL))(IF(AND T0@(=(TYPE T0@)(quote LIST)))(PROGN(T#?1(LIST(CAR T0@)(CADR T0@)(CAR T0@)(CADR T0@))15.0)(TO1@ T0@ 1)(SETQ TO#1(T&$@ NIL 0 0(T@@@(T%l T#@@ 4))T#|1""NIL))(SETQ T%@(CADDR T0@))(IF(NULL T%@)(SETQ T%@ 0.0))(IF(/= T01l 0)(PROGN(IF(EQUAL T%@ 0.0 1E-10)(PROGN(SETQ T&0(GETSTRING(T$j@(T@@@(T%l T#@@ 2))T#|1 T$0O"")))(IF(= T&0"")(SETQ T&0 T$0O))(SETQ T%@(ATOF T&0))))))(SETQ T$0O(RTOS T%@ 2 TO#l))(TQ#@ T0@)(IF(NULL TO#1)(SETQ TO#1(T0&1 T0@)))(T$01)(IF(TO01 T0@ T1@j(ATOF T$0O)Tj#l Tj#l TO#1 NIL T)(PROGN(SETQ T|l& NIL)(T$?1 T0@ T0OQ NIL)(T%?1 T|l&)(SETQ T|l& NIL)(Tj#Q T1@j))))))(TlO@ 102 T1?@))(TjjQ))
(defun C:EPCT(/ T0@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("VIEW"))))(SETVAR"PICKSTYLE"0)(SETQ T0@(T#%1 8))(IF T0@(Tj#1 NIL T0@ NIL))(TjjQ))
(defun C:ASCPCT(/ T0@)(T?QQ NIL)(SETQ T0@(T#%1 8))(IF T0@(command-s"._CHPROP"(T$11 NIL T0@ T)"""_LA"(T&Ol 6)""))(TjjQ))
(defun C:MTT(/ T0@ T@$1)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE"))))(SETQ T0@(T#%1 8))(IF T0@(PROGN(SETQ T@$1(T011 T0@))(IF(= T@$1 NIL)(TlO@ 108"")(IF(NULL(CADR T@$1))(TlO@ 108"")(PROGN(Tj0@ T@$1)(T0O1 T@$1 NIL)(TQ0@ T@$1))))))(TjjQ))
(defun C:ZDD(/ T1@j T0j& T0@ T@$1 T#@@)(T?QQ NIL)(SETQ T#@@ 39)(SETQ T1@j(GETSTRING(T$j@(T@@@(T%l T#@@ 1))0"""")))(IF(/= T1@j"")(PROGN(SETQ T0j&(TlO1 T1@j))(IF T0j&(PROGN(SETQ T0@(LIST(CAR T0j&)(CADR T0j&))T@$1(T011 T0@))(IF T@$1(PROGN(Tj0@ T@$1)(GETSTRING(T$j@ T&Q@ 0""""))(TQ0@ T@$1)))))))(TjjQ))
(defun C:REDD(/ T0@ T0j& T|$O T%$O T?OO T@$1 TO1j T$|1 TO|1 T||1 TjOO)(T?QQ(quote (("VIEW"))))(SETVAR"LUNITS"2)(SETVAR"LUPREC"TO#l)(SETQ T0@(T#%1 8))(IF T0@(PROGN(SETQ T0j&(T$$& T0@ T))(IF T0j&(PROGN(SETQ T0@(LIST(CAR T0j&)(CADR T0j&))T|$O(CADDR T0j&)T%$O(RTOS(ATOF(CADDDR T0j&)))T?OO(CAR(CDDDDR T0j&))T@$1(T011 T0@)TO1j(CAR(CDDDDR(CDR T0j&))))(command-s"._DDATTE"TO1j)(SETQ T$|1(T1&j 1(Tj&j(ENTNEXT TO1j)))TjOO(ATOF(T1&j 1(Tj&j(ENTNEXT(ENTNEXT TO1j)))))TO|1(RTOS TjOO)T||1(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT TO1j))))))(IF(OR(/= T|$O T$|1)(/= T%$O TO|1)(/= T?OO T||1))(PROGN(T0|1 T@$1)(IF(NOT(EQUAL(ATOF T%$O)(ATOF TO|1)1E-6))(PROGN(SETQ T|l& NIL)(T$?1 T0@ T0OQ NIL)(T%?1 T|l&)(SETQ T|l& NIL)))))))))(TjjQ))
(defun C:FIXPCT(/ T0@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("VIEW"))))(SETQ T0@(T#%1 8))(IF T0@(PROGN(SETQ T|l& NIL)(T$?1 T0@ T0OQ T)(T%?1 T|l&)(SETQ T|l& NIL)))(TjjQ))
(defun C:IP(/ T@Q TQQ T0@ T0?& T0j& T1Q T$Q T@OO TQOO T?Q T$?& T?Q& TjQ& TQ%j Tl%j T%@ T1@j T#@@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("LINPANTA"))))(SETQ T#@@ 45)(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(T@@@(T%l T#@@ 3))))))(SETVAR"PLINEWID"0)(SETQ T@Q(T&$@ NIL 8 0(T@@@(T%l T#@@ 1))T#|1""NIL))(IF T@Q(PROGN(SETQ T0j&(T$$& T@Q NIL))(IF T0j&(PROGN(SETQ T1Q(ATOF(CADDDR T0j&))T@OO(CAR(CDDDDR T0j&)))(SETQ TQQ(T&$@ T@Q 8 0(T@@@(T%l T#@@ 2))T#|1""NIL))(IF TQQ(PROGN(SETQ T0j&(T$$& TQQ NIL))(IF T0j&(PROGN(SETQ T$Q(ATOF(CADDDR T0j&)))(SETVAR"CECOLOR""1")(command-s"._XLINE"T@Q TQQ"")(SETQ T?@Q(ENTLAST))(SETVAR"CECOLOR""BYLAYER")(SETQ T@Q(T?1 T@Q)TQQ(T?1 TQQ)T?Q(DISTANCE T@Q TQQ)T?Q&(- T$Q T1Q)TQ%j(ANGLE T@Q TQQ)T0@ T)(IF(= Tj#l"")(SETQ TQOO T@OO)(SETQ TQOO(STRCAT T@OO"-"Tj#l)))(WHILE T0@(SETQ T0@(T&$@ NIL T%$@ 0(T@@@(T%l T#@@ 3))T#|1""T))(IF T0@(PROGN(IF T1#l(SETQ T0@(Tl& T0@ TO@Q)))(SETQ T0@(T?1 T0@))(IF(> T?Q 1E-10)(SETQ T0?&(T?|l T@Q TQQ T0@ NIL)T$?&(DISTANCE T@Q T0?&)TjQ&(/(* T$?& T?Q&)T?Q))(SETQ TjQ& 0.0))(IF(EQUAL TQ%j(ANGLE T@Q T0?&)1E-5)(SETQ T%@(+ T1Q TjQ&))(SETQ T%@(- T1Q TjQ&)))(SETQ T1@j(T?#Q))(T$01)(IF(TO01 T0@ T1@j T%@ TQOO TQOO(T0&1 T0@)NIL T)(Tj#Q T1@j)))))(ENTDEL T?@Q)(SETQ T?@Q NIL))(TlO@ 103 T1?@)))))(TlO@ 103 T1?@))))(TjjQ))
(defun C:IPC(/ TlOO T@%1 TO1j TO&1 T&OO T0@ T@Q TQQ T0j& TlQ T&Q TQ?$ T1Q T@OO T#Q T0Q Tl?$ T$Q TlQ$ T|%l T?Q& TO@ T|@ T1@j T%@ T&?& TQOO T#@@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID"))))(SETQ T#@@ 48)(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2))))))(SETVAR"PLINEWID"0)(SETQ TlOO 1)(Tj@@(T@@@(T%l T#@@ 3))0"")(SETQ T@%1(SSGET))(IF(T01@ T@%1)(PROGN(QQKE T@%1 T1?@ NIL 0.0 0.0 0.0 0 0 0 1)(IF(NULL(T01@ T@%1))(PROGN(SETQ TlOO 0)(TlO@ 104 T1?@))))(SETQ TlOO 0))(IF(= TlOO 1)(PROGN(SETQ TlOO 0 T@Q(T&$@ NIL 8 0(T@@@(T%l T#@@ 1))T#|1""NIL))(IF T@Q(PROGN(SETQ T0j&(T$$& T@Q NIL))(IF T0j&(SETQ TlQ(CAR T0j&)T&Q(CADR T0j&)TQ?$(CADDR T0j&)T1Q(ATOF(CADDDR T0j&))T@OO(CAR(CDDDDR T0j&))TlOO 1))))(IF(= TlOO 0)(TlO@ 103 T1?@))))(IF(= TlOO 1)(PROGN(SETQ TlOO 0 TQQ(T&$@ T@Q 8 0(T@@@(T%l T#@@ 2))T#|1""NIL))(IF TQQ(PROGN(SETQ T0j&(T$$& TQQ NIL))(IF T0j&(SETQ T#Q(CAR T0j&)T0Q(CADR T0j&)Tl?$(CADDR T0j&)T$Q(ATOF(CADDDR T0j&))TlOO 1))))(IF(= TlOO 0)(TlO@ 103 T1?@))))(IF(= TlOO 1)(PROGN(SETQ TlQ$(- T#Q TlQ)T|%l(- T0Q T&Q)T?Q&(- T$Q T1Q)T&OO(SSLENGTH T@%1))(WHILE(> T&OO 0)(SETQ TO1j(SSNAME T@%1(SETQ T&OO(- T&OO 1)))T0@(T%&j 10(Tj&j TO1j)T)TO@(+(CAR T0@)TlQ$)T|@(+(CADR T0@)T|%l)T0@(LIST TO@ T|@)TO&1(ENTNEXT TO1j)T1@j(T1&j 1(Tj&j TO&1))TO&1(ENTNEXT TO&1)T%@(+(ATOF(T1&j 1(Tj&j TO&1)))T?Q&)TO&1(ENTNEXT TO&1)T&?&(T1&j 1(Tj&j TO&1))T1@j(T?#Q))(IF T1#l(SETQ T0@(Tl& T0@ TO@Q)))(T$01)(IF(= Tj#l"")(SETQ TQOO T&?&)(SETQ TQOO(STRCAT T&?&"-"Tj#l)))(IF(TO01 T0@ T1@j T%@ TQOO TQOO(T0&1 T0@)NIL T)(Tj#Q T1@j)))))(TjjQ))
(defun C:IPLAN(/ T@Q TQQ T$%l T0@ T0j& T1OO T#OO T1Q T$Q TO@& T@OO TQOO T1@j T#@@)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("LINPANTA"))))(SETQ T#@@ 45)(SETQ T#|1(+ 0(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(Tl@@(T%l T#@@ 2))))))(SETVAR"PLINEWID"0)(SETQ T@Q(T&$@ NIL 8 0(T@@@(T%l T#@@ 1))T#|1""NIL))(IF T@Q(PROGN(SETQ T0j&(T$$& T@Q NIL))(IF T0j&(PROGN(SETQ T1Q(ATOF(CADDDR T0j&))T@OO(CAR(CDDDDR T0j&)))(SETQ TQQ(T&$@ T@Q 8 0(T@@@(T%l T#@@ 2))T#|1""NIL))(IF TQQ(PROGN(SETQ T0j&(T$$& TQQ NIL))(IF T0j&(PROGN(SETQ T$Q(ATOF(CADDDR T0j&)))(SETQ T1OO(LIST T@Q TQQ))(Tl#@ T1OO 1 1)(SETQ T$%l(T&$@ TQQ 8 0(Tl@@(T%l T#@@ 2))T#|1""NIL))(IF T$%l(PROGN(SETQ T0j&(T$$& T$%l NIL))(IF T0j&(PROGN(SETQ TO@&(ATOF(CADDDR T0j&)))(T##@ T1OO)(SETQ T#OO(LIST T@Q TQQ T$%l))(Tl#@ T#OO 1 1)(SETQ T@Q(T@1 T@Q T1Q)TQQ(T@1 TQQ T$Q)T$%l(T@1 T$%l TO@&)T0@ T)(IF(= Tj#l"")(SETQ TQOO T@OO)(SETQ TQOO(STRCAT T@OO"-"Tj#l)))(WHILE T0@(SETQ T0@(T&$@ NIL T1@Q 0(Tl@@(T%l T#@@ 3))0""NIL))(IF T0@(PROGN(IF T1#l(SETQ T0@(Tl& T0@ TO@Q)))(SETQ T0@(T#@& T@Q TQQ T$%l T0@)T1@j(T?#Q))(T$01)(IF(TO01 T0@ T1@j(CADDR T0@)TQOO TQOO(T0&1 T0@)NIL T)(Tj#Q T1@j)))))(T##@ T#OO))(TlO@ 103 T1?@))))(T##@ T1OO))(TlO@ 103 T1?@)))))(TlO@ 103 T1?@))))(TjjQ))
(defun C:XPCT()(T?QQ NIL)(TOOl)(T$Ol)(TjjQ))
(defun C:OPCT()(T?QQ NIL)(T%Ol)(TjjQ))
(defun C:RAPPCT(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("CLOSEFIS")("PLINEWID")("INSNAME"))))(T0l0 NIL NIL)(TjjQ))
(defun C:RXCOO(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("CLOSEFIS")("PLINEWID")("INSNAME"))))(T0l0""NIL)(TjjQ))
(defun C:CRAD(/ T%l0)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("CLOSEFIS")("PLINEWID")("INSNAME"))))(TlOl T#l0)(QQSE T?&0"RAD"Tj&0(ITOA T|lj)(STRCAT(GETVAR"DWGPREFIX")(GETVAR"DWGNAME")))(IF(QQEC)(PROGN(SETQ T%l0(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))".tmp"))(IF(FINDFILE T%l0)(T0l0 T%l0 NIL))))(TjjQ))
(defun C:REFCOO(/ T|l0 T|%$ T%l0 T0OO T$OO T@%1 T#@@)(SETQ T|%$(GETVAR"WORLDUCS"))(T?QQ(quote (("CLOSEFIS")("UCS"))))(SETQ T#@@ 53 T|l0(T$Ql(T#Ql 5)".coo"1))(IF(= T|%$ 0)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 1))0 T?Q@""))T%@@)(T0?Q TO?Q))))(SETQ T@%1(T%|1 T T))(IF(T01@ T@%1)(PROGN(SETQ T$OO(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))))(IF(/= T%lj 5)(SETQ T$OO(STRCAT T$OO T|l0)))(SETQ T0OO(T0lj(LIST(LAST(TQO T|l0"."))"csv")))(SETQ T%l0(GETFILED(T@@@(T%l T#@@ 2))T$OO T0OO 5))(T@&0 T%l0 T@%1 TO@Q T11l)))(TjjQ))
(defun C:TABCOO(/ T|%$ TOOO T@%1 T&&0 T#@@)(SETQ T|%$(GETVAR"WORLDUCS"))(T?QQ(quote (("CLOSEFIS")("UCS"))))(SETQ T#@@ 53)(IF(= T|%$ 0)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 1))0 T?Q@""))T%@@)(T0?Q TO?Q))))(IF(T01@ T&@Q)(PROGN(SETQ T@%1 T&@Q T&@Q NIL)(QQKE T@%1 T1?@ NIL 0.0 0.0 0.0 0 0 0 1))(SETQ T@%1(T%|1 T T)))(IF(T01@ T@%1)(PROGN(SETQ TOOO(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))".tmp")T&&0(QQWC T@%1 TOOO T1?@" "TO@Q T11l T1&0))(IF(AND T&&0(> T&&0 1E-8))(PROGN(TlOl T#l0)(QQSE T?&0"TAB"Tj&0(ITOA T|lj)TOOO)))))(TjjQ))
(defun C:TXCOO(/ T|%$ T@%1 T&&0 T#@@)(SETQ T|%$(GETVAR"WORLDUCS"))(T?QQ(quote (("CLOSEFIS")("UCS"))))(SETQ T#@@ 53)(IF(= T|%$ 0)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 1))0 T?Q@""))T%@@)(T0?Q TO?Q))))(IF(T01@ T&@Q)(PROGN(SETQ T@%1 T&@Q T&@Q NIL)(QQKE T@%1 T1?@ NIL 0.0 0.0 0.0 0 0 0 1))(SETQ T@%1(T%|1 NIL T)))(IF(T01@ T@%1)(PROGN(SETQ T&&0(QQWC T@%1 T%jQ T1?@" "TO@Q T11l T1&0))(IF(AND T&&0(> T&&0 1E-8))(PROGN(TlOl T#l0)(QQSE T?&0"TXC"Tj&0(ITOA T|lj)(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))))(IF(QQEC)(T#$l T#l0 NIL))))))(TjjQ))
(defun C:RECCOM(/)(T?QQ NIL)(STARTAPP(STRCAT T?&0" ""REC"" "(CHR 34)(GETVAR"DWGPREFIX")(CHR 34)))(TjjQ))
(defun C:AUTOPCT(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T$%0)(TjjQ))
(defun C:OPTPCT(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("PICKBOX")("VIEW"))))(T%?$)(TjjQ))
(defun C:DELPCT(/ T#@@)(T?QQ NIL)(SETQ T#@@ 70)(IF(=(QQMC(T@@@(T%l T#@@ 1)))6)(PROGN(QQDP T1?@ 1 NIL)(IF(= T|lj 1)(command-s"._REGEN"))))(TjjQ))
(defun C:IB(/ T|OO T%OO T0@ T?|O Tj|O T@|O TQ%Q T%10 T?#0 T&| TQ@ T?0Q Tj0Q TO10 TQ|O Tl|O Tj0 TjOQ TQ?j T#@@)
(defun T&|O(TO%1 TO0Q T11& / Tj0 TO1j T0@ TlO T?lO)(SETQ Tj0 -1)(REPEAT(SSLENGTH T1|O)(T#QQ)(SETQ Tj0(+ Tj0 1)TO1j(SSNAME T1|O Tj0)T0@(T%&j 10(Tj&j TO1j)T)TlO(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT TO1j)))))T?lO(Tj%(TQO TlO"-")))(WHILE T?lO(SETQ TlO(CAR T?lO))(IF(= TlO TO0Q)(PROGN(IF(NOT(TlOQ TO%1 T0@))(PROGN(T?|Q TO%1 T0@ T11& T11& T11&(T0& T0@)NIL)(SETQ T#|O(+ T#|O 1))))))(SETQ T?lO(CDR T?lO)))))
(defun T0|O(T??# TO0Q T11& / Tj0 TO1j T0@ TlO T?lO)(SETQ Tj0 -1)(REPEAT(SSLENGTH T1|O)(T#QQ)(SETQ Tj0(+ Tj0 1)TO1j(SSNAME T1|O Tj0)T0@(T%&j 10(Tj&j TO1j)T)TlO(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT TO1j)))))T?lO(Tj%(TQO TlO"-")))(WHILE T?lO(SETQ TlO(CAR T?lO))(IF(= TlO TO0Q)(PROGN(IF(NOT(T$OQ T??# T0@))(PROGN(command-s"._SHAPE"T??# T0@ T11&(T0& T0@))(SETQ T$|O(+ T$|O 1))))))(SETQ T?lO(CDR T?lO)))))(T?QQ(quote (("INSNAME")("SHPNAME"))))(SETQ T#@@ 71 T|OO(T@@@(T%l T#@@ 1))T%OO(Tl@@(T%l T#@@ 1)))(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(T@@@(T%l T#@@ 3))))))(SETQ T?|O(GETSTRING(T$j@(T@@@(T%l T#@@ 4))0 TlQ@"")))(IF(=(T0# T?|O)"")(SETQ T?|O TlQ@))(IF(=(STRCASE T?|O)(STRCASE TlQ@))(PROGN(IF T#0Q(PROGN(SETQ T1|O(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T1|O)(PROGN(SETQ T%10 0 T?#0 0)(Tj@@(T@@@(T%l T#@@ 5))0(STRCAT(TO@j T00Q)(T#@j T00Q)))(Tj%Q T)(Tj?l)(SETQ TQ|O NIL Tl|O NIL TjOQ -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ TjOQ(+ TjOQ 1))T#0Q)TQ@(CAR T&|)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|))TO10(CAR(CDR(CDDDDR T&|))))(IF(/= Tj0Q"")(PROGN(IF(= T?0Q 1)(PROGN(SETQ TQ%Q(TBLSEARCH"BLOCK"Tj0Q))(IF TQ%Q(SETQ TQ|O(APPEND TQ|O(LIST(LIST Tj0Q TQ@ TO10)))))))(IF(= T?0Q 2)(SETQ Tl|O(APPEND Tl|O(LIST(LIST Tj0Q TQ@ TO10))))))))(SETQ Tj0 0)(IF TQ|O(SETQ Tj0(LENGTH TQ|O)))(SETQ TjOQ 0)(IF Tl|O(SETQ TjOQ(LENGTH Tl|O)))(SETQ TQ?j(SSLENGTH T1|O))(T&QQ(+(* Tj0 TQ?j)(* TjOQ TQ?j)))(IF TQ|O(PROGN(WHILE TQ|O(SETQ T&|(CAR TQ|O)T#|O 0)(T&|O(CAR T&|)(CADR T&|)(* T&0l(CADDR T&|)))(IF(> T#|O 0)(PROGN(SETQ T%10(+ T%10 T#|O))(Tj@@(STRCAT(T@@@(T%l T#@@ 6))(CAR T&|)(Tl@@(T%l T#@@ 6)))0(ITOA T#|O))))(SETQ TQ|O(CDR TQ|O)))))(IF Tl|O(PROGN(WHILE Tl|O(SETQ T&|(CAR Tl|O)T$|O 0)(T0|O(CAR T&|)(CADR T&|)(* T&0l(CADDR T&|)))(IF(> T$|O 0)(PROGN(SETQ T?#0(+ T?#0 T$|O))(Tj@@(STRCAT(T@@@(T%l T#@@ 7))(CAR T&|)(Tl@@(T%l T#@@ 7)))0(ITOA T$|O))))(SETQ Tl|O(CDR Tl|O)))))(T0QQ)(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 8)))(STRLEN(T@@@(T%l T#@@ 9)))))(Tj@@(T@@@(T%l T#@@ 8))T#|1(ITOA T%10))(Tj@@(T@@@(T%l T#@@ 9))T#|1(ITOA T?#0)))(TlO@ 102 T1?@)))(T#O@ 204""T)))(PROGN(INITGET 2(STRCAT T|OO" "T%OO))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 10))0 T|OO""))T%OO)(PROGN(SETQ Tj|O(GETSTRING(T$j@(T@@@(T%l T#@@ 2))T#|1"""")))(IF(/= Tj|O"")(PROGN(SETQ Tj|O(STRCASE Tj|O)TQ%Q(TBLSEARCH"BLOCK"Tj|O))(IF(NULL TQ%Q)(TlO@ 105 Tj|O)(PROGN(SETQ T#|O 0 T1|O(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T1|O)(PROGN(T&QQ(SSLENGTH T1|O))(T&|O Tj|O T?|O T&0l)(T0QQ))(TlO@ 102 T1?@))(Tj@@(STRCAT(T@@@(T%l T#@@ 6))Tj|O(Tl@@(T%l T#@@ 6)))0(ITOA T#|O)))))))(PROGN(SETQ T@|O(GETSTRING(T$j@(T@@@(T%l T#@@ 3))T#|1"""")))(IF(/= T@|O"")(PROGN(SETQ T@|O(STRCASE T@|O)T$|O 0 T1|O(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T1|O)(PROGN(T&QQ(SSLENGTH T1|O))(T0|O T@|O T?|O T&0l)(T0QQ)))(Tj@@(STRCAT(T@@@(T%l T#@@ 7))T@|O(Tl@@(T%l T#@@ 7)))0(ITOA T$|O))))))))(TjjQ))
(defun C:MSCBL(/ T|OO T%OO TO|O Tj|O T@|O T|10 Tj#0 T@#0 T%10 T?#0 T&| T?0Q Tj0Q TO10 TjOQ T#@@)(T?QQ NIL)(SETQ T#@@ 81)(SETQ T|OO(T@@@(T%l T#@@ -9))T%OO(Tl@@(T%l T#@@ -9)))(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(T@@@(T%l T#@@ 3))))))(INITGET 2(STRCAT T|OO" "T%OO" "TlQ@))(SETQ TO|O(GETKWORD(T$j@(T@@@(T%l T#@@ 4))0 TlQ@"")))(IF(AND(/= TO|O T|OO)(/= TO|O T%OO))(SETQ TO|O TlQ@))(COND((= TO|O TlQ@)(IF T#0Q(PROGN(INITGET(+ 1 2 4))(SETQ T|10(GETREAL(T$j@(T@@@(T%l T#@@ 3))T#|1"""")))(IF(> T|10 0)(PROGN(SETQ T%10 0 T?#0 0)(Tj@@(T@@@(T%l T#@@ 5))0(STRCAT(TO@j T00Q)(T#@j T00Q)))(SETQ TjOQ -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ TjOQ(+ TjOQ 1))T#0Q)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|))TO10(CAR(CDR(CDDDDR T&|))))(IF(/= Tj0Q"")(PROGN(IF(= T?0Q 1)(PROGN(SETQ Tj#0(T$%1 Tj0Q(* T&0l TO10 T|10)NIL))(IF(> Tj#0 0)(PROGN(SETQ T%10(+ T%10 Tj#0))(Tj@@(STRCAT(T@@@(T%l T#@@ 6))Tj0Q(Tl@@(T%l T#@@ 6)))0(ITOA Tj#0))))))(IF(= T?0Q 2)(PROGN(SETQ T@#0(T%%1 Tj0Q(* T&0l TO10 T|10)NIL))(IF(> T@#0 0)(PROGN(SETQ T?#0(+ T?#0 T@#0))(Tj@@(STRCAT(T@@@(T%l T#@@ 7))Tj0Q(Tl@@(T%l T#@@ 7)))0(ITOA T@#0)))))))))(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 8)))(STRLEN(T@@@(T%l T#@@ 9)))))(Tj@@(T@@@(T%l T#@@ 8))T#|1(ITOA T%10))(Tj@@(T@@@(T%l T#@@ 9))T#|1(ITOA T?#0)))))(T#O@ 204""T)))((= TO|O T|OO)(SETQ Tj|O(GETSTRING(T$j@(T@@@(T%l T#@@ 1))T#|1"""")))(IF(/= Tj|O"")(PROGN(SETQ Tj|O(STRCASE Tj|O))(INITGET(+ 1 2 4))(SETQ T|10(GETREAL(T$j@(T@@@(T%l T#@@ 3))T#|1"""")))(IF(> T|10 0)(PROGN(SETQ Tj#0(T$%1 Tj|O T|10 NIL))(IF(> Tj#0 0)(Tj@@(STRCAT(T@@@(T%l T#@@ 6))Tj|O(Tl@@(T%l T#@@ 6)))0(ITOA Tj#0))(TlO@ 105 Tj|O)))))))((= TO|O T%OO)(SETQ T@|O(GETSTRING(T$j@(T@@@(T%l T#@@ 2))T#|1"""")))(IF(/= T@|O"")(PROGN(SETQ T@|O(STRCASE T@|O))(INITGET(+ 1 2 4))(SETQ T|10(GETREAL(T$j@(T@@@(T%l T#@@ 3))T#|1"""")))(IF(> T|10 0)(PROGN(SETQ T@#0(T%%1 T@|O T|10 NIL))(IF(> T@#0 0)(Tj@@(STRCAT(T@@@(T%l T#@@ 7))T@|O(Tl@@(T%l T#@@ 7)))0(ITOA T@#0))(TlO@ 121 T@|O))))))))(TjjQ))
(defun C:ROTBL(/ T|OO T%OO TO|O T?%j Tj|O T@|O Tj#0 T@#0 T%10 T?#0 T&| T?0Q Tj0Q TjOQ T#@@)
(defun T||O(T%|O T?%O / T|%1 TO1j Tj%O T|l Tj0 TQ?j)(SETQ T|l 0 T|%1(SSGET"X"(LIST(CONS 2 T%|O))))(IF(T01@ T|%1)(PROGN(SETQ TQ?j(SSLENGTH T|%1)Tj0 -1)(T&QQ TQ?j)(REPEAT TQ?j(T#QQ)(SETQ TO1j(Tj&j(SSNAME T|%1(SETQ Tj0(+ Tj0 1))))Tj%O(T$&j TO1j))(IF(OR(= Tj%O"INSERT")(= Tj%O"SHAPE"))(PROGN(SETQ T|l(+ T|l 1))(T##j TO1j(LIST(LIST 50 T?%O))))))(T0QQ)))T|l)(T?QQ NIL)(SETQ T#@@ 90)(SETQ T|OO(T@@@(T%l T#@@ -18))T%OO(Tl@@(T%l T#@@ -18)))(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ -8)))(STRLEN(T@@@(T%l T#@@ -7)))(STRLEN(T@@@(T%l T#@@ 1))))))(INITGET 2(STRCAT T|OO" "T%OO" "TlQ@))(SETQ TO|O(GETKWORD(T$j@(T@@@(T%l T#@@ 2))0 TlQ@"")))(IF(AND(/= TO|O T|OO)(/= TO|O T%OO))(SETQ TO|O TlQ@))(COND((= TO|O TlQ@)(IF T#0Q(PROGN(INITGET 1)(SETQ T?%j(GETREAL(T$j@(T@@@(T%l T#@@ 1))T#|1""""))T?%j(T%|j(/(*(- 400.0 T?%j)PI)200))T%10 0 T?#0 0)(Tj@@(T@@@(T%l T#@@ 3))0(STRCAT(TO@j T00Q)(T#@j T00Q)))(SETQ TjOQ -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ TjOQ(+ TjOQ 1))T#0Q)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|)))(IF(/= Tj0Q"")(PROGN(IF(= T?0Q 1)(PROGN(SETQ Tj#0(T||O Tj0Q T?%j))(IF(> Tj#0 0)(PROGN(SETQ T%10(+ T%10 Tj#0))(Tj@@(STRCAT(T@@@(T%l T#@@ 4))Tj0Q(Tl@@(T%l T#@@ 4)))0(ITOA Tj#0))))))(IF(= T?0Q 2)(PROGN(SETQ T@#0(T||O Tj0Q T?%j))(IF(> T@#0 0)(PROGN(SETQ T?#0(+ T?#0 T@#0))(Tj@@(STRCAT(T@@@(T%l T#@@ 5))Tj0Q(Tl@@(T%l T#@@ 5)))0(ITOA T@#0)))))))))(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 6)))(STRLEN(T@@@(T%l T#@@ 7)))))(Tj@@(T@@@(T%l T#@@ 6))T#|1(ITOA T%10))(Tj@@(T@@@(T%l T#@@ 7))T#|1(ITOA T?#0)))(T#O@ 204""T)))((= TO|O T|OO)(SETQ Tj|O(GETSTRING(T$j@(T@@@(T%l T#@@ -8))T#|1"""")))(IF(/= Tj|O"")(PROGN(SETQ Tj|O(STRCASE Tj|O))(INITGET 1)(SETQ T?%j(GETREAL(T$j@(T@@@(T%l T#@@ 1))T#|1""""))T?%j(T%|j(/(*(- 400.0 T?%j)PI)200))Tj#0(T||O Tj|O T?%j))(IF(> Tj#0 0)(Tj@@(STRCAT(T@@@(T%l T#@@ 4))Tj|O(Tl@@(T%l T#@@ 4)))0(ITOA Tj#0))(TlO@ 105 Tj|O)))))((= TO|O T%OO)(SETQ T@|O(GETSTRING(T$j@(T@@@(T%l T#@@ -7))T#|1"""")))(IF(/= T@|O"")(PROGN(SETQ T@|O(STRCASE T@|O))(INITGET 1)(SETQ T?%j(GETREAL(T$j@(T@@@(T%l T#@@ 1))T#|1""""))T?%j(T%|j(/(*(- 400.0 T?%j)PI)200))T@#0(T||O T@|O T?%j))(IF(> T@#0 0)(Tj@@(STRCAT(T@@@(T%l T#@@ 5))T@|O(Tl@@(T%l T#@@ 5)))0(ITOA T@#0))(TlO@ 121 T@|O))))))(TjjQ))
(defun C:DELBL(/ T|OO T%OO TO|O Tj|O T@|O Tj#0 T@#0 T%10 T?#0 T&| T?0Q Tj0Q TjOQ T#@@)
(defun T@%O(TO%1 / T|%1 T|l)(SETQ T|l 0)(SETQ T|%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 TO%1))))(IF(T01@ T|%1)(PROGN(SETQ T|l(SSLENGTH T|%1))(IF(> T|l 0)(command-s"._ERASE"T|%1""))))T|l)
(defun TQ%O(T??# / T|%1 T|l)(SETQ T|l 0 T|%1(SSGET"X"(LIST(CONS 0"SHAPE")(CONS 2 T??#))))(IF(T01@ T|%1)(PROGN(SETQ T|l(SSLENGTH T|%1))(IF(> T|l 0)(command-s"._ERASE"T|%1""))))T|l)(T?QQ NIL)(SETQ T#@@ 97)(SETQ T|OO(T@@@(T%l T#@@ -25))T%OO(Tl@@(T%l T#@@ -25)))(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ -15)))(STRLEN(T@@@(T%l T#@@ -14))))))(INITGET 2(STRCAT T|OO" "T%OO" "TlQ@))(SETQ TO|O(GETKWORD(T$j@(T@@@(T%l T#@@ 1))0 TlQ@"")))(IF(AND(/= TO|O T|OO)(/= TO|O T%OO))(SETQ TO|O TlQ@))(COND((= TO|O TlQ@)(IF T#0Q(PROGN(INITGET 1)(SETQ T%10 0 T?#0 0)(Tj@@(T@@@(T%l T#@@ 2))0(STRCAT(TO@j T00Q)(T#@j T00Q)))(SETQ TjOQ -1)(REPEAT(LENGTH T#0Q)(SETQ T&|(NTH(SETQ TjOQ(+ TjOQ 1))T#0Q)T?0Q(CADDDR T&|)Tj0Q(CAR(CDDDDR T&|)))(IF(/= Tj0Q"")(PROGN(IF(= T?0Q 1)(PROGN(SETQ Tj#0(T@%O Tj0Q))(IF(> Tj#0 0)(PROGN(SETQ T%10(+ T%10 Tj#0))(Tj@@(STRCAT(T@@@(T%l T#@@ 3))Tj0Q(Tl@@(T%l T#@@ 3)))0(ITOA Tj#0))))))(IF(= T?0Q 2)(PROGN(SETQ T@#0(TQ%O Tj0Q))(IF(> T@#0 0)(PROGN(SETQ T?#0(+ T?#0 T@#0))(Tj@@(STRCAT(T@@@(T%l T#@@ 4))Tj0Q(Tl@@(T%l T#@@ 4)))0(ITOA T@#0)))))))))(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 5)))(STRLEN(T@@@(T%l T#@@ 6)))))(Tj@@(T@@@(T%l T#@@ 5))T#|1(ITOA T%10))(Tj@@(T@@@(T%l T#@@ 6))T#|1(ITOA T?#0)))(T#O@ 204""T)))((= TO|O T|OO)(SETQ Tj|O(GETSTRING(T$j@(T@@@(T%l T#@@ -15))T#|1"""")))(IF(/= Tj|O"")(PROGN(SETQ Tj|O(STRCASE Tj|O)Tj#0(T@%O Tj|O))(IF(> Tj#0 0)(Tj@@(STRCAT(T@@@(T%l T#@@ 3))Tj|O(Tl@@(T%l T#@@ 3)))0(ITOA Tj#0))(TlO@ 105 Tj|O)))))((= TO|O T%OO)(SETQ T@|O(GETSTRING(T$j@(T@@@(T%l T#@@ -14))T#|1"""")))(IF(/= T@|O"")(PROGN(SETQ T@|O(STRCASE T@|O)T@#0(TQ%O T@|O))(IF(> T@#0 0)(Tj@@(STRCAT(T@@@(T%l T#@@ 4))T@|O(Tl@@(T%l T#@@ 4)))0(ITOA T@#0))(TlO@ 121 T@|O))))))(TjjQ))
(defun C:CHL(/)(T?QQ(quote (("LTSCALE")("PLINEWID")("VIEW"))))(TQ&$)(TjjQ))
(defun C:ARR(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW")("ORTHOMODE"))))(T&&$)(TjjQ))
(defun C:ARR2(/)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(T#%$)(TjjQ))
(defun C:GENCP1(/ T$QO T|1O T%1O T%%l Tj#O)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(TlOl T#l0)(SETQ T|1O(T@1#"<ENTER> / Selectati polilinia alocata pentru TEREN"(LIST"LWPOLYLINE""POLYLINE""CIRCLE")111))(IF T|1O(PROGN(SETQ T$QO(SSADD)T|1O(CAR T|1O)T|1O(T?%& T|1O NIL))(IF T|1O(PROGN(SSADD T|1O T$QO)(T%#@ T$QO)(T?j1 T|1O"w")(SETQ Tj#O 0 T%%l T)(WHILE T%%l(SETQ Tj#O(+ Tj#O 1))(T1%@ Tl?Q NIL)(SETQ T%1O(T@1#(STRCAT"<ENTER> / Selectati polilinia alocata pentru constructia nr. "(ITOA Tj#O))(LIST"LWPOLYLINE""POLYLINE""CIRCLE")111))(IF T%1O(PROGN(SETQ T%1O(CAR T%1O))(IF(SSMEMB T%1O T$QO)(SETQ Tj#O(- Tj#O 1))(PROGN(SETQ T%1O(T?%& T%1O NIL))(IF T%1O(PROGN(SSADD T%1O T$QO)(T%#@ T$QO)(T?j1 T%1O"a"))(SETQ T%%l NIL)))))(SETQ T%%l NIL)))(T?0@ T$QO)))))(STARTAPP(STRCAT T?&0" ""/CP"" "(CHR 34)" "(CHR 34)" "(CHR 34)(GETVAR"DWGPREFIX")(GETVAR"DWGNAME")(CHR 34)))(TjjQ))
(defun C:GENCP2(/ Tl%O T&%O T1%O T#%O T0%O T$%O)(T?QQ(quote (("CLOSEFIS")("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("INSNAME")("VIEW"))))(TlOl T#l0)(T@Qj T%jQ)(SETQ T1%O 0 T#%O 0 T0%O 0 T$%O NIL Tl%O(LIST"PrimaInregistrare""Dezmembrare""Alipire""ACtualizareDate""RectificareHotare"))(IF(NULL TQ$O)(SETQ TQ$O(NTH 0 Tl%O)))(INITGET 2(STRCAT(NTH 0 Tl%O)" "(NTH 1 Tl%O)" "(NTH 2 Tl%O)" "(NTH 3 Tl%O)" "(NTH 4 Tl%O)))(SETQ T&%O(GETKWORD(T$j@(STRCAT"Tipul operatiunii"" "(NTH 0 Tl%O)"/"(NTH 1 Tl%O)"/"(NTH 2 Tl%O)"/"(NTH 3 Tl%O)"/"(NTH 4 Tl%O))0 TQ$O"")))(IF(NULL T&%O)(SETQ T&%O TQ$O))(SETQ TQ$O T&%O)(COND((= T&%O(NTH 0 Tl%O))(SETQ T1%O 1))((= T&%O(NTH 1 Tl%O))(SETQ T1%O 2))((= T&%O(NTH 2 Tl%O))(SETQ T1%O 3))((= T&%O(NTH 3 Tl%O))(SETQ T1%O 4))((= T&%O(NTH 4 Tl%O))(SETQ T1%O 5)))(IF(> T1%O 0)(PROGN(T@lj T%jQ"a")(Tllj(LIST(ITOA T1%O)))(T%Qj)(COND((= T1%O 1)(SETQ T$%O(T01O"IMOB_N"1)))((= T1%O 2)(SETQ T$%O(T01O"IMOB_V"1))(IF T$%O(PROGN(SETQ T#%O 1 T0%O 1)(WHILE(T01O"IMOB_N"(+ T0%O T#%O))(SETQ T0%O(+ T0%O 1)))(SETQ T0%O(- T0%O 1))(IF(< T0%O 2)(PROGN(SETQ T$%O NIL)(ALERT"Eroare: Pentru tipul operatiunii [Dezmembrare] introduceti minim 2 parcele noi !"))))))((= T1%O 3)(SETQ T#%O 1 T$%O T)(WHILE(T01O"IMOB_V"T#%O)(SETQ T#%O(+ T#%O 1)))(SETQ T#%O(- T#%O 1))(IF(< T#%O 2)(PROGN(SETQ T$%O NIL)(ALERT"Eroare: Pentru tipul operatiunii [Alipire] introduceti minim 2 parcele vechi !")))(IF T$%O(PROGN(SETQ T$%O(T01O"IMOB_N"(+ T#%O 1)))(IF(NOT T$%O)(ALERT"Eroare: Pentru tipul operatiunii [Alipire] introduceti obligatoriu o parcela noua !")))))((= T1%O 4)(SETQ T$%O(T01O"IMOB_V"1)))((= T1%O 5)(SETQ T#%O 1 T$%O T)(WHILE(T01O"IMOB_V"T#%O)(SETQ T#%O(+ T#%O 1)))(SETQ T#%O(- T#%O 1))(IF(< T#%O 1)(SETQ T$%O NIL))))))(IF T$%O(PROGN(QQSE T?&0"GCP"(STRCAT(GETVAR"DWGPREFIX")(GETVAR"DWGNAME")))(QQEC)))(TjjQ))
(defun C:HASPL(/ T1|0 TQOj T#|j T|O# T0&O T%% T#@@)(T?QQ NIL)(SETQ T#@@ 124 T|O# 0 T0&O 0.0 T1|0 NIL)(T&?0)(IF(T01@ T&@Q)(SETQ T1|0 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1|0(SSGET))))(QQKE T1|0""NIL 0.0 0.0 0.0 0 0 1 5)(IF(T01@ T1|0)(PROGN(SETQ T%%(SSLENGTH T1|0))(WHILE(> T%% 0)(SETQ TQOj(SSNAME T1|0(SETQ T%%(1- T%%)))T#|j(ENTGET TQOj(quote ("TOPOLT"))))(IF(/=(T@1j T#|j)2)(PROGN(SETQ T0&O(+ T0&O(CAR(T@Oj TQOj 0.0 0.0))))(SETVAR"CLAYER"(T1$j T#|j))(SETVAR"CECOLOR"(ITOA(T%$j T#|j 256 NIL)))(T0?0 TQOj)(SETQ T|O#(+ T|O# 1)))))))(Tj@@(T@@@(T%l T#@@ 2))0(ITOA T|O#))(Tj@@(Tl@@(T%l T#@@ 2))0(STRCAT(RTOS(T&j T0&O)2 Tj0l)T@0l))(TjjQ))
(defun C:COTAPROF(/ TO%O T|%O T%%O T??| T?Q& T$|& Tj?| T@?| T#@@)(T?QQ NIL)(SETQ T#@@ 134)(SETQ TO%O"0.00")(IF TQ?|(SETQ TO%O(RTOS TQ?| 2 TO#l)))(SETQ T%%O"10.00")(IF Tl?|(IF(NOT(ZEROP Tl?|))(SETQ T%%O(RTOS Tl?| 2 TO#l))))(SETQ T#|1(+ 4(MAX(STRLEN TO%O)(STRLEN T%%O))(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(T@@@(T%l T#@@ 3))))))(SETQ T|%O(GETSTRING(T$j@(T@@@(T%l T#@@ 1))T#|1 TO%O"")))(IF(= T|%O"")(SETQ TQ?|(ATOF TO%O))(SETQ TQ?|(ATOF T|%O)))(SETQ T??|(GETSTRING(T$j@(T@@@(T%l T#@@ 2))T#|1 T%%O"")))(IF(= T??|"")(SETQ Tl?|(ATOF T%%O))(PROGN(SETQ Tl?|(ATOF T??|))(IF(ZEROP Tl?|)(SETQ Tl?|(ATOF T%%O)))))(Tj@@(T@@@(T%l T#@@ 3))T#|1"")(SETVAR"OSMODE"T1@Q)(SETQ T?Q&(GETDIST(T$j@(T@@@(T%l T#@@ 4))0"""")))(SETVAR"OSMODE"0)(IF T?Q&(PROGN(SETQ T$|&(ENTSEL(T$j@(T@@@(T%l T#@@ 5))0"""")))(IF T$|&(PROGN(SETQ Tj?|(Tj&j(CAR T$|&)))(IF(OR(TO&j Tj?|"TEXT")(TO&j Tj?|"MTEXT"))(PROGN(SETQ T?Q&(/ T?Q& Tl?|)T@?|(RTOS(+ TQ?| T?Q&)2 TO#l))(T##j Tj?|(LIST(LIST 1 T@?|)))))))))(TjjQ))
(defun C:MR(/ T|%1 T&?| T1?| T#?| T0?| T#@@)(T?QQ NIL)(SETQ T#@@ 139)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(SETQ T&?|(T&$@ NIL T1@Q 0(T@@@(T%l T#@@ 3))0""NIL))(IF T&?|(PROGN(SETQ T1?|(T&$@ T&?| T1@Q 0(T@@@(T%l T#@@ 4))0""NIL))(IF T1?|(PROGN(SETQ T#?|(T&$@ NIL T1@Q 0(T@@@(T%l T#@@ 5))0""NIL))(IF T#?|(PROGN(SETQ T0?|(T&$@ T#?| T1@Q 0(T@@@(T%l T#@@ 6))0""NIL))(IF T0?|(PROGN(command-s"._MOVE"T|%1""T&?| T1?|)(command-s"._ROTATE"T|%1""T1?|"R"T&?| T#?| T0?|)))))))))))(TjjQ))
(defun C:MRS(/ T|%1 T&?| T1?| T#?| T0?| T#@@)(T?QQ NIL)(SETQ T#@@ 139)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 2))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(SETQ T&?|(T&$@ NIL T1@Q 0(T@@@(T%l T#@@ 3))0""NIL))(IF T&?|(PROGN(SETQ T1?|(T&$@ T&?| T1@Q 0(T@@@(T%l T#@@ 4))0""NIL))(IF T1?|(PROGN(SETQ T#?|(T&$@ NIL T1@Q 0(T@@@(T%l T#@@ 5))0""NIL))(IF T#?|(PROGN(SETQ T0?|(T&$@ T#?| T1@Q 0(T@@@(T%l T#@@ 6))0""NIL))(IF T0?|(PROGN(command-s"._MOVE"T|%1""T&?| T1?|)(command-s"._ROTATE"T|%1""T1?|"R"T&?| T#?| T0?|)(command-s"._SCALE"T|%1""T1?|"R"T&?| T#?| T0?|)))))))))))(TjjQ))
(defun C:RED0(/ T|%1 Tj0 TQ?j T$?| T@%& T?1j T|&j TO?| T|?| T%?| T?j| Tjj| TQ0Q Tl1& T|Q T&l T0@ T$& T@j| TQj| Tlj| Tll& T&?1 T%%& T&j| T1j| T#j| T#@@)(T?QQ NIL)(SETQ T#@@ 145)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(Tj@@(Tl@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(SETQ TQ?j(SSLENGTH T|%1)Tj0 -1)(T&QQ TQ?j)(REPEAT TQ?j(T#QQ)(SETQ T$?|(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))T?1j(Tj&j T$?|)T|&j(T$&j T?1j)T|Q(T1&j 210 T?1j))(IF(T%1 T|Q)(SETQ T&l(TOQ T|Q))(SETQ T&l NIL))(IF(= T|&j"MTEXT")(PROGN(IF(AND T&l(= T|&j"MTEXT"))(SETQ T&j|(ATAN(* -1.0(CAR(CADR T&l)))(CAR(CAR T&l)))T?1j(SUBST(CONS 50(+(T1&j 50 T?1j)T&j|))(ASSOC 50 T?1j)T?1j)))(SETQ T&l NIL)))(IF(OR(= T|&j"POINT")(= T|&j"LINE")(= T|&j"MLINE"))(IF(NOT T?l1)(SETQ T&l NIL)))(IF T&l(PROGN(SETQ Tl1& NIL T#j| 0 T&?1 0 T%%& 0.0 Tll&(EXPT 10(* -1.0 Tj0l)))(IF(= T|&j"ELLIPSE")(PROGN(IF(EQUAL(+(T1&j 41 T?1j)Tj%j)(T1&j 42 T?1j)1E-8)(SETQ T&?1 1))(SETQ Tl1&(T$O& T$?| Tll& 1000))))(IF(= T|&j"CIRCLE")(SETQ T&?1 1 Tl1&(T|$& T$?| Tll& NIL 0)))(IF(= T|&j"ARC")(SETQ Tl1&(TQO& T$?| Tll& T)))(IF(OR(= T|&j"LWPOLYLINE")(AND(= T|&j"POLYLINE")(<=(T1&j 70 T?1j)9)))(SETQ T#j|(TOl& T?1j)T&?1(T1&j 70 T?1j)T%%&(T1|j T?1j)Tl1&(T0Q& T?1j)))(IF Tl1&(IF(/= T#j|(LENGTH Tl1&))(PROGN(SETQ T1j|(T1&j 39 T?1j)T@%& T$?| T$?|(T01& Tl1&(T1$j T?1j)(T%$j T?1j 256 NIL)T%%& T&?1(T?Oj T?1j)0.0))(IF T1j|(T##j(Tj&j T$?|)(LIST(LIST 39 T1j|))))(TO#j T@%& T$?|)(ENTDEL T@%&)(REDRAW T$?|)(SETQ T?1j(Tj&j T$?|)T|&j(T$&j T?1j)T&l NIL))(PROGN(T1l& T$?| Tl1&)(SETQ T?1j(Tj&j T$?|)))))))(IF(OR(= T|&j"POINT")(= T|&j"LINE")(= T|&j"MLINE")(= T|&j"TEXT")(= T|&j"MTEXT")(= T|&j"INSERT")(= T|&j"ELLIPSE")(= T|&j"CIRCLE")(= T|&j"ARC"))(SETQ T|&j"SIMPLA"))(COND((= T|&j"SIMPLA")(IF(AND T&l(ASSOC 50 T?1j))(SETQ T0@(T%&j 10 T?1j NIL)T$&(POLAR T0@(T1&j 50 T?1j)1.0)T0@(Tll T0@ T&l)T$&(Tll T$& T&l)T?1j(SUBST(CONS 50(ANGLE T0@ T$&))(ASSOC 50 T?1j)T?1j)))(SETQ T|?|(ASSOC 10 T?1j))(WHILE T|?|(SETQ T0@(Tll(CDR T|?|)T&l)TO?|(LIST"XX"(CAR T0@)(CADR T0@)0.0)T?1j(SUBST TO?|(ASSOC 10 T?1j)T?1j)T|?|(ASSOC 10 T?1j)))(SETQ T%?|(ASSOC"XX"T?1j))(WHILE T%?|(SETQ T?1j(SUBST(CONS 10(CDR T%?|))(ASSOC"XX"T?1j)T?1j)T%?|(ASSOC"XX"T?1j)))(SETQ T?j|(ASSOC 11 T?1j))(WHILE T?j|(SETQ T0@(Tll(CDR T?j|)T&l)TO?|(LIST"YY"(CAR T0@)(CADR T0@)0.0)T?1j(SUBST TO?|(ASSOC 11 T?1j)T?1j)T?j|(ASSOC 11 T?1j)))(SETQ Tjj|(ASSOC"YY"T?1j))(WHILE Tjj|(SETQ T?1j(SUBST(CONS 11(CDR Tjj|))(ASSOC"YY"T?1j)T?1j)Tjj|(ASSOC"YY"T?1j)))(IF(T1&j 210 T?1j)(SETQ T?1j(SUBST(CONS 210(LIST 0.0 0.0 1.0))(ASSOC 210 T?1j)T?1j)))(T##j T?1j NIL))((= T|&j"LWPOLYLINE")(T##j T?1j(LIST(LIST 38 0.0)(LIST 210(LIST 0.0 0.0 1.0)))))((= T|&j"POLYLINE")(SETQ TQ0Q(T1&j 70 T?1j))(IF(< TQ0Q 8)(T##j T?1j(LIST(LIST 10(T@1(T%&j 10 T?1j NIL)0.0))(LIST 210(LIST 0.0 0.0 1.0)))))(IF(OR(= TQ0Q 8)(= TQ0Q 9))(PROGN(SETQ T@j|(ENTNEXT T$?|)TQj|(Tj&j T@j|))(WHILE(TO&j TQj|"VERTEX")(SETQ Tlj| TQj| T0@(Tll(T%&j 10 Tlj| NIL)T&l))(T##j Tlj|(LIST(LIST 10(T@1 T0@ 0.0))))(SETQ T@j|(ENTNEXT T@j|)TQj|(Tj&j T@j|)))(T##j T?1j NIL))))((= T|&j"IMAGE")(T##j T?1j(LIST(LIST 10(T@1(T%&j 10 T?1j NIL)0.0))(LIST 11(T@1(T%&j 11 T?1j NIL)0.0))(LIST 12(T@1(T%&j 12 T?1j NIL)0.0)))))))(T0QQ)))(TjjQ))
(defun C:LIFTUP(/ T|%1 Tj0 TQ?j T$?| TO1j T|&j T0@ T@Q1 T0j& T%@ T?|j T&#@ T&0& Tl1& T1Q& T@?& TQ?& Tll& T%&& T|&& T#@@)(T?QQ(quote (("VIEW")("CELTSCALE"))))(SETQ T#@@ 236)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(QQEE T|%1(LIST(T&Ol 1)(T&Ol 2)(T&Ol 3)(T&Ol 4)(T&Ol 6))NIL 0 0 1)))(IF(T01@ T|%1)(PROGN(command-s"._PLAN""_C")(TOOl)(T@@l T)(Tj0j(T&Ol 5))(SETQ TQ?j(SSLENGTH T|%1)Tj0 -1)(T&QQ TQ?j)(REPEAT TQ?j(T#QQ)(SETQ T$?|(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))TO1j(Tj&j T$?|)T|&j(T$&j TO1j))(IF(= T|&j"CIRCLE")(SETQ T|&j"SIMPLA"))(IF(= T|&j"INSERT")(IF(T#?@ TO1j)(SETQ T|&j"PUNCT")(SETQ T|&j"SIMPLA")))(COND((= T|&j"SIMPLA")(SETQ T0@(T%&j 10 TO1j T)T@Q1(T#$& T0@ NIL))(command-s"._MOVE"T$?|""T0@ T@Q1))((= T|&j"PUNCT")(SETQ T0@(T%&j 10 TO1j T)T0j&(T$&1 T$?|)T%@(ATOF(CADDDR T0j&))T@Q1(T@1 T0@ T%@))(command-s"._MOVE"(T$11 NIL T0@ NIL)""T0@ T@Q1))((= T|&j"LINE")(SETQ T@?&(T#$&(T%&j 10 TO1j T?l1)NIL)TQ?&(T#$&(T%&j 11 TO1j T?l1)NIL))(T##j TO1j(LIST(LIST 10 T@?&)(LIST 11 TQ?&)(LIST 210(LIST 0.0 0.0 1.0)))))((OR(T$Oj T|&j)(= T|&j"ARC"))(SETVAR"CLAYER"(T1$j TO1j))(IF(ASSOC 6 TO1j)(SETVAR"CELTYPE"(T1&j 6 TO1j))(SETVAR"CELTYPE""BYLAYER"))(IF(ASSOC 48 TO1j)(SETVAR"CELTSCALE"(T1&j 48 TO1j))(SETVAR"CELTSCALE"1.0))(IF(ASSOC 62 TO1j)(SETVAR"CECOLOR"(ITOA(T1&j 62 TO1j)))(SETVAR"CECOLOR""BYLAYER"))(SETQ Tl1& NIL)(IF(= T|&j"ARC")(PROGN(SETQ T0@(T%&j 10 TO1j T)Tll&(EXPT 10(* -1.0 Tj0l))Tl1&(TQO& T$?| Tll& NIL)))(PROGN(SETQ T?|j(T%Oj(T1&j 70 TO1j)))(IF(OR(= T?|j 0)(= T?|j 4))(PROGN(SETQ T&0&(TOOj TO1j)Tl1&(T0Q& TO1j)Tl1&(T&&& Tl1&))(IF Tl1&(SETQ T1Q&(NTH 0 Tl1&)T0@(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))))))))(IF Tl1&(PROGN(SETQ T&#@(T1$& Tl1& T&0&))(IF(AND T&#@(>(LENGTH T&#@)1))(IF(NOT(Tj$& T&#@))(PROGN(SETQ T%@(CADDR(CAR T&#@))T@Q1(T@1 T0@ T%@))(command-s"._MOVE"T$?|""T0@ T@Q1))(PROGN(command-s"._3DPOLY")(SETQ T%&&(LENGTH T&#@)T|&& 0)(REPEAT T%&&(SETQ T0@(NTH T|&& T&#@))(command-s T0@)(SETQ T|&&(+ T|&& 1)))(IF T&0&(command-s"C")(command-s""))(TO#j T$?|(ENTLAST))(ENTDEL T$?|)(REDRAW(ENTLAST))))))))))(T0QQ)(T%Ol)))(TjjQ))
(defun C:SUMTXT(/ T|%1 TlOO T0j| T$j| T&OO TOj| T|j| T$|& T@ T0j| Tj0 T$| T%j| T?@| T#@@)(T?QQ NIL)(SETQ T#@@ 146)(SETVAR"LUNITS"2)(SETVAR"LUPREC"4)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(SETQ TlOO 1 T0j| 0 T$j| 0.0)(IF(T01@ T|%1)(PROGN(SETQ T&OO(SSLENGTH T|%1))(WHILE(> T&OO 0)(SETQ TOj|(SSNAME T|%1(SETQ T&OO(1- T&OO)))T|j|(Tj&j TOj|))(IF(=(T$&j T|j|)"TEXT")(PROGN(SETQ T$|&(T0#(T1&j 1 T|j|)))(IF(/= T$|&"")(PROGN(SETQ T%j| T Tj0 0)(REPEAT(STRLEN T$|&)(SETQ Tj0(+ Tj0 1)T$|(SUBSTR T$|& Tj0 1)T?@| NIL)(IF(AND(>=(ASCII T$|)48)(<=(ASCII T$|)57))(SETQ T?@| T))(IF(= T$|".")(SETQ T?@| T))(IF(AND(= T$|"+")(= Tj0 1))(SETQ T?@| T))(IF(AND(= T$|"-")(= Tj0 1))(SETQ T?@| T))(IF(AND(NULL T?@|)(= Tj0 1))(SETQ T%j| NIL)))(IF T%j|(SETQ T@(ATOF T$|&)T$j|(+ T$j| T@)T0j|(+ T0j| 1))(Tj@@(STRCAT(T@@@(T%l T#@@ 2))T$|&(Tl@@(T%l T#@@ 2)))0"")))))))(IF(< T0j| 1)(PROGN(SETQ TlOO 0)(TlO@ 113""))))(SETQ TlOO 0))(IF(= TlOO 1)(PROGN(PRINC"\n")(Tj@@(T@@@(T%l T#@@ 3))0(RTOS T$j|))))(TjjQ))
(defun C:BOXTXT(/ T|%1 TO1j TQ?j Tj@| T@@| TQ@| T$| Tl@| T#@@)(T?QQ(quote (("PLINEWID"))))(SETQ T#@@ 149)(IF(NULL T&@|)(SETQ T&@|(T@@ 0 T$#l 0.35)))(IF(NULL T1@|)(SETQ T1@| 0.0))(IF(NULL T#@|)(SETQ T#@| 1))(SETQ T#|1(+ 4(MAX(STRLEN(RTOS T&@| 2 3))(STRLEN(RTOS T1@| 2 3))(STRLEN T%@@)(STRLEN T?Q@))(MAX(STRLEN T10l)(STRLEN T10l))(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2)))(STRLEN(T@@@(T%l T#@@ 3))))))(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(INITGET 4)(SETQ Tj@|(GETREAL(T$j@(T@@@(T%l T#@@ 1))T#|1(RTOS T&@| 2 3)T10l)))(IF Tj@|(SETQ T&@| Tj@|))(INITGET 4)(SETQ T@@|(GETREAL(T$j@(T@@@(T%l T#@@ 2))T#|1(RTOS T1@| 2 3)T10l)))(IF T@@|(SETQ T1@| T@@|))(IF(= T#@| 0)(SETQ T$| T?Q@)(SETQ T$| T%@@))(INITGET 2(STRCAT T%@@" "T?Q@))(SETQ TQ@|(GETKWORD(T$j@(T@@@(T%l T#@@ 3))T#|1 T$|"")))(IF TQ@|(IF(= TQ@| T%@@)(SETQ T#@| 1)(SETQ T#@| 0)))(Tj@@(T@@@(T%l T#@@ 4))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(SETQ TQ?j(SSLENGTH T|%1))(WHILE(> TQ?j 0)(SETQ TO1j(SSNAME T|%1(SETQ TQ?j(1- TQ?j))))(T&j# TO1j T&@| T1@| T#@|))))(TjjQ))
(defun C:ALTXT(/ TjjO TQ?j Tj&Q T0@| Tl&Q T$# TQjO T0@ T$@| T@lQ T@Q TQQ T@?@ Tl1& T|&& T%&& T1Q& T#&& T0&& T$&& T%@& T&0& T@#& Tl%j T0%j T??@ T1@1 T#@1 T$j1 TO@| T|@| T11# T#@@)(T?QQ NIL)(SETQ T#@@ 153)(IF(T01@ T&@Q)(SETQ TjjO T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ TjjO(SSGET))))(QQKE TjjO""(LIST"TEXT""MTEXT""ATTDEF")0.0 0.0 0.0 0 0 0 2)(IF(T01@ TjjO)(PROGN(T%#@ TjjO)(SETQ TQjO(ENTSEL(T$j@(T@@@(T%l T#@@ 2))0""""))T0@| NIL)(T?0@ TjjO)(IF TQjO(PROGN(SETQ T0@(OSNAP(CADR TQjO)"NEA")T11# T0OQ)(IF(= T|lj 1)(IF(>= T?&j 50000)(SETQ T0@(CADR TQjO)T11#(T@j1))))(IF T0@(PROGN(SETQ TQjO(CAR TQjO)T$@|(T$&j(Tj&j TQjO)))(IF(= T$@|"ATTDEF")(SETQ T$@|"TEXT"))(IF(= T$@|"RAY")(SETQ T$@|"XLINE"))(IF(= T$@|"MTEXT")(SETQ T$@|"XLINE"))(IF(= T$@|"ARC")(SETQ T$@|"CIRCLE"))(COND((= T$@|"TEXT")(SETQ T0@| T T@lQ(T1&j 50(Tj&j TQjO))))((= T$@|"LINE")(SETQ T0@| T T@Q(T%&j 10(Tj&j TQjO)T?l1)TQQ(T%&j 11(Tj&j TQjO)T?l1)T@lQ(ANGLE T@Q TQQ)))((= T$@|"XLINE")(SETQ T0@| T T@Q(T%&j 10(Tj&j TQjO)T?l1)TQQ(T%&j 11(Tj&j TQjO)T?l1)TQQ(LIST(+(CAR T@Q)(CAR TQQ))(+(CADR T@Q)(CADR TQQ)))T@lQ(ANGLE T@Q TQQ)))((= T$@|"DIMENSION")(SETQ T0@| T T@Q(T%&j 13(Tj&j TQjO)T?l1)TQQ(T%&j 14(Tj&j TQjO)T?l1)T@lQ(ANGLE T@Q TQQ)))((= T$@|"CIRCLE")(SETQ T0@| T T@?@(T%&j 10(Tj&j TQjO)T)T@lQ(T%|j(-(ANGLE T0@ T@?@)T%&))))((T$Oj T$@|)(IF(<=(T%Oj(T1&j 70(Tj&j TQjO)))4)(PROGN(SETQ T&0&(TOOj(Tj&j TQjO))Tl1&(T0Q&(Tj&j TQjO))T#&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%&&(LENGTH Tl1&)T|&& 0)(REPEAT T%&&(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&))T%@&(CAR(CDDDDR T1Q&))T$&& NIL)(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(PROGN(IF(= T%@& 0.0)(IF(T0|l T0&& T0@ T$&& T11#)(SETQ T0@| T T@lQ(ANGLE T0&& T$&&)))(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&))(IF T@#&(PROGN(SETQ T@?@(LIST(CAR T@#&)(CADR T@#&))Tl%j(CADDR T@#&)T0%j(CADDDR T@#&)T??@(CAR(CDDDDR T@#&)))(IF(> T0%j 0)(SETQ T1@1 Tl%j T#@1(+ Tl%j T0%j))(SETQ T1@1(+ Tl%j T0%j)T#@1 Tl%j))(IF(EQUAL(DISTANCE T0@ T@?@)T??@ T11#)(IF(T@%j(ANGLE T@?@ T0@)T1@1 T#@1)(SETQ T0@| T T@lQ(ANGLE T0&& T$&&)))))))))))))))))))(IF T0@|(PROGN(SETQ TQ?j(SSLENGTH TjjO))(WHILE(> TQ?j 0)(SETQ Tj&Q(SSNAME TjjO(SETQ TQ?j(1- TQ?j)))Tl&Q(Tj&j Tj&Q)T$j1(- Tj%j(GETVAR"VIEWTWIST"))T$j1(T%|j T$j1)TO@|(T%|j(+ T$j1 T%&))T|@|(T%|j(- T$j1 T%&)))(IF(=(T@%j T@lQ T|@| TO@|)NIL)(SETQ T@lQ(T%|j(- T@lQ PI))))(IF(EQUAL T@lQ T#%l(/ PI 36.0))(SETQ T@lQ(T%|j(- T@lQ PI))))(T##j Tl&Q(LIST(LIST 50 T@lQ)(LIST 210(LIST 0.0 0.0 1.0)))))))))(TjjQ))
(defun C:CJ(/ T|%$)(IF(=(GETVAR"WORLDUCS")1)(SETQ T|%$ T)(SETQ T|%$ NIL))(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("VIEW")("UCS"))))(T$#0 T|%$)(TjjQ))
(defun C:FORMPLNS(/ T%&& T%@| T?Q| T&QO TjQ| T@Q| T|l T|%1 Tj0 TQ?j TQjO TQQ| Tl1& T1Q& T@Q TQQ T$%l T$?# TlQ| T#@@)(T?QQ(quote (("UCS")("VIEW"))))(SETQ T#@@ 157)(SETQ T%&& 0)(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T%@|(T@?0))(IF T%@|(SETQ T?Q| 0)(PROGN(SETQ T%@|(APPEND T%@|(LIST(T@@@(T%l T#@@ 2)))))(SETQ T?Q| 1)))(SETQ T&QO -1)(WHILE T%@|(SETQ TjQ|(CAR T%@|))(IF(/= TjQ|"")(PROGN(SETQ T#|1(+ 2(MAX 1(STRLEN TjQ|))(MAX(STRLEN(T@@@(T%l T#@@ 3)))(STRLEN(T@@@(T%l T#@@ 4))))))(SETQ T@Q|(GETSTRING(T$j@(T@@@(T%l T#@@ 3))T#|1 TjQ|"")))(IF(/= T@Q|"")(SETQ T@Q| T@Q|)(SETQ T@Q| TjQ|))(SETQ T@Q|(STRCASE T@Q|))(IF(= T?Q| 0)(IF(NOT(MEMBER T@Q| T%@|))(SETQ T%@|(CONS T@Q| T%@|))(IF(/= T@Q|(CAR T%@|))(SETQ T%@|(CONS T@Q|(SUBST""T@Q| T%@|))))))(SETQ T|l(GETINT(T$j@(T@@@(T%l T#@@ 4))T#|1"1""")))(IF(NOT T|l)(SETQ T|l 1))(Tj@@(T@@@(T%l T#@@ 5))0"")(SETQ T|%1(SSGET))(IF(T01@ T|%1)(PROGN(SETQ TQ?j(SSLENGTH T|%1)Tj0 -1)(REPEAT TQ?j(SETQ Tj0(+ Tj0 1)TQjO(Tj&j(SSNAME T|%1 Tj0))TQQ|(T$&j TQjO))(IF(T$Oj TQQ|)(IF(=(T%Oj(T1&j 70 TQjO))0)(PROGN(command-s"._UCS""_W")(SETQ Tl1&(T0Q& TQjO))(IF(=(LENGTH Tl1&)4)(PROGN(SETQ T1Q&(NTH 0 Tl1&)T@Q(LIST(CADR T1Q&)(CADDR T1Q&))T1Q&(NTH 1 Tl1&)TQQ(LIST(CADR T1Q&)(CADDR T1Q&))T1Q&(NTH 2 Tl1&)T$%l(LIST(CADR T1Q&)(CADDR T1Q&))T1Q&(NTH 3 Tl1&)T$?#(LIST(CADR T1Q&)(CADDR T1Q&)))(command-s"._UCS""_3POINT"T$?# T$%l T@Q)(command-s"._PLAN""_C")(command-s"._UCS""_W")(SETQ TlQ|(STRCAT T@Q|(ITOA T|l)))(command-s T$%@"_W"TlQ| T@Q T$%l)(T1%@ Tl?Q NIL)(SETQ T%&&(+ T%&& 1)T|l(+ T|l 1))))))))))))(SETQ T%@|(CDR T%@|)))(Tj@@(T@@@(T%l T#@@ 6))0(ITOA T%&&))(TjjQ))
(defun C:NRPLAN(/ T&Q| T1Q| T%@| T#Q| T0Q| T&QO T$Q| TOQ| TjQ| T&| T|Q| T%Q| T?l| T#Q| Tjl| T|O T@l| T&%@ T#@@)(SETQ T#@@ 163)(SETQ T&|(T#Ql 12)T&Q|(T$Ql T&|"NO_PLAN"15)T1Q|(T$Ql T&| Tl$O 18))(IF(=(GETVAR"TILEMODE")1)(T#O@ 203""T)(PROGN(command-s"._PSPACE")(T?QQ NIL)(SETQ T%@|(T@?0))(IF T%@|(PROGN(SETQ T#Q| 0 T0Q|(LENGTH T%@|)TOQ| 0 T&QO -1)(REPEAT T0Q|(SETQ TjQ|(NTH(SETQ T&QO(+ T&QO 1))T%@|)TOQ|(MAX TOQ|(STRLEN TjQ|))))(SETQ T#|1(+ 5(MAX TOQ|(STRLEN T&Q|)1)(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 3)))(STRLEN(T@@@(T%l T#@@ 5))))))(IF(NULL(T01@ T?$O))(PROGN(SETQ T?$O(SSADD)T&QO -1)(REPEAT T0Q|(SETQ TjQ|(NTH(SETQ T&QO(+ T&QO 1))T%@|))(SETQ T?l|(ENTSEL(T$j@(T@@@(T%l T#@@ 1))T#|1 TjQ|""))T|Q|(T|&# T?l|"VIEWPORT"))(IF T|Q|(PROGN(SETQ T%Q|(Tj&j T|Q|)T#Q| 1)(T0#@ T|Q|)(SSADD T|Q| T?$O)(SETQ Tj$O(APPEND Tj$O(LIST TjQ|))))(PROGN(SETQ T%Q| NIL T?l| NIL)(Tj@@(STRCAT(T@@@(T%l T#@@ 2))TjQ|(Tl@@(T%l T#@@ 2)))0"")))))(SETQ T#Q| 1))(IF(= T#Q| 1)(PROGN(IF(NULL T@$O)(SETQ T@$O(ENTSEL(T$j@(T@@@(T%l T#@@ 3))T#|1 T&Q|""))))(SETQ Tjl|(T|&# T@$O"INSERT"))(IF Tjl|(T0#@ Tjl|)(PROGN(SETQ T@$O NIL)(Tj@@(T@@@(T%l T#@@ 4))0"")))))(IF(= T#Q| 1)(PROGN(IF(OR(NULL TQl|)(< TQl| 0))(SETQ TQl| 0))(SETQ TQl|(+ TQl| 1))(T%#@ T?$O)(SETQ T|O(GETSTRING(T$j@(T@@@(T%l T#@@ 5))T#|1(ITOA TQl|)"")))(IF(= T|O"")(SETQ T|O(ITOA TQl|))(SETQ TQl|(ATOI T|O)))(T?0@ T?$O)(SETQ T$Q|(SSLENGTH T?$O)T&QO 0)(WHILE(< T&QO T$Q|)(SETQ T|Q|(SSNAME T?$O T&QO)T%Q|(Tj&j T|Q|)TjQ|(NTH T&QO Tj$O))(IF T%Q|(PROGN(SETQ T@l|(T1&j 69 T%Q|)T&%@(TBLSEARCH"VIEW"(STRCAT TjQ| T|O)))(IF T&%@(PROGN(command-s"._MSPACE")(SETVAR"CVPORT"T@l|)(IF(= T|lj 0)(command-s T$%@"_R"(STRCAT TjQ| T|O)))(IF(= T|lj 1)(PROGN(command-s"._UCS""_W")(command-s T$%@"_R"(STRCAT TjQ| T|O))(command-s"._UCS""_P")))(command-s"._PSPACE"))(PROGN(T|#@ Tjl|)(T0#@ T|Q|)(REDRAW)(ALERT(STRCAT(T@@@(T%l T#@@ 6))" "TjQ| T|O))(SETQ TQl| 0 Tjl| NIL)(T|#@ T|Q|)))))(SETQ T&QO(+ T&QO 1)))))(T|#@ Tjl|)(TQ?l Tjl| T&Q| T|O)(TQ?l Tjl| T1Q|(TO% T#1l)))(T#O@ 202""T))(TjjQ)))(IF(= T|lj 1)(command-s"._REGEN"))(PRINC))
(defun C:DETAS(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("VIEW"))))(TOlO NIL)(TjjQ))
(defun C:MDETAS(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("VIEW"))))(TOlO T)(TjjQ))
(defun C:RECALCAREA(/ T1|0 TQOj T#|j T0|0 T#|0 TQ0 T1Oj T%% T$|0 T#@@)(T?QQ NIL)(SETQ T#@@ 241 T$|0 0 T0Oj NIL)(IF(T01@ T&@Q)(SETQ T1|0 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1|0(SSGET))))(IF(T01@ T1|0)(PROGN(QQEE T1|0(LIST(T&Ol 4)(T&Ol 6))NIL 0 0 1)(QQKE T1|0""NIL 0.0 0.0 0.0 0 0 0 5)))(IF(T01@ T1|0)(PROGN(SETQ T$|0(T%?1 T1|0))(SETQ T%%(SSLENGTH T1|0))(WHILE(> T%% 0)(SETQ TQOj(SSNAME T1|0(SETQ T%%(1- T%%)))T#|j(ENTGET TQOj(quote ("TOPOLT")))T#|0(T|1j T#|j"SUP")T0|0(Tj&j(Tl&j T#|0)))(IF(AND(NOT T0|0)(/=(T@1j T#|j)2))(PROGN(T0#@ TQOj)(SETQ T0|0(Tj&j(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 2))0"""")))))(IF(AND T0|0(=(T$&j T0|0)"TEXT"))(PROGN(SETQ T1Oj(T1(CAR(T@Oj TQOj 0.0 0.0))Tj0l)TQ0(STRCAT(RTOS(T&j T1Oj)2 Tj0l)T@0l)T$|0(+ T$|0 1))(T##j T0|0(LIST(LIST 1 TQ0)))(SETQ T#|j(T?#j(Tj&j TQOj)(T1&j 5 T0|0)""""""))(T##j T#|j NIL)))(T|#@ TQOj))))(Tj@@(T@@@(T%l T#@@ 3))0(ITOA T$|0))))(TjjQ))
(defun C:REFLINK(/ T|%1 TQjO Tll| T?1j T&l| T@&# T1l| T#l| T1Oj TQ0 T0l| T$l| TOl| T|l| Tj#j T#@@)(T?QQ NIL)(SETQ T#@@ 245 T$l|""TOl|""T%l|""Tj#j""T0l| T T0Oj NIL)(IF(T01@ T&@Q)(SETQ TQjO(SSNAME T&@Q 0)T&@Q NIL)(PROGN(SETQ TQjO(T@1#(T@@@(T%l T#@@ 1))(LIST"LWPOLYLINE""POLYLINE")112))(IF TQjO(SETQ TQjO(CAR TQjO)Tll|(ENTGET TQjO(quote ("TOPOLT")))))))(IF(AND TQjO Tll|(=(T%Oj(T1&j 70(Tj&j TQjO)))0))(PROGN(T0#@ TQjO)(SETQ T|%1(T01j Tll|))(IF(T01@ T|%1)(PROGN(T%#@ T|%1)(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(Tl@@(T%l T#@@ 1))0 T?Q@""))T%@@)(SETQ T0l| NIL))(T?0@ T|%1)))(SETQ TO#@ T)(IF T0l|(PROGN(SETQ T&l|(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 2))0"""")))T?1j(Tj&j T&l|))(IF(AND T?1j(TO&j T?1j"TEXT"))(SETQ T$l|(T1&j 5 T?1j))(SETQ T&l| NIL))(T0#@ T&l|)(SETQ T@&#(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 3))0"""")))T?1j(Tj&j T@&#))(IF(AND T?1j(T$Oj(T$&j T?1j)))(SETQ TOl|(T1&j 5 T?1j))(SETQ T@&# NIL))(T0#@ T@&#)(SETQ T1l|(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 4))0"""")))T?1j(Tj&j T1l|))(IF(AND T?1j(TO&j T?1j"TEXT"))(SETQ T%l|(T1&j 5 T?1j))(SETQ T1l| NIL))(T0#@ T1l|)(SETQ T#l|(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 5))0"""")))T?1j(Tj&j T#l|))(IF(AND T?1j(TO&j T?1j"TEXT"))(PROGN(SETQ Tj#j(T1&j 5 T?1j))(SETQ T1Oj(T1(CAR(T@Oj TQjO 0.0 0.0))Tj0l)TQ0(STRCAT(RTOS(T&j T1Oj)2 Tj0l)T@0l))(T##j T?1j(LIST(LIST 1 TQ0)))))(T|#@ T&l|)(T|#@ T@&#)(T|#@ T1l|)(SETQ Tll|(T?#j(Tj&j TQjO)Tj#j T%l| T$l| TOl|))(T##j Tll| NIL)))(T|#@ TQjO)))(TjjQ))
(defun C:CHCOD(/)(T?QQ(quote (("TEXTSTYLE")("TEXTSIZE")("PLINEWID")("VIEW"))))(TllO)(TjjQ))
(defun C:JOINPCT(/)(T?QQ(quote (("LTSCALE")("PLINEWID")("VIEW"))))(T#QO)(TjjQ))
(defun C:SELCOD(/)(T?QQ(quote (("VIEW"))))(T|QO)(TjjQ))
(defun C:RENPCT(/ T?&| T@%1 Tj&| T@&| TQ&| Tl&| T&&| Tj0 TO1j T0@ T|$O T?OO T1&| T?lO Tll0 T&l0 T1l0 T$|1 T@$1 T#@@)(T?QQ(quote (("VIEW"))))(SETQ T#@@ 190)(SETQ T?&|(T$Ql(T#Ql 10)"ST"8))(SETQ T@%1 NIL)(IF(Tl?@)(PROGN(SETQ T@%1(SSGET"X"(LIST(CONS 0"INSERT")(CONS 2 T1?@))))(IF(T01@ T@%1)(PROGN(T#O@ 205""T)(IF T1%1(SETQ T@%1(T&%1 T@%1)))(INITGET(+ 2 4))(SETQ Tj&|(GETINT(T$j@(T@@@(T%l T#@@ 1))0"""")))(IF Tj&|(PROGN(SETQ T@&| NIL)(IF(/= T?&|"")(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 2))" "T?&|" "(Tl@@(T%l T#@@ 2)))0 T?Q@""))T%@@)(SETQ T@&| T))))(SETQ TQ&| NIL)(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 3))0 T?Q@""))T%@@)(SETQ TQ&| T))(TOOl)(T@@l T)(Tj0j(T&Ol 3))(Tj0j(T&Ol 5))(command-s"._ZOOM""_E")(SETQ Tj&|(- Tj&| 1)T&&| 0 Tl&|(SSLENGTH T@%1))(IF(> Tl&| 0)(PROGN(T&QQ Tl&|)(SETQ Tj0 Tl&|)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T@%1(SETQ Tj0(1- Tj0)))T0@(T%&j 10(Tj&j TO1j)T)T|$O(T1&j 1(Tj&j(ENTNEXT TO1j)))T?OO(T1&j 1(Tj&j(ENTNEXT(ENTNEXT(ENTNEXT TO1j)))))T1&| T)(IF(NULL T@&|)(PROGN(SETQ T?lO(TQO T?OO"-"))(WHILE T?lO(IF(=(CAR T?lO)T?&|)(SETQ T1&| NIL))(SETQ T?lO(CDR T?lO)))))(IF(NULL TQ&|)(PROGN(SETQ Tll0(TOO T|$O)T&l0(CAR Tll0)T1l0(CADDR Tll0))(IF(OR(/= T&l0"")(/= T1l0""))(SETQ T1&| NIL))))(IF T1&|(PROGN(SETQ Tj&|(+ Tj&| 1)T$|1(ITOA Tj&|))(IF(/= T|$O T$|1)(PROGN(SETQ T@$1(T011 T0@))(T##j(Tj&j(ENTNEXT TO1j))(LIST(LIST 1 T$|1)))(T0|1 T@$1)(SETQ T&&|(+ T&&| 1)))))))(T0QQ)(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 4)))(STRLEN(T@@@(T%l T#@@ 5)))))(Tj@@(T@@@(T%l T#@@ 4))T#|1(ITOA Tl&|))(Tj@@(T@@@(T%l T#@@ 5))T#|1(ITOA T&&|))(PRINC"\n")))(T%Ol)))))))(IF(NULL T@%1)(TlO@ 102 T1?@))(TjjQ))
(defun C:DELLAY(/ TO1j T#&| TO|j T00j T%% TO$O T0&| T#@@)
(defun T$&|(T@0j / TO&| T||j)(SETQ T||j NIL)(IF T@0j(PROGN(SETQ TO&|(SSGET"X"(LIST(CONS 8 T@0j))))(IF(T01@ TO&|)(PROGN(command-s"._ERASE"TO&|"")(SETQ T||j T)(IF(= T|lj 1)(command-s"._REGEN"))))))T||j)(T?QQ NIL)(SETQ T#@@ 195 TO$O NIL)(IF(T01@ T&@Q)(PROGN(SETQ T#&| NIL T%%(SSLENGTH T&@Q))(WHILE(> T%% 0)(SETQ TO1j(SSNAME T&@Q(SETQ T%%(1- T%%)))T00j(T1$j(Tj&j TO1j)))(IF T00j(PROGN(SETQ T0&| T)(FOREACH TO|j T#&|(IF(=(STRCASE TO|j)(STRCASE T00j))(SETQ T0&| NIL)))(IF T0&|(SETQ T#&|(APPEND T#&|(LIST T00j)))))))(SETQ T&@Q NIL T%%(LENGTH T#&|))(WHILE(> T%% 0)(SETQ T00j(NTH(SETQ T%%(1- T%%))T#&|))(IF(T$&| T00j)(SETQ TO$O T))))(PROGN(SETQ TO1j T)(WHILE TO1j(SETQ TO1j(CAR(ENTSEL(T$j@(T@@@(T%l T#@@ 1))0""""))))(IF TO1j(SETQ T00j(T1$j(Tj&j TO1j))TO$O(T$&| T00j))))))(IF TO$O(PRINC(STRCAT"\n"(T@@@(T%l T#@@ 2)))))(TjjQ))
(defun C:DIMPL(/ TQjO T#10 T|&| T@Q T&@# T&?| T1@# T#@# T??@ Tl%j T&%j T|?& T@Q# T|&j T#@@)(T?QQ(quote (("VIEW"))))(SETQ T#@@ 197)(T$O@)(SETQ T#|1(+ 2(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(T@@@(T%l T#@@ 2))))))(SETQ TQjO(ENTSEL(T$j@(T@@@(T%l T#@@ 1))T#|1"""")))(IF TQjO(PROGN(SETQ T@Q(CADR TQjO)TQjO(CAR TQjO)T|&j(T$&j(Tj&j TQjO)))(IF(OR(= T|&j"LINE")(= T|&j"ARC")(AND(T$Oj T|&j)(=(T%Oj(T1&j 70(Tj&j TQjO)))0)))(PROGN(Tl$j TjQl)(PRINC(T$j@(T@@@(T%l T#@@ 2))T#|1""""))(IF(= T|&j"ARC")(command-s"._DIMANGULAR"T@Q PAUSE)(PROGN(command-s"._DIMALIGNED"""T@Q PAUSE)(IF(= T%lj 5)(command-s""))))(SETQ T#10(ENTLAST))(IF(AND T#10(TO&j(Tj&j T#10)"DIMENSION"))(PROGN(SETQ T|&|(Tj&j T#10))(IF(= T|&j"ARC")(PROGN(SETQ T??@(T1&j 40(Tj&j TQjO))Tl%j(T1&j 50(Tj&j TQjO))T&%j(T1&j 51(Tj&j TQjO))T|?&(T%|j(- T&%j Tl%j))T@Q#(* T|?& T??@))(T##j T|&|(LIST(LIST 1(T0j# T@Q#))))))(IF(T$Oj T|&j)(PROGN(SETQ T&@#(T%&j 10 T|&| T?l1)T&?|(T%&j 11 T|&| T)T1@#(T%&j 13 T|&| T?l1)T#@#(T%&j 14 T|&| T?l1))(ENTDEL T#10)(Tl@# TQjO T&@# T1@# T#@#))))))(TlO@ 110""))))(TjjQ))
(defun C:MDIMPL(/ T1|0 TQOj T#|j Tl1& T@#& T0&& T$&& TOjO T|jO T0@ T%@& T#Q# TQ%j Tl%j T?Q T%% T%&| T?1| Tl|l Tj1| T#@@)(T?QQ(quote (("VIEW"))))(SETQ T#@@ 199)(T$O@)(SETVAR"PLINETYPE"2)(IF(T01@ T&@Q)(SETQ T1|0 T&@Q T&@Q NIL Tj1| T)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1|0(SSGET)Tj1| NIL)))(IF(T01@ T1|0)(PROGN(QQEE T1|0(LIST(T&Ol 4)(T&Ol 6))NIL 0 0 1)(QQKE T1|0""NIL 0.0 0.0 0.0 0 0 0 5)))(IF(T01@ T1|0)(PROGN(SETQ T#Q#(* 0.9(GETVAR"DIMTXT")(GETVAR"DIMSCALE"))Tl|l NIL)(IF(NULL Tj1|)(PROGN(SETQ T%&|(T@@@(T%l T#@@ 3))T?1|(Tl@@(T%l T#@@ 3))Tl|l T)(INITGET 2(STRCAT T%&|" "T?1|))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 2))0 T?1|""))T%&|)(SETQ Tl|l NIL))))(Tl$j TjQl)(SETQ T%%(SSLENGTH T1|0))(WHILE(> T%% 0)(SETQ TQOj(SSNAME T1|0(SETQ T%%(1- T%%)))T#|j(ENTGET TQOj(quote ("TOPOLT"))))(IF(/=(T@1j T#|j)2)(PROGN(SETQ Tl1&(T0Q& T#|j)T0&&(LIST(CADR(CAR Tl1&))(CADDR(CAR Tl1&)))T%@&(CAR(CDDDDR(CAR Tl1&)))T$&&(LIST(CADR(CADR Tl1&))(CADDR(CADR Tl1&)))TQ%j(ANGLE T0&& T$&&))(IF(= T%@& 0.0)(PROGN(SETQ T?Q(DISTANCE T0&& T$&&)T0@(POLAR T0&&(- TQ%j 1E-6)(/ T?Q 10.0))))(PROGN(SETQ T@#&(T$%j T0&& T$&& T%@&))(IF T@#&(PROGN(SETQ Tl%j(CADDR T@#&))(IF(> T%@& 0.0)(SETQ Tl%j(+ Tl%j T%&))(PROGN(SETQ Tl%j(- Tl%j T%&)TQ%j(T%|j(- TQ%j PI)))))(SETQ T0@(POLAR T0&& Tl%j 1E-3))))))(SETQ TOjO NIL T|jO NIL)(IF(Tj#& Tl1& T0@)(SETQ TOjO(POLAR T$&&(- TQ%j T%&)T#Q#))(SETQ T|jO(POLAR T$&&(- TQ%j T%&)T#Q#)))(IF(NULL TOjO)(SETQ TOjO(POLAR T$&&(+ TQ%j T%&)T#Q#)))(IF(NULL T|jO)(SETQ T|jO(POLAR T$&&(+ TQ%j T%&)T#Q#)))(IF Tl|l(Tl@# TQOj TOjO T0&& T$&&)(Tl@# TQOj T|jO T0&& T$&&)))))))(TjjQ))
(defun C:INSVX(/ Tl1& T1Q& TQOj T#|j T1&# T#&& T0&& T$&& T%@& T||@ T%&& T|&& T11# T0l| T@1| T&0& T#@@)(T?QQ NIL)(SETQ T#@@ 49 T0l| NIL T@1| NIL T11#(T@j1))(SETQ TQOj(ENTSEL(T$j@(Tl@@(T%l T#@@ 1))0"""")))(IF TQOj(PROGN(SETQ T1&#(OSNAP(CADR TQOj)"NEA"))(IF(= T|lj 1)(IF(>= T?&j 50000)(SETQ T1&#(CADR TQOj))))(SETQ TQOj(CAR TQOj))(IF T1&#(PROGN(SETQ T#|j(Tj&j TQOj))(IF(=(T$&j T#|j)"LINE")(PROGN(IF T@&$(command-s"._PEDIT"TQOj"_Y""")(command-s"._PEDIT"TQOj""))(SETQ TQOj(ENTLAST)T#|j(Tj&j TQOj))))(IF(T$Oj(T$&j T#|j))(PROGN(SETQ T||@(T%Oj(T1&j 70 T#|j)))(IF(OR(= T||@ 0)(= T||@ 4))(PROGN(SETQ T0l| T)(T0#@ TQOj)))))))))(IF T0l|(PROGN(SETQ T&0&(TOOj T#|j)Tl1&(T0Q& T#|j)T1Q&(NTH 0 Tl1&)T#&&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))T%&&(LENGTH Tl1&)T|&& 0)(WHILE(AND(< T|&& T%&&)(NULL T@1|))(SETQ T|&&(+ T|&& 1)T1Q&(NTH(- T|&& 1)Tl1&)T0&&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&))T%@&(CAR(CDDDDR T1Q&)))(IF(< T|&& T%&&)(SETQ T1Q&(NTH T|&& Tl1&)T$&&(LIST(CADR T1Q&)(CADDR T1Q&)(CADDDR T1Q&)))(IF T&0&(SETQ T$&& T#&&)))(IF T$&&(IF(= T%@& 0.0)(IF(T0|l T0&& T1&# T$&& T11#)(SETQ T@1| T)))))))(IF T@1|(PROGN(SETQ T1&#(T&$@ T1&# T1@Q 0(T@@@(T%l T#@@ 1))0""NIL))(IF T1&#(PROGN(SETQ T|l& NIL)(T?&& TQOj T|&& T1&#)(T%?1 T|l&)(SETQ T|l& NIL)))))(T|#@ TQOj)(TjjQ))
(defun C:MBR(/ T0@ TjQ1 T|%1 Tj0 TO1j T#@@)(T?QQ NIL)(SETQ T#@@ 244)(SETVAR"OSMODE"T1@Q)(SETQ T0@(GETPOINT(T$j@(T@@@(T%l T#@@ 1))0"""")))(IF T0@(PROGN(SETQ TjQ1(T#j1 T0@(T@j1))T|%1(SSGET"C"(CAR TjQ1)(CADR TjQ1)))(IF(T01@ T|%1)(PROGN(SETVAR"OSMODE"0)(SETQ Tj0(SSLENGTH T|%1))(WHILE(> Tj0 0)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0))))(IF(AND TO1j(T$Oj(T$&j(Tj&j TO1j))))(PROGN(command-s"._BREAK"(LIST TO1j T0@)"F"T0@ T0@))))))))(TjjQ))
(defun C:FIXHPCT(/ T@%1 T100 TjlO T?Q& Tj0 TO1j TQ1| T?#1 T0@ T$@ T%$O TO|1 T@$1 Tl1| T&1| T#@@)(T?QQ(quote (("VIEW"))))(SETQ T#@@ 202 T@%1(T%|1 T T))(IF(T01@ T@%1)(IF T$1l(PROGN(SETQ Tl1| NIL)(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(T@@@(T%l T#@@ 2))0 T%@@""))T?Q@)(SETQ Tl1| T))(TOOl)(T@@l T)(Tj0j(T&Ol 2))(IF(OR(= T01l 1)(= T01l 2))(Tj0j(T&Ol 3)))(Tj0j(T&Ol 5))(command-s"._ZOOM""_E")(SETQ T100 0 TjlO(SSLENGTH T@%1)Tj0 TjlO)(T&QQ TjlO)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T@%1(SETQ Tj0(1- Tj0)))T0@(T%&j 10(Tj&j TO1j)T)T%$O(ATOF(T1&j 1(Tj&j(ENTNEXT(ENTNEXT TO1j)))))T&1| T)(IF(NULL Tl1|)(IF(EQUAL T%$O 0.0 1E-10)(SETQ T&1| NIL)))(IF T&1|(PROGN(SETQ TO|1(CADDR T0@)TQ1|(Tj&j(ENTNEXT(ENTNEXT TO1j))))(T##j TQ1|(LIST(LIST 1(RTOS TO|1 2 TO@Q))))(SETQ T@$1 NIL)(IF(OR(= T01l 1)(= T01l 2))(PROGN(SETQ T@$1(T011 T0@))(T0|1 T@$1)))(SETQ T100(+ T100 1)))))(T0QQ)(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ -14)))(STRLEN(T@@@(T%l T#@@ 3)))))(Tj@@(T@@@(T%l T#@@ -14))T#|1(ITOA TjlO))(Tj@@(T@@@(T%l T#@@ 3))T#|1(ITOA T100))(PRINC"\n")(T%Ol))(TlO@ 130"")))(TjjQ))
(defun C:HPCT(/ T@%1 T100 TjlO T?Q& Tj0 TO1j TQ1| T0@ T$@ T%$O TO|1 T@$1 Tl1| T&1| T#@@)(T?QQ(quote (("VIEW"))))(SETQ T#@@ 202 T@%1(T%|1 T T))(IF(T01@ T@%1)(PROGN(SETQ T?Q&(GETREAL(T$j@(T@@@(T%l T#@@ 1))0"""")))(IF T?Q&(IF(NOT(EQUAL T?Q& 0.0 1E-10))(PROGN(SETQ Tl1| NIL)(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 2))0 T?Q@""))T%@@)(SETQ Tl1| T))(TOOl)(T@@l T)(Tj0j(T&Ol 2))(IF(OR(= T01l 1)(= T01l 2))(Tj0j(T&Ol 3)))(Tj0j(T&Ol 5))(command-s"._ZOOM""_E")(SETQ T100 0 TjlO(SSLENGTH T@%1)Tj0 TjlO)(T&QQ TjlO)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T@%1(SETQ Tj0(1- Tj0)))T0@(T%&j 10(Tj&j TO1j)T)T%$O(ATOF(T1&j 1(Tj&j(ENTNEXT(ENTNEXT TO1j)))))T&1| T)(IF(NULL Tl1|)(IF(EQUAL T%$O 0.0 1E-10)(SETQ T&1| NIL)))(IF T&1|(PROGN(SETQ TO|1(+ T%$O T?Q&)TQ1|(Tj&j(ENTNEXT(ENTNEXT TO1j))))(T##j TQ1|(LIST(LIST 1(RTOS TO|1 2 TO@Q))))(SETQ T@$1 NIL)(IF(OR(= T01l 1)(= T01l 2))(PROGN(SETQ T@$1(T011 T0@))(T0|1 T@$1)))(IF T$1l(PROGN(IF(NULL T@$1)(SETQ T@$1(T011 T0@)))(SETQ T$@(T@1 T0@(ATOF(RTOS TO|1 2 TO#l))))(command-s"._MOVE"(T$11 T T@$1 NIL)""T0@ T$@)))(SETQ T100(+ T100 1)))))(T0QQ)(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ -14)))(STRLEN(T@@@(T%l T#@@ 3)))))(Tj@@(T@@@(T%l T#@@ -14))T#|1(ITOA TjlO))(Tj@@(T@@@(T%l T#@@ 3))T#|1(ITOA T100))(PRINC"\n")(T%Ol))))))(TjjQ))
(defun C:MJOIN(/ T|%1 T11| T1|0 Tj0 TO1j T?1j T|&j T@?& TQ?& T??@ T#@@)(T?QQ(quote (("PLINETYPE"))))(SETQ T#@@ 205)(SETVAR"PLINETYPE"2)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(SETQ T11|(SSADD)T1|0(SSADD)Tj0(SSLENGTH T|%1))(T&QQ Tj0)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(1- Tj0)))T?1j(Tj&j TO1j)T|&j(T$&j T?1j))(IF(OR(= T|&j"LINE")(= T|&j"ARC"))(PROGN(IF(= T|&j"LINE")(PROGN(SETQ T@?&(T%&j 10 T?1j T?l1)TQ?&(T%&j 11 T?1j T?l1))(IF(T#1 T@?& TQ?&)(SETQ TO1j NIL))(IF(NOT(EQUAL(CADDR T@?&)(CADDR TQ?&)1E-8))(SETQ TO1j NIL))))(IF(= T|&j"ARC")(PROGN(SETQ T??@(T1&j 40 T?1j))(IF(EQUAL T??@ 0.0 1E-8)(SETQ TO1j NIL))))(IF TO1j(SSADD TO1j T11|))))(IF(OR(= T|&j"POLYLINE")(= T|&j"LWPOLYLINE"))(IF(<(T%Oj(T1&j 70 T?1j))3)(SSADD TO1j T1|0))))(T0QQ)(IF(T01@ T11|)(PROGN(SETQ Tj0(SSLENGTH T11|))(T&QQ Tj0)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T11|(SETQ Tj0(1- Tj0))))(IF(Tj&j TO1j)(PROGN(IF T@&$(command-s"._PEDIT"TO1j"_Y""_X")(command-s"._PEDIT"TO1j"_X"))(SSADD(ENTLAST)T1|0))))(T0QQ)))(IF(T01@ T1|0)(PROGN(SETQ Tj0(SSLENGTH T1|0))(T&QQ Tj0)(WHILE(> Tj0 0)(T#QQ)(SETQ TO1j(SSNAME T1|0(SETQ Tj0(1- Tj0)))T?1j(Tj&j TO1j))(IF T?1j(IF(NOT(TOOj T?1j))(PROGN(command-s"._PEDIT"TO1j"_J"T1|0"""_X")(SSDEL TO1j T1|0)))))(T0QQ)))))(TjjQ))
(defun C:ALLBLACK(/ T|$j T@0j T|jl T#1|)(T?QQ NIL)(SETQ T#1| NIL T|$j(TBLNEXT"LAYER"T))(WHILE T|$j(SETQ T@0j(T1&j 2 T|$j)T|jl(T1&j 62 T|$j))(IF(>= T|jl 0)(IF(NOT(OR(AND(>= T|jl 7)(<= T|jl 9))(AND(>= T|jl 250)(<= T|jl 255))))(SETQ T#1|(APPEND T#1|(LIST T@0j)))))(SETQ T|$j(TBLNEXT"LAYER")))(WHILE T#1|(SETQ T@0j(CAR T#1|))(command-s"._LAYER""_Color""7"T@0j"")(SETQ T#1|(CDR T#1|)))(IF(ENTLAST)(command-s"._CHPROP""_ALL""""_Color""ByLayer"""))(TjjQ))
(defun C:GEDRAW(/ T01| T$1| TO1| T|1| T%1| T?#| Tj#| T@#| TQ#| Tl#| T&#| T1#| T##| T|%1 TO1j T?1j T0|0 T&#@ T0#| T0j& T&| T@?& TQ?& T0@ T$#| TO#| T0OO T%1j T$0j T1jl T|#| T%#| T|#$ T#|0 Tl1O T?0| TQ1O Tll& T&0& Tj0| T@0| T1@j TQ0| Tl0| T|l Tj0 T?|j T|&& TQjj T|l@ T#@@)(T?QQ(quote (("CLOSEFIS"))))(SETQ T#@@ 250 TQ0| 0 TQjj(T#ll)T|l@(CHR 34)T@0| NIL Tll&(EXPT 10(* -1.0 Tj0l))Tl0| 0.0)(SETQ T&|(T#Ql 15)T01|(T$Ql T&|""1)T$1|(T|Ql T&| 1 2)TO1|(Tlll T&| NIL 3)T|1|(T$Ql T&|"1"4)T%1|(T$Ql T&|"1"5)T?#|(T$Ql T&|"1"6)Tj#|(T$Ql T&|"1"7)T@#|(T$Ql T&|"1"8)TQ#|(T$Ql T&|"1"9)Tl#|(T$Ql T&|""10)T&#|(T$Ql T&|""11)T1#|(Tlll T&| NIL 12)T##|(Tlll T&| NIL 18)T?0|(STRCAT"0"TQjj T|1| TQjj T%1| TQjj T?#| TQjj Tj#| TQjj T@#| TQjj"1"TQjj"1"TQjj"1"TQjj TQ#| TQjj""TQjj""TQjj""TQjj T|l@ Tl#| T|l@ TQjj T&#|)T|1|(Tlll T&| T 4)T%1|(Tlll T&| T 5)T?#|(Tlll T&| T 6)Tj#|(Tlll T&| T 7)T@#|(Tlll T&| T 8))(QQSE T?&0"IGT""T")(QQEC)(IF(/= T01|"")(PROGN(IF(T01@ T&@Q)(PROGN(SETQ T|%1 T&@Q T&@Q NIL))(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(QQEE T|%1(LIST(T&Ol 4)(T&Ol 6))NIL 0 0 1)))(IF(T01@ T|%1)(PROGN(IF T##|(PROGN(Tj@@(T@@@(T%l T#@@ 2))0"")(INITGET 2)(SETQ Tl0|(GETREAL(T$j@(Tl@@(T%l T#@@ 2))0"""")))(IF(NULL Tl0|)(SETQ Tl0| 0.0))))(SETQ T$#|(TO@j(GETVAR"DWGNAME"))TO#|(STRCAT(GETVAR"DWGPREFIX")T$#|))(IF T1#|(PROGN(SETQ T0OO(T0lj(LIST"kmz""kml""csv")))(SETQ TO#|(GETFILED""TO#| T0OO 5))))(IF TO#|(PROGN(T@lj T%jQ"w")(Tllj(LIST(STRCAT"PLACES_NAME"TQjj T$#|)))(SETQ T|l(SSLENGTH T|%1)Tj0 -1 T&#@ NIL)(T&QQ T|l)(REPEAT T|l(T#QQ)(SETQ TO1j(SSNAME T|%1(SETQ Tj0(+ Tj0 1)))T?1j(ENTGET TO1j(quote ("TOPOLT")))T%1j(T$&j T?1j)T0#| NIL T&0& NIL Tj0| NIL)(COND((T#?@ T?1j)(SETQ T0j&(T$&1 TO1j))(IF T0j&(SETQ T&#@(APPEND T&#@(LIST T0j&)))))((/=(T$Oj T%1j)NIL)(IF(/=(T@1j T?1j)2)(PROGN(SETQ T&0&(TOOj T?1j)T?|j(T%Oj(T1&j 70 T?1j)))(IF(OR(= T?|j 0)(= T?|j 4))(SETQ T0#|(T1$&(T0Q& T?1j)T&0&)Tj0| T))(IF(OR(= T?|j 1)(= T?|j 2))(SETQ T0#|(T&$&(T&l&(T0Q& T?1j)T&0& Tll&)))))))((= T%1j"LINE")(SETQ T@?&(T#$&(T%&j 10 T?1j T?l1)NIL)TQ?&(T#$&(T%&j 11 T?1j T?l1)NIL)T0#|(APPEND T0#|(LIST T@?&)(LIST TQ?&))Tj0| T))((= T%1j"ARC")(SETQ T0#|(T&$&(TQO& TO1j Tll& T))))((= T%1j"CIRCLE")(SETQ T&0& T T0#|(T&$&(T|$& TO1j Tll& NIL 0))))((= T%1j"ELLIPSE")(IF(EQUAL(+(T1&j 41 T?1j)Tj%j)(T1&j 42 T?1j)1E-8)(SETQ T&0& T))(SETQ T0#|(T&$&(T$O& TO1j Tll& 1000)))))(IF T0#|(PROGN(SETQ T@0| T T$0j(T%$j T?1j 256 T))(IF(< T$0j 0)(SETQ T1jl(STRCAT"x"(ITOA(ABS T$0j))))(SETQ T1jl(STRCAT"o"(ITOA T$0j))))(IF T&0&(PROGN(SETQ Tl1O""TQ1O""T|#|""T%#|"")(IF(AND T|1|(OR Tj#| T@#|))(PROGN(SETQ T|#$(T@Oj TO1j 0.0 0.0))(IF Tj#|(SETQ T|#|(STRCAT(RTOS(T&j(T1(CAR T|#$)Tj0l))2 Tj0l)T@0l)))(IF T@#|(SETQ T%#|(STRCAT(RTOS(TQj(T1(TQ$& T0#| T&0&)T%#l))2 T%#l)T?0l)))))(IF(AND T|1| T?#|)(PROGN(SETQ T#|0(T|1j T?1j"NMP")T0|0(Tj&j(Tl&j T#|0)))(IF T0|0(SETQ Tl1O(T1&j 1 T0|0)))))(IF(AND T|1| T%1|)(PROGN(SETQ T#|0(T|1j T?1j"NRP")T0|0(Tj&j(Tl&j T#|0)))(IF T0|0(SETQ TQ1O(T1&j 1 T0|0)))))(Tllj(LIST(STRCAT"ENT_POLYGON"TQjj T|l@ TQ1O T|l@ TQjj T|l@ Tl1O T|l@ TQjj T|#| TQjj T%#| TQjj T1jl TQjj"2.0"TQjj T?0|))))(PROGN(IF(AND T|1| T@#|)(SETQ T%#|(STRCAT(RTOS(TQj(T1(TQ$& T0#| T&0&)T%#l))2 T%#l)T?0l))(SETQ T%#|""))(Tllj(LIST(STRCAT"ENT_PATHLIN"TQjj TQjj TQjj TQjj T%#| TQjj T1jl TQjj"2.0"TQjj T?0|)))))(SETQ T|&& 0)(REPEAT(LENGTH T0#|)(SETQ T0@(NTH T|&& T0#|))(IF Tj0|(SETQ T0j&(T$$& T0@ T))(SETQ T0j& NIL))(IF T0j&(SETQ T1@j(CADDR T0j&))(SETQ TQ0|(+ TQ0| 1)T1@j(STRCAT"x"(ITOA TQ0|))))(Tllj(LIST(Tjjj T1@j T0@ 9 NIL TQjj)))(SETQ T|&&(+ T|&& 1))))))(IF T&#@(PROGN(SETQ T@0| T)(Tllj(LIST(STRCAT"ENT_GRP_PTS"TQjj T|l@"Points: "T$#| T|l@ TQjj TQjj TQjj TQjj"ffffffff"TQjj TQjj"0")))(SETQ T|&& 0)(REPEAT(LENGTH T&#@)(SETQ T0j&(NTH T|&& T&#@))(SETQ T0@(LIST(CAR T0j&)(CADR T0j&)(ATOF(CADDDR T0j&)))T1@j(CADDR T0j&))(Tllj(LIST(Tjjj T1@j T0@ 9 NIL TQjj)))(SETQ T|&&(+ T|&& 1)))))(T%Qj)(T0QQ)(IF T@0|(STARTAPP(STRCAT T?&0" "T|l@"DGE"T|l@" "T|l@ T$#| T|l@" "T|l@(ITOA T$1|)T|l@" "T|l@(T#| TO1|)T|l@" "T|l@(T#| T1#|)T|l@" "T|l@ TO#| T|l@" "T|l@ TQjj T|l@" "T|l@ T01| T|l@" "T|l@(RTOS Tl0| 2 4)T|l@)))(command-s"._SELECT"T|%1""))))))(TlO@ 144""))(TjjQ))
(defun C:TRCOO(/ T&0| T10| T#0| T00| T$0| TO0| T&| T@%1 T$OO T0OO T|0| T%l0 TQjj T|l@ Tl0| T|%$ T@jj T#@@)(SETQ T|%$(GETVAR"WORLDUCS"))(T?QQ(quote (("CLOSEFIS")("UCS"))))(SETQ T#@@ 53 TQjj(T#ll)T|l@(CHR 34)T@jj 1 Tl0| 0.0)(SETQ T&|(T#Ql 15)T&0|(T$Ql T&|""13)T10|(T|Ql T&| 1 14)T#0|(Tlll T&| NIL 15)T00|(T|Ql T&| 2 16)T$0|(Tlll T&| T 17)TO0|(Tlll T&| NIL 19))(QQSE T?&0"IGT""F")(QQEC)(IF(/= T&0|"")(PROGN(IF(= T|%$ 0)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(T@@@(T%l T#@@ 1))0 T?Q@""))T%@@)(T0?Q TO?Q))))(SETQ T@%1(T%|1 T T))(IF(T01@ T@%1)(PROGN(SETQ T|0|(T@@@(T%l T#@@ 2)))(IF TO0|(PROGN(SETQ T#@@ 251)(Tj@@(T@@@(T%l T#@@ 1))0"")(INITGET 1)(SETQ Tl0|(GETREAL(T$j@(Tl@@(T%l T#@@ 1))0"""")))(IF(NULL Tl0|)(SETQ Tl0| 0.0))))(SETQ T$OO(STRCAT(GETVAR"DWGPREFIX")(TO@j(GETVAR"DWGNAME"))))(IF(/= T%lj 5)(SETQ T$OO(STRCAT T$OO".geo")))(SETQ T0OO(T0lj(LIST"geo""neh""xyz""csv")))(SETQ T%l0(GETFILED T|0| T$OO T0OO 5))(IF T%l0(PROGN(IF(= T00| 1)(SETQ T@jj 0))(T@&0 T%l0 T@%1 9 T@jj)(STARTAPP(STRCAT T?&0" "T|l@"TCO"T|l@" "T|l@(ITOA T10|)T|l@" "T|l@(T#| T#0|)T|l@" "T|l@ T%l0 T|l@" "T|l@ TQjj T|l@" "T|l@(ITOA T11l)T|l@" "T|l@ T&0| T|l@" "T|l@(RTOS Tl0| 2 4)T|l@)))))))(TlO@ 144""))(TjjQ))
(defun C:TIMG(/ T1$0 T%## TQO# Tl$# TlO# T&O# T1O T%0| T?$| Tj$| T|0# T@$| TQ$| Tl$| Tj0 T%% T??j T&$| Tj|# T%%l T0&| T1$| T#$| T#@@)(T?QQ(quote (("DRAWSAG")("CLOSEFIS")("IMAGEFRAME")("VIEW"))))(SETQ T#@@ 206 T%## NIL T1$0(SSADD)T#$| NIL T%%l NIL T0&| T T1$| NIL)(SETQ T@|#(T&Qj TO00 NIL NIL NIL))(SETQ T&$|(T?|#))(SETQ Tj|# 0)(IF(> T&$| 0)(PROGN(T@lj TO00"w")(SETQ T%% 0)(REPEAT T&$|(SETQ T1O(TQ|#(SETQ T%%(+ T%% 1))))(IF T1O(PROGN(SETQ T|0#(NTH 4 T1O)T%##(Tl&j(NTH 5 T1O)))(IF T%##(PROGN(SETQ TQO#(T#0# T%##))(IF TQO#(PROGN(SETQ T@$|(NTH 2 TQO#))(IF(=(STRCASE T|0#)(STRCASE T@$|))(PROGN(SETQ Tj|#(+ Tj|# 1))(Tllj T1O)(SSADD T%## T1$0))))))))))(T%Qj)))(IF(> Tj|# 0)(PROGN(IF(NULL T0$|)(SETQ T0$| TO@@))(INITGET 2(STRCAT T$@@" "TO@@" "T|@@))(SETQ TQ$|(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 1))(ITOA Tj|#)(Tl@@(T%l T#@@ 1)))0 T0$|"")))(IF(NULL TQ$|)(SETQ TQ$| T0$|))(SETQ T0$| TQ$|)(COND((= TQ$| T$@@)(SETQ T%%l T T0&| NIL)(T@Qj TO00))((= TQ$| TO@@)(SETQ T1$| T T0&| T))((= TQ$| T|@@)(SETQ T%%l T T1$| T)))))(IF(AND(OR T0&|(= TQ$| T|@@))(T01@ T1$0))(PROGN(SETQ T??j(SSLENGTH T1$0))(WHILE(> T??j 0)(SETQ T%##(SSNAME T1$0(SETQ T??j(- T??j 1)))TQO#(T#0# T%##))(IF TQO#(T$|# T%##(NTH 2 TQO#)NIL)))))(IF(T01@ T&@Q)(QQKE T&@Q""(LIST"IMAGE")0.0 0.0 0.0 0 0 0 2))(SETQ T%## NIL)(WHILE(NULL T%%l)(IF(T01@ T&@Q)(PROGN(SETQ T%##(QQFE T&@Q"IMAGE")T#$| T)(QQEE T&@Q NIL T%## 0 0 3))(SETQ T%## NIL T#$| NIL))(IF(NULL T%##)(SETQ T%##(T#1#(T@@@(T%l T#@@ 2))(T@@@(T%l T#@@ 3))"IMAGE"T1$0)))(IF T%##(IF(T|## T%##)(PROGN(SETQ TQO#(T#0# T%##)Tl$#(Tj$# T%## NIL T))(IF(AND TQO# Tl$#)(PROGN(T#?1(TQQ1(LIST(NTH 0 Tl$#)(NTH 1 Tl$#)(NTH 2 Tl$#)(NTH 3 Tl$#)))1.0)(SETQ T%0|(T0|@ NIL))(TO%# T%## NIL)(T0#@ T%##)(PRINC(STRCAT"\n"(Tl@@(T%l T#@@ 6))" "(TO@j(NTH 0 TQO#))(T#@j(NTH 0 TQO#))))(SETQ TlO# NIL T&O# NIL T?$| T Tj$| T Tj0 0)(Tl0@)(WHILE(AND T?$| Tj$|)(SETQ Tj0(T%l Tj0 1))(SETQ T#|1(+ 5(STRLEN(ITOA Tj0))(MAX(STRLEN(T@@@(T%l T#@@ 4)))(STRLEN(Tl@@(T%l T#@@ 4))))))(SETQ T?$|(T&$@ NIL T1@Q 128(STRCAT(T@@@(T%l T#@@ 4))" / Undo")T#|1(ITOA Tj0)NIL))(IF T?$|(PROGN(IF(=(TYPE T?$|)(quote STR))(PROGN(IF(T1% T?$|)(PROGN(SETQ T?$| T Tj$| T)(TQ$@)(IF(< Tj0 2)(SETQ Tj0 0 TlO# NIL T&O# NIL)(SETQ Tj0(Tj& Tj0 2)TlO#(REVERSE(CDR(REVERSE TlO#)))T&O#(REVERSE(CDR(REVERSE T&O#))))))(SETQ T?$| NIL)))(PROGN(SETQ Tj$|(T&$@ T?$| T1@Q 128(STRCAT(Tl@@(T%l T#@@ 4))" / Undo")T#|1(ITOA Tj0)NIL))(IF Tj$|(PROGN(IF(=(TYPE Tj$|)(quote STR))(PROGN(IF(T1% Tj$|)(SETQ Tj$| T Tj0(Tj& Tj0 1))(SETQ Tj$| NIL)))(PROGN(SETQ TlO#(APPEND TlO#(LIST T?$|))T&O#(APPEND T&O#(LIST Tj$|)))(T10@ T?$| Tj$|)))))(IF(NULL Tj$|)(PROGN(INITGET 2(STRCAT T%@@" "T?Q@))(IF(/=(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 5))" "(ITOA Tj0)" "(Tl@@(T%l T#@@ 5)))0 T%@@""))T?Q@)(SETQ Tj$| T Tj0(Tj& Tj0 1))))))))))(Tl$@)(REDRAW)(T|#@ T%##)(TO%# T%## T)(T1%@ T%0| NIL)(SETQ T%0| NIL)(IF(AND TlO#(>(LENGTH TlO#)0))(PROGN(IF T0&|(T@lj TO00"a")(T@lj TO00"w"))(SETQ T0&| T)(T@O# T%## TQO# Tl$# TlO# T&O# NIL 7 NIL)(T%Qj)(IF(NULL T#$|)(PROGN(IF(NULL T$$|)(SETQ T$$| T?Q@))(INITGET 2(STRCAT T%@@" "T?Q@))(SETQ Tl$|(GETKWORD(T$j@(T@@@(T%l T#@@ 6))0 T$$|"")))(IF(NULL Tl$|)(SETQ Tl$| T$$|))(SETQ T$$| Tl$| T%%l NIL)(IF(= Tl$| T?Q@)(SETQ T%%l T)))(IF(NOT(T01@ T&@Q))(SETQ T%%l T)))(T$|# T%##(NTH 2 TQO#)NIL)(SSADD T%## T1$0)(SETQ T1$| T T%## NIL)))))))(SETQ T%%l T)))(IF T1$|(PROGN(TlOl T#l0)(QQSE T?&0"IMG"Tj&0(ITOA T|lj))(IF(QQEC)(T%#0))))(TjjQ))
(defun C:CHIMG(/ T1$0 T%## TQO# Tl$# T%% T1$| T#@@)(T?QQ(quote (("CLOSEFIS")("IMAGEFRAME"))))(SETQ T#@@ 212 T1$| NIL)(IF(T01@ T&@Q)(QQKE T&@Q""(LIST"IMAGE")0.0 0.0 0.0 0 0 0 2))(IF(T01@ T&@Q)(SETQ T1$0 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1$0(SSGET(LIST(CONS 0"IMAGE"))))))(IF(T01@ T1$0)(PROGN(T@lj T%jQ"w")(SETQ T%%(SSLENGTH T1$0))(WHILE(> T%% 0)(SETQ T%##(SSNAME T1$0(SETQ T%%(1- T%%)))TQO#(T#0# T%##)Tl$#(Tj$# T%## T NIL))(IF(AND TQO# Tl$#)(PROGN(SETQ T1$| T)(T@O# T%## TQO# Tl$# NIL NIL NIL 7 NIL)(T$|# T%##(NTH 2 TQO#)NIL))))(T%Qj)))(IF T1$|(PROGN(TlOl T#l0)(QQSE T?&0"IMH")(IF(QQEC)(T|00 1))))(TjjQ))
(defun C:JOINIMG(/ T1$0 TO$| T%## TQO# Tl$# T%% T??j T1$| T#@@)(T?QQ(quote (("CLOSEFIS")("IMAGEFRAME"))))(SETQ T#@@ 207 T1$| NIL)(SETQ TO$|(T#1#(Tl@@(T%l T#@@ 1))(T@@@(T%l T#@@ 2))"IMAGE"NIL))(IF(AND TO$|(Tj$# TO$| NIL NIL))(PROGN(T0#@ TO$|)(Tj@@(Tl@@(T%l T#@@ 2))0"")(SETQ T1$0(SSGET(LIST(CONS 0"IMAGE"))))(QQEE T1$0 NIL TO$| 0 0 3)(T|#@ TO$|)(IF(T01@ T1$0)(PROGN(T@lj T%jQ"w")(SETQ T??j(SSLENGTH T1$0)T%% -2)(WHILE(< T%% T??j)(SETQ T%%(1+ T%%))(IF(= T%% -1)(SETQ T%## TO$|)(SETQ T%##(SSNAME T1$0 T%%)))(SETQ TQO#(T#0# T%##)Tl$#(Tj$# T%## T NIL))(IF(AND TQO# Tl$#)(PROGN(SETQ T1$| T)(T@O# T%## TQO# Tl$# NIL NIL NIL 7 T)(T$|# T%##(NTH 2 TQO#)NIL))))(T%Qj))(TlO@ 134""))))(IF T1$|(PROGN(QQSE T?&0"JNI")(IF(QQEC)(T|00 2))))(TjjQ))
(defun C:TRIMIMG(/ T%## TQOj T#|j TQO# Tl$# Tl1& T|$| T&j1 Tll& T%$| T?O| T0O# TjO| T#O# T1$| T#@@)(T?QQ(quote (("CLOSEFIS")("IMAGEFRAME"))))(SETQ T#@@ 207 T1$| NIL T%## NIL T0O# NIL TjO| NIL Tl1& NIL T#O# 7)(IF(T01@ T&@Q)(SETQ T%##(QQFE T&@Q"IMAGE")))(IF(NULL T%##)(SETQ T%##(T#1#(T@@@(T%l T#@@ 1))(T@@@(T%l T#@@ 2))"IMAGE"NIL)))(IF T%##(PROGN(SETQ TQO#(T#0# T%##)Tl$#(Tj$# T%## T NIL))(IF(AND TQO# Tl$#)(PROGN(SETQ T|$|(LIST(NTH 0 Tl$#)(NTH 1 Tl$#)(NTH 3 Tl$#)(NTH 2 Tl$#)))(Tl#@ T|$| 7 1)(SETQ T#@@ 213)(IF(T&0# T%##)(PROGN(SETQ T%$|(T@@@(T%l T#@@ 2)))(INITGET 2(STRCAT(T@@@(T%l T#@@ 2))" "(Tl@@(T%l T#@@ 2))))(SETQ T?O|(GETKWORD(T$j@(STRCAT(T@@@(T%l T#@@ 1))" "(T@@@(T%l T#@@ 2))"/"(Tl@@(T%l T#@@ 2)))0 T%$|"")))(IF(NULL T?O|)(SETQ T?O| T%$|))(COND((= T?O|(T@@@(T%l T#@@ 2)))(SETQ T0O# T))((= T?O|(Tl@@(T%l T#@@ 2)))(SETQ TjO| T))))(SETQ TjO| T))(IF TjO|(PROGN(SETQ TQOj(T@1#(T@@@(T%l T#@@ 3))(LIST"LWPOLYLINE""POLYLINE""CIRCLE""ELLIPSE")107))(IF TQOj(PROGN(SETQ TQOj(CAR TQOj)T#|j(Tj&j TQOj)T#O#(T%$j T#|j 256 NIL)T&j1(MAX(NTH 6 Tl$#)(NTH 7 Tl$#))Tll&(/(EXPT T&j1 2)2.0))(T0#@ TQOj)(IF T#|j(IF(T$Oj(T$&j T#|j))(SETQ Tl1&(T&l&(T0Q& T#|j)(TOOj T#|j)Tll&))(IF(=(T$&j T#|j)"CIRCLE")(SETQ Tl1&(T|$& TQOj Tll& T 1000))(IF(=(T$&j T#|j)"ELLIPSE")(SETQ Tl1&(T$O& TQOj Tll& 1000))))))(T|#@ TQOj)))))(T##@ T|$|)(IF(OR T0O#(AND TjO|(>(LENGTH Tl1&)2)))(PROGN(SETQ T1$| T)(T@lj T%jQ"w")(T@O# T%## TQO# Tl$# NIL NIL Tl1& T#O# T0O#)(T%Qj)(T$|# T%##(NTH 2 TQO#)NIL)))))))(IF T1$|(PROGN(QQSE T?&0"TRI")(IF(QQEC)(T|00 3))))(TjjQ))
(defun C:RESIMG(/ T%## TQO# Tl$# T1$| T#@@)(T?QQ(quote (("CLOSEFIS")("IMAGEFRAME"))))(SETQ T#@@ 207 T1$| NIL T%## NIL)(IF(T01@ T&@Q)(SETQ T%##(QQFE T&@Q"IMAGE")))(IF(NULL T%##)(SETQ T%##(T#1#(T@@@(T%l T#@@ 1))(T@@@(T%l T#@@ 2))"IMAGE"NIL)))(IF T%##(PROGN(SETQ TQO#(T#0# T%##)Tl$#(Tj$# T%## T NIL))(IF(AND TQO# Tl$#)(PROGN(SETQ T1$| T)(T@lj T%jQ"w")(T@O# T%## TQO# Tl$# NIL NIL NIL 7 NIL)(T%Qj)(T$|# T%##(NTH 2 TQO#)NIL)))))(IF T1$|(PROGN(QQSE T?&0"RSI")(IF(QQEC)(T|00 4))))(TjjQ))
(defun C:SAVEGEOREF(/ T1$0 T%## Tj0# TQO# Tl$# T1## Tj|Q T0@ T?|& T@Q TQQ T@O| TO$# T?O# TjO# T|$# T%$# TQO| TlO| T&O| T1O| T$%& T%% T??j T0l| T#O| T#@@)(T?QQ(quote (("IMAGEFRAME")("CLOSEFIS"))))(SETQ T#@@ 212 T0l| T)(IF(T01@ T&@Q)(QQKE T&@Q""(LIST"IMAGE")0.0 0.0 0.0 0 0 0 2))(IF(T01@ T&@Q)(SETQ T1$0 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1$0(SSGET(LIST(CONS 0"IMAGE"))))))(IF(T01@ T1$0)(PROGN(SETQ TQO|(Tl@@(T%l T#@@ 1))T??j(SSLENGTH T1$0)T%% 0)(WHILE(AND(< T%% T??j)T0l|)(SETQ T%##(SSNAME T1$0 T%%)T%%(+ T%% 1))(SETQ TQO#(T#0# T%##)Tl$#(Tj$# T%## T NIL))(IF(AND TQO# Tl$#)(PROGN(SETQ T1##(TO##(NTH 0 TQO#)))(IF T1##(PROGN(SETQ T#O| 6)(IF(FINDFILE T1##)(PROGN(SETQ T#@@ 312)(SETQ T#O|(QQMC(STRCAT(T@@@(T%l T#@@ 1))T1##(Tl@@(T%l T#@@ 1)))))(IF(= T#O| 2)(SETQ T0l| NIL))))(IF(= T#O| 6)(PROGN(SETQ Tj0#(Tj&j T%##)Tj|Q(NTH 0 Tl$#)TO$#(NTH 5 Tl$#)T?O#(NTH 6 Tl$#)TjO#(NTH 7 Tl$#)T|$#(NTH 8 Tl$#)T%$#(NTH 9 Tl$#))(SETQ T@O|(POLAR Tj|Q T|$#(/ T?O# 2.0))T@O|(POLAR T@O| T%$#(-(* TjO# TO$#)(/ TjO# 2.0))))(SETQ T?|&(LIST 0.0 0.0)T@Q(POLAR T?|& T|$# T?O#)TQQ(POLAR T?|& T%$# TjO#)TlO|(CAR T@Q)T1O|(CADR T@Q)T&O|(*(CAR TQQ)-1.0)T$%&(*(CADR TQQ)-1.0))(PRINC(STRCAT"\n"(NTH 2 TQO#)" --> "TQO|": "T1##"\n"))(T@lj T1##"w")(Tllj(LIST(LIST TlO| 24 12)(LIST T1O| 24 12)(LIST T&O| 24 12)(LIST T$%& 24 12)(LIST(CAR T@O|)24 12)(LIST(CADR T@O|)24 12)))(IF(T&0# T%##)(PROGN(Tllj(LIST";Clipping boundary in pixels coordinates. Added for TopoLT use."))(WHILE Tj0#(SETQ T0@(T1&j 14(LIST(CAR Tj0#))))(IF T0@(Tllj(LIST(LIST(CAR T0@)24 12)(LIST(CADR T0@)24 12))))(SETQ Tj0#(CDR Tj0#)))))(T%Qj))))))))))(TjjQ))
(defun C:IMGGEOREF(/ T?00 T1$0 T%## Tj0# TQO# T0O| Tl00 T$O| TQ00 T1## TlQj TOQj Tj|Q T0$# T|Q T0@ T?|& T&$# T1$# T#$# TOO| TO$# T$$# T?O# TjO# T|O| TlO| T&O| T%O| T1O| T$%& TO@ T|@ T%% T1|# Tj0 T#@@)(T?QQ(quote (("IMAGEFRAME"))))(SETQ T#@@ 212)(SETQ T?00(Tlll(T#Ql 13)T 7))(SETQ T$O| NIL TQ00 NIL)(IF(T01@ T&@Q)(QQKE T&@Q""(LIST"IMAGE")0.0 0.0 0.0 0 0 0 2))(IF(T01@ T&@Q)(SETQ T1$0 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T1$0(SSGET(LIST(CONS 0"IMAGE"))))))(IF(T01@ T1$0)(PROGN(SETQ T%%(SSLENGTH T1$0))(WHILE(> T%% 0)(SETQ T%##(SSNAME T1$0(SETQ T%%(1- T%%)))TQO#(T#0# T%##))(IF TQO#(PROGN(SETQ T1##(T&##(NTH 0 TQO#)))(IF(NULL T1##)(SETQ T1##(GETFILED(Tl@@(T%l T#@@ 1))(TO##(NTH 0 TQO#))"*"4)))(IF T1##(SETQ T1##(FINDFILE T1##)))(IF T1##(PROGN(SETQ T0O| NIL TlQj(OPEN T1##"r"))(WHILE(SETQ TOQj(READ-LINE TlQj))(SETQ TOQj(T@0(T0# TOQj)",""."))(IF(AND(/=(SUBSTR TOQj 1 1)";")(T|% TOQj))(SETQ T0O|(APPEND T0O|(LIST(ATOF TOQj))))))(CLOSE TlQj)(IF(OR(NULL T0O|)(<(LENGTH T0O|)6))(TlO@ 141 T1##)(PROGN(PRINC(STRCAT"\n"(NTH 2 TQO#)" <-- "(Tl@@(T%l T#@@ 1))": "T1##"\n"))(SETQ Tj0#(Tj&j T%##)TQ00(APPEND TQ00(LIST(LIST 2(NTH 0 TQO#)""(NTH 2 TQO#)Tj0#)))TOO|(T&1(T%&j 10 Tj0# NIL))T$$#(CAR(T1&j 13 Tj0#))TO$#(CADR(T1&j 13 Tj0#))TlO|(NTH 0 T0O|)T1O|(NTH 1 T0O|)T&O|(NTH 2 T0O|)T$%&(NTH 3 T0O|)T|O|(NTH 4 T0O|)T%O|(NTH 5 T0O|))(SETQ TO@(+ T|O|(* TlO| -0.5)(* T&O|(- TO$# 0.5)))T|@(+ T%O|(* T1O| -0.5)(* T$%&(- TO$# 0.5)))Tj|Q(LIST TO@ T|@ TOO|)T0$#(LIST TlO| T1O|)T|Q(LIST(* T&O| -1.0)(* T$%& -1.0)))(T##j Tj0#(LIST(LIST 10 Tj|Q)(LIST 11 T0$#)(LIST 12 T|Q)))(IF(>=(LENGTH T0O|)10)(PROGN(SETQ T1|#(-(LENGTH T0O|)6))(IF(NULL(TOl T1|#))(SETQ T1|#(- T1|# 1)))(SETQ Tl00 NIL Tj0 4)(REPEAT(Tl(/ T1|# 2))(SETQ Tj0(+ Tj0 2)T0@(LIST(NTH Tj0 T0O|)(NTH(+ Tj0 1)T0O|))Tl00(APPEND Tl00(LIST T0@))))(Tl%# T%## Tl00)))(IF T?00(TQ%# T%##))(SETQ T?|&(LIST 0.0 0.0)T?O#(DISTANCE T?|& T0$#)TjO#(DISTANCE T?|& T|Q)T&$#(POLAR Tj|Q(ANGLE T?|& T0$#)(* T$$# T?O#))T1$#(POLAR Tj|Q(ANGLE T?|& T|Q)(* TO$# TjO#))T#$#(POLAR T&$#(ANGLE T?|& T|Q)(* TO$# TjO#)))(SETQ T$O|(APPEND T$O|(LIST Tj|Q T&$# T1$# T#$#))))))))))))(IF TQ00(SETQ T$00(APPEND T$00(LIST TQ00))))(IF T$O|(T#?1(TQQ1 T$O|)1.0))(TjjQ))
(defun C:IMGOFF(/)(T?QQ(quote (("IMAGEFRAME"))))(Tl$0 NIL)(TjjQ))
(defun C:IMGON(/)(T?QQ(quote (("IMAGEFRAME"))))(Tl$0 T)(TjjQ))
(defun C:UIMG(/ TQ00 T?|| Tj|| T@|| TQ## T&00 T|0# T%## Tj0# TQ|| Tl|| T$$# TO$# T&|| T1|| T$@j T#|| T#@@)(T?QQ NIL)(SETQ T#@@ 216)(IF T$00(PROGN(SETQ TQ00(LAST T$00)T$00(CDR(REVERSE T$00))T$00(REVERSE T$00)TQ00(REVERSE TQ00))(WHILE TQ00(SETQ T0||(NTH 0(CAR TQ00))TQ##(NTH 1(CAR TQ00))T&00(NTH 2(CAR TQ00))T|0#(NTH 3(CAR TQ00))Tj0#(NTH 4(CAR TQ00))T$$#(CAR(T1&j 13 Tj0#))TO$#(CADR(T1&j 13 Tj0#)))(COND((= T0|| 0)(IF(FINDFILE T&00)(PROGN(SETQ T%##(CDR(CAR Tj0#)))(T$|# T%## T|0# NIL)(IF(FINDFILE TQ##)(QQFD TQ##))(SETQ T$@j(T#@j T&00)TQ##(SUBSTR T&00 1(-(STRLEN T&00)(STRLEN T$@j))))(IF(FINDFILE TQ##)(QQFD TQ##))(IF(FINDFILE T&00)(QQFR T&00 TQ##))(Tj%# T%## T|0# TQ## TQ## T$$# TO$#)(T##j Tj0# NIL)(T$|# T%## T|0# T))))((= T0|| 1)(SETQ Tl||(T1&j 5 Tj0#))(ENTMAKE Tj0#)(SETQ Tj0#(Tj&j(ENTLAST)))(IF Tj0#(PROGN(IF(ASSOC 360 Tj0#)(PROGN(SETQ T&||(T1&j 360 Tj0#)T1||(Tj&j T&||))(IF T1||(T##j T1||(LIST(LIST 330(T1&j -1 Tj0#)))))))(SETQ T%##(CDR(CAR Tj0#))TQ||(T1&j 5 Tj0#)Tj|| T$00 T$00 NIL)(WHILE Tj||(SETQ T?||(CAR Tj||)T@|| NIL)(WHILE T?||(SETQ T#||(CAR T?||)Tj0#(NTH 4 T#||))(IF(=(T1&j 5 Tj0#)Tl||)(SETQ Tj0#(SUBST(CONS -1 T%##)(ASSOC -1 Tj0#)Tj0#)Tj0#(SUBST(CONS 5 TQ||)(ASSOC 5 Tj0#)Tj0#)T#||(APPEND(REVERSE(CDR(REVERSE T#||)))(LIST Tj0#))))(SETQ T@||(APPEND T@||(LIST T#||))T?||(CDR T?||)))(SETQ T$00(APPEND T$00(LIST T@||))Tj||(CDR Tj||))))))((= T0|| 2)(T##j Tj0# NIL)))(SETQ TQ00(CDR TQ00)))(IF(= T|lj 1)(REDRAW)))(Tj@@(T@@@(T%l T#@@ 1))0""))(TjjQ))
(defun C:CNN(/ T$|| TO|| T||| T%|| T?%| Tj%| T@%| TQ%| Tl%| T&%| T1%| T#%| T0%| T$%| TO%| T|%| T|%1 T&| T%%| T??% Tj?% T@?% TQ?% Tl?% TO&# T&?% T0l| T#@@)(T?QQ(quote (("PLINEWID")("PLINETYPE")("SPLINESEGS")("TEXTSTYLE")("TEXTSIZE")("VIEW"))))(SETQ T#@@ 221)(SETQ T&|(T#Ql 14)T$||(Tlll T&| T 4)TO||(Tl1Q(T$Ql T&| TQ1Q 5))T|||(*(Tjll T&| 1.8 6)T&0l)T%||(*(Tjll T&| 100.0 7)T&0l)T?%|(*(Tjll T&| 0.25 8)T&0l)Tj%|(*(Tjll T&| 0.0 9)T&0l)T@%|(Tjll T&| 0.25 10)TQ%|(Tjll T&| 0.0 11)Tl%|(T|Ql T&| 4 12)T&%|(Tlll T&| T 13)T1%|(Tlll T&| NIL 14)T#%|(Tjll T&| 0.75 15)T0%|(T|Ql T&| 0 16)T$%|(T|Ql T&| 0 17)TO%|(T|Ql T&| 1 18)T|%|(T|Ql T&| 0 19))(IF(EQUAL T@%| 0.0 1E-8)(SETQ T@%|(T1@ 0 T$#l 0.25)))(SETVAR"PLINETYPE"2)(SETVAR"PLINEWID"0.0)(SETVAR"SPLFRAME"0)(SETVAR"SPLINETYPE"(+ TO%| 5))(SETQ T%%|(GETVAR"SPLINESEGS"))(IF(AND(>= T%%| -3)(<= T%%| 8))(PROGN(SETQ T%%| -4)(SETVAR"SPLINESEGS"T%%|)))(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(SETQ T&?% NIL)(IF(T01@ T|%1)(SETQ T&?%(QQLF T|%1)))(SETQ T0l| NIL)(IF T&?%(PROGN(SETQ T0l| T TQ?%(QQGM)Tl?%(QQGZ)T??%(TQ(+(/(- TQ?% TQ%|)T@%|)0.5))Tj?%(TQ(-(/(- Tl?% TQ%|)T@%|)0.5))T@?%(T%l(Tl(- Tj?% T??%))1))(IF(>= T@?% 1000)(PROGN(SETQ TO&#(STRCAT" Zmin="(RTOS TQ?% 2 TO#l)T#0l"; Zmax="(RTOS Tl?% 2 TO#l)T#0l"; dZ="(RTOS(- Tl?% TQ?%)2 TO#l)T#0l"; E="(RTOS T@%| 2 TO#l)T#0l"; Nsect="(ITOA T@?%)";"))(T#O@ 0 TO&# NIL)(INITGET 2(STRCAT T%@@" "T?Q@))(IF(=(GETKWORD(T$j@(Tl@@(T%l T#@@ 1))0 T%@@""))T?Q@)(SETQ T0l| NIL))))(IF(< T@?% 1)(PROGN(SETQ TO&#(STRCAT" dZ="(RTOS(- Tl?% TQ?%)2 TO#l)T#0l"; Nsect=0;"))(T#O@ 0 TO&# NIL)(SETQ T0l| NIL)))(IF T0l|(PROGN(Tl$j TO@l)(IF(= Tl%| 0)(SETQ T$|| NIL))(IF(AND T$||(> Tl%| 0))(PROGN(SETVAR"TEXTSTYLE"TO||)(SETVAR"TEXTSIZE"T|||)))(QQPF T$|| TO||(FLOAT T#%|)(FLOAT T|||)(FLOAT T%||)(FLOAT T?%|)(FLOAT Tj%|)(FLOAT T@%|)(FLOAT TQ%|)Tl%| T&%| T1%| T0%| T$%| TO#l(+ TO%| 2)T%%| T|%|)))))(TjjQ))
(defun C:PROJM3D(/ T|%1 T&?% T#@@)(T?QQ NIL)(SETQ T#@@ 240)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(SETQ T&?% NIL)(IF(T01@ T|%1)(SETQ T&?%(QQLF T|%1)))(IF T&?%(PROGN(Tj@@(Tl@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))(IF(T01@ T|%1)(QQPM T|%1))))(TjjQ))
(defun C:DRPLN(/ T1?% T#?% T0?% T$?% TO?% T|?% T%?% T?j% Tjj% T@j% TQj% Tlj% T&j% T1j% T#j% T0j% T$j% T1Q| TOj% T|j% T%j% Tl?l T$@# Tj|Q Tj?Q T@?Q T?@% Tj@% T&11 T@@% T&| TQ@% Tl@% T?Q T&@% T1@% T#@% T0@% T$@% T#@@)
(defun TO@%(Tj@& T@@& T|@% T%@% T?Q% TjQ% T@Q% T|%1 / T@Q TQQ T$%l T$?#)(SETQ TQQ Tj@& T@Q(POLAR TQQ(+ T#%l TjQ%)T?Q%)T$%l(POLAR TQQ TjQ% T?Q%))(command-s"._PLINE"T@Q TQQ T$%l T@Q%)(SSADD(ENTLAST)T|%1)(SETQ TQQ T@@& T@Q(POLAR TQQ(+ PI TjQ%)T?Q%)T$%l(POLAR TQQ(+ T#%l TjQ%)T?Q%))(command-s"._PLINE"T@Q TQQ T$%l T@Q%)(SSADD(ENTLAST)T|%1)(SETQ TQQ T|@% T@Q(POLAR TQQ(+ T%& TjQ%)T?Q%)T$%l(POLAR TQQ(+ PI TjQ%)T?Q%))(command-s"._PLINE"T@Q TQQ T$%l T@Q%)(SSADD(ENTLAST)T|%1)(SETQ TQQ T%@% T@Q(POLAR TQQ TjQ% T?Q%)T$%l(POLAR TQQ(+ T%& TjQ%)T?Q%))(command-s"._PLINE"T@Q TQQ T$%l T@Q%)(SSADD(ENTLAST)T|%1)T|%1)(T?QQ(quote (("PLINEWID")("PLINETYPE")("INSNAME"))))(SETQ T#@@ 0 TOj%(T@@@(T%l T#@@ 2))T|j%(ATOI(Tl@@(T%l T#@@ 2))))(SETQ T#@@ 222)(SETQ T&|(T#Ql 12)T1?%(T$Ql T&|"None"0)T0?%(T|Ql T&| 0 1)T$?%(Tjll T&| 8.2677 2)TO?%(Tjll T&| 11.6929 3)T%?%(Tjll T&| 0.0 4)T?j%(Tjll T&| 0.0 5)Tjj%(Tjll T&| 0.0 6)T@j%(Tjll T&| 0.0 7)TQj%(Tjll T&| 20.0 8)Tlj%(Tjll T&| 5.0 9)T&j%(Tjll T&| 5.0 10)T1j%(Tjll T&| 5.0 11)T#j%(Tjll T&| 0.5 12)T0j%(T$Ql T&| TOj% 13)T$j%(T|Ql T&| T|j% 14)T|?%(Tjll T&| 0.07 16)T#?%(T$Ql T&|"A4"17)T1Q|(T$Ql T&| Tl$O 18))(SETVAR"PLINETYPE"2)(SETVAR"PLINEWID"0.0)(Tl$j T?Ql)(SETQ Tl@%(T0|Q T0j% Tl%Q))(SETQ T#|1(MAX(STRLEN(T@@@(T%l T#@@ 1)))(STRLEN(Tl@@(T%l T#@@ 1)))))(IF(= T0?% 0)(SETQ T@@%"Portrait")(SETQ T@@%"Landscape"))(Tj@@(T@@@(T%l T#@@ 1))T#|1(STRCAT T1?%", "T@@%))(Tj@@(Tl@@(T%l T#@@ 1))T#|1 T#?%)(SETQ Tj|Q(GETVAR"VIEWCTR")Tj|Q(T?1 Tj|Q)T%j%(SSADD)T$?%(T@@ 1 T$#l T$?%)TO?%(T@@ 1 T$#l TO?%)T|?%(T@@ 1 T$#l T|?%)T%?%(T@@ 1 T$#l T%?%)T?j%(T@@ 1 T$#l T?j%)Tjj%(T@@ 1 T$#l Tjj%)T@j%(T@@ 1 T$#l T@j%)T|?%(/ T|?% 2.0)T%?%(+ T%?% T|?%)T?j%(+ T?j% T|?%)Tjj%(+ Tjj% T|?%)T@j%(+ T@j% T|?%))(SETQ T&@%(-(- T$?% T%?%)T?j%)T1@%(-(- TO?% T@j%)Tjj%))(IF(= T$#l 0)(PROGN(SETQ T?Q(-(TQ T$?%)T$?%))(IF(<(ABS T?Q)0.27)(SETQ T$?%(+ T$?% T?Q)))(SETQ T?Q(-(TQ TO?%)TO?%))(IF(<(ABS T?Q)0.27)(SETQ TO?%(+ TO?% T?Q)))))(SETQ T#@%(-(- T$?% TQj%)Tlj%)T0@%(-(- TO?% T1j%)T&j%))(SETQ T&@%(* T&@% T&0l)T1@%(* T1@% T&0l)T#@%(* T#@% T&0l)T0@%(* T0@% T&0l)T$?%(* T$?% T&0l)TO?%(* TO?% T&0l)T%?%(* T%?% T&0l)Tjj%(* Tjj% T&0l)TQj%(* TQj% T&0l)T&j%(* T&j% T&0l)T#j%(* T#j% T&0l))(SETQ T?Q(* T&$l T&0l)Tj?Q Tj|Q T@?Q(POLAR Tj?Q 0.0 T$?%)T?@%(POLAR T@?Q T#%l TO?%)Tj@%(POLAR T?@% PI T$?%)T%j%(TO@% Tj?Q T@?Q T?@% Tj@% T?Q 0.0""T%j%))(SETQ TQ@%(GETVAR"CECOLOR"))(SETVAR"CECOLOR""1")(SETQ T?Q(* TQ$l T&0l)Tj?Q(POLAR(POLAR Tj|Q 0.0 T%?%)T#%l Tjj%)T@?Q(POLAR Tj?Q 0.0 T&@%)T?@%(POLAR T@?Q T#%l T1@%)Tj@%(POLAR T?@% PI T&@%)T%j%(TO@% Tj?Q T@?Q T?@% Tj@% T?Q PI"_C"T%j%))(SETVAR"CECOLOR"TQ@%)(SETQ Tj?Q(POLAR(POLAR Tj|Q 0.0 TQj%)T#%l T&j%)T@?Q(POLAR Tj?Q 0.0 T#@%)T?@%(POLAR T@?Q T#%l T0@%)Tj@%(POLAR T?@% PI T#@%))(command-s"._PLINE"Tj?Q"_W"T#j% T#j% T@?Q T?@% Tj@%"_C")(SSADD(ENTLAST)T%j%)(T?## T%j%(T@1 Tj|Q 0.0))(SETQ T%j%(SSADD))(SSADD(ENTLAST)T%j%)(SETQ Tl?l NIL)(IF Tl@%(PROGN(SETQ T&11 Tj?Q)(COND((= T$j% 0)(SETQ T&11 Tj?Q))((= T$j% 1)(SETQ T&11(T&& Tj?Q T@?Q)))((= T$j% 2)(SETQ T&11 T@?Q))((= T$j% 3)(SETQ T&11(T&& T@?Q T?@%)))((= T$j% 4)(SETQ T&11 T?@%))((= T$j% 5)(SETQ T&11(T&& T?@% Tj@%)))((= T$j% 6)(SETQ T&11 Tj@%))((= T$j% 7)(SETQ T&11(T&& Tj@% Tj?Q))))(T?|Q Tl@% T&11 T&0l T&0l T&0l""NIL)(SETQ Tl?l(ENTLAST))(SSADD Tl?l T%j%)(TQ?l Tl?l T1Q|(TO% T#1l))))(Tj@@(T@@@(T%l T#@@ 2))0"")(command-s"._MOVE"T%j%""Tj|Q)(SETVAR"OSMODE"T1@Q)(command-s PAUSE)(SETVAR"OSMODE"0)(IF Tl?l(PROGN(SETQ T$@% NIL)(IF(TQOQ(CDR(Tj&j Tl?l)))(PROGN(SETQ T$@#(ENTNEXT Tl?l))(WHILE(AND(NULL T$@%)(NULL(TO&j(Tj&j T$@#)"SEQEND")))(IF(TO&j(Tj&j T$@#)"ATTRIB")(SETQ T$@% T))(SETQ T$@#(ENTNEXT T$@#)))))(IF T$@%(command-s"._DDATTE"Tl?l))))(TjjQ))
(defun C:M3D(/ TQQ% T@%1 TlQ% T&Q% T1Q% T#Q% T0Q$ T0Q% T$0j T%%l T#@@)(T?QQ NIL)(SETQ T#@@ 217 T%%l NIL T0Q$ 0 T0Q% 0 T1Q% NIL T#Q% 0.0 T@%1(T%|1 T NIL))(SETQ TQQ%(T$Ql(T#Ql 14)"1"20))(IF(T01@ T@%1)(PROGN(SETQ T0Q$(SSLENGTH T@%1))(SETQ T#Q%(GETREAL(T$j@(T@@@(T%l T#@@ 1))0"0.000""")))(IF(NULL T#Q%)(SETQ T#Q% 0.0))))(Tj@@(T@@@(T%l T#@@ 2))0"")(SETQ TlQ%(SSGET))(IF(T01@ TlQ%)(PROGN(QQEE TlQ%(LIST(T&Ol 4)(T&Ol 6))NIL 0 0 1)(IF(T01@ TlQ%)(SETQ T0Q%(SSLENGTH TlQ%)))))(IF(AND(= T0Q$ 0)(= T0Q% 0))(SETQ T%%l T))(IF(NULL T%%l)(PROGN(SETQ T1Q%(ENTSEL(T$j@(T@@@(T%l T#@@ 3))0"""")))(IF T1Q%(PROGN(SETQ T1Q%(Tj1# T1Q%))(IF(NULL T1Q%)(PROGN(TlO@ 107"")(SETQ T%%l T)))))))(T0#@ T1Q%)(IF(NULL T%%l)(PROGN(T@lj T%jQ"w")(Tllj(LIST"MAKEFILE"))(T%Qj)))(IF(NULL T%%l)(PROGN(SETQ T&Q%(SSADD))(IF T1Q%(SSADD T1Q% T&Q%))(SETQ T%%l(NOT(QQWE NIL T&Q% T%jQ T1?@"ENT_LIM""END_LIM"1 0 0 0 0.0)))))(IF(NULL T%%l)(PROGN(IF(NULL TlQ%)(SETQ TlQ%(SSADD)))(SETQ T%%l(NOT(QQWB TlQ% T%jQ T1?@"ENT_BRK""END_BRK"1 0(FLOAT T0OQ))))))(IF(NULL T%%l)(PROGN(IF(NULL T@%1)(SETQ T@%1(SSADD)))(SETQ T%%l(NOT(QQWE NIL T@%1 T%jQ T1?@"ENT_PNT""END_PNT"1 0 1 1(FLOAT T#Q%))))))(T|#@ T1Q%)(IF(NULL T%%l)(PROGN(SETQ T$0j NIL)(IF(TBLSEARCH"LAYER"T|@l)(SETQ T$0j(T0$j T|@l 256 NIL))(SETQ T$0j T%@l))(IF(NULL T$0j)(SETQ T$0j(T0$j(GETVAR"CLAYER")256 NIL)))(TlOl T#l0)(QQSE T?&0"M3D"(ITOA T$0j)TQQ%)(IF(QQEC)(T#$0 1 NIL NIL))))(TjjQ))
(defun C:TRIMM3D(/ T$Q% TOQ% T|Q% T%Q% TO1j T?l% T%%l T$0j T00j T#@@)(T?QQ NIL)(SETQ T#@@ 237)(SETQ T$Q%(T$Ql(T#Ql 14)"0"0))(SETQ T$0j 256 T00j"0"T%%l NIL T%Q% NIL TOQ% NIL)(IF(T01@ T&@Q)(PROGN(SETQ TOQ% T&@Q T&@Q NIL)(QQKE TOQ%""NIL 0.0 0.0 0.0 0 0 1 4)))(IF(NULL(T01@ TOQ%))(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ TOQ%(SSGET))(QQKE TOQ%""NIL 0.0 0.0 0.0 0 0 1 4)))(IF(NULL(T01@ TOQ%))(SETQ T%%l T))(IF(NULL T%%l)(PROGN(SETQ T%Q%(Tj1#(ENTSEL(T$j@(T@@@(T%l T#@@ 2))0""""))))(IF(NULL T%Q%)(PROGN(TlO@ 107"")(SETQ T%%l T)))))(T0#@ T%Q%)(IF(NULL T%%l)(PROGN(SETQ T?l%(T&$@ NIL 0 0(T@@@(T%l T#@@ 3))0""NIL))(IF(NULL T?l%)(SETQ T%%l T))))(IF(NULL T%%l)(PROGN(T@lj T%jQ"w")(Tllj(LIST"TRIMFILE"(LIST(CAR T?l%)0 8)(LIST(CADR T?l%)0 8)))(T%Qj)))(IF(NULL T%%l)(PROGN(SETQ T|Q%(SSADD))(IF T%Q%(SSADD T%Q% T|Q%))(SETQ T%%l(NOT(QQWE NIL T|Q% T%jQ T1?@"ENT_LIM""END_LIM"1 0 0 0 0.0)))))(IF(NULL T%%l)(PROGN(IF(NULL TOQ%)(SETQ TOQ%(SSADD)))(SETQ T%%l(NOT(QQWB TOQ% T%jQ T1?@"ENT_TRM""END_TRM"1 0(FLOAT T0OQ))))))(T|#@ T%Q%)(IF(NULL T%%l)(PROGN(SETQ TO1j(QQFE TOQ% NIL))(IF TO1j(SETQ T$0j(T%$j(Tj&j TO1j)256 NIL)T00j(T1$j(Tj&j TO1j))))(QQSE T?&0"TRM"T$Q%(ITOA T$0j))(IF(QQEC)(T#$0 2 TOQ% T00j))))(TjjQ))
(defun C:JOINM3D(/ T$Q% Tjl% T@l% TlQ% TO1j T%%l TQl% Tll% T00j T#@@)(T?QQ NIL)(SETQ T#@@ 237)(SETQ T$Q%(T$Ql(T#Ql 14)"0"0))(SETQ TQl% 256 Tll% 256 T00j"0"T%%l NIL Tjl% NIL)(IF(T01@ T&@Q)(PROGN(SETQ Tjl% T&@Q T&@Q NIL)(QQKE Tjl%""NIL 0.0 0.0 0.0 0 0 1 4)))(IF(NULL(T01@ Tjl%))(PROGN(Tj@@(Tl@@(T%l T#@@ 1))0"")(SETQ Tjl%(SSGET))(QQKE Tjl%""NIL 0.0 0.0 0.0 0 0 1 4)))(IF(NULL(T01@ Tjl%))(SETQ T%%l T))(IF(NULL T%%l)(PROGN(T%#@ Tjl%)(Tj@@(Tl@@(T%l T#@@ 2))0"")(SETQ T@l%(SSGET))(QQKE T@l%""NIL 0.0 0.0 0.0 0 0 1 4)(IF(NULL(T01@ T@l%))(SETQ T%%l T))(T?0@ Tjl%)))(IF(NULL T%%l)(IF(TQ&# Tjl% T@l%)(PROGN(REDRAW)(SETQ T%%l T)(TlO@ 137""))))(IF(NULL T%%l)(PROGN(Tj@@(T@@@(T%l T#@@ -18))0"")(SETQ TlQ%(SSGET))(IF(T01@ TlQ%)(PROGN(QQEE TlQ%(LIST(T&Ol 4)(T&Ol 6))NIL 0 0 1)))))(IF(NULL T%%l)(PROGN(T@lj T%jQ"w")(Tllj(LIST"JOINFILE"))(T%Qj)))(IF(NULL T%%l)(PROGN(IF(NULL Tjl%)(SETQ Tjl%(SSADD)))(SETQ T%%l(NOT(QQWB Tjl% T%jQ T1?@"SRF_UP""END_SRF"1 0(FLOAT T0OQ))))))(IF(NULL T%%l)(PROGN(IF(NULL T@l%)(SETQ T@l%(SSADD)))(SETQ T%%l(NOT(QQWB T@l% T%jQ T1?@"SRF_DOWN""END_SRF"1 0(FLOAT T0OQ))))))(IF(NULL T%%l)(PROGN(IF(NULL TlQ%)(SETQ TlQ%(SSADD)))(SETQ T%%l(NOT(QQWB TlQ% T%jQ T1?@"ENT_BRK""END_BRK"1 0(FLOAT T0OQ))))))(IF(NULL T%%l)(PROGN(SETQ TO1j(QQFE Tjl% NIL))(IF TO1j(SETQ TQl%(T%$j(Tj&j TO1j)256 NIL)T00j(T1$j(Tj&j TO1j))))(SETQ TO1j(QQFE T@l% NIL))(IF TO1j(SETQ Tll%(T%$j(Tj&j TO1j)256 NIL)))(QQSE T?&0"JNM"T$Q%(ITOA TQl%)(ITOA Tll%))(IF(QQEC)(T#$0 2(QQAD Tjl% T@l%)T00j))))(TjjQ))
(defun C:VOL(/ TO$0 T|$0 T%$0 T&l% T?&# Tj&# T1Q% T&Q% T&| T1l% TQO0 T#l% T0l% T%%l T#@@)(T?QQ NIL)(SETQ T#@@ 224)(SETQ T&|(T#Ql 14)TO$0(T$Ql T&|"1"3)T&l%(T$Ql T&|"1"21)T|$0(T|Ql T&| 0 22)T%$0(T$Ql T&|"0"23))(SETQ T1l% 0.0 TQO0 0 T1Q% NIL)(IF(NULL T%0O)(SETQ T%0O 0.0))(SETQ T$l%(T@@@(T%l T#@@ 1))TOl%(Tl@@(T%l T#@@ 1)))(IF(NULL TO0O)(SETQ TO0O T$l%))(IF(NULL T|0O)(SETQ T|0O TOl%))(INITGET 2(STRCAT T$l%" "TOl%))(SETQ T#l%(GETKWORD(T$j@(T@@@(T%l T#@@ 2))0 TO0O"")))(IF(NULL T#l%)(SETQ T#l% TO0O))(SETQ TO0O T#l%)(IF(= T#l% T$l%)(PROGN(Tj@@(T@@@(T%l T#@@ 4))0"")(SETQ T?&#(SSGET))(QQKE T?&#""NIL 0.0 0.0 0.0 0 0 1 4)(IF(T01@ T?&#)(PROGN(INITGET 2(STRCAT T$l%" "TOl%))(SETQ T0l%(GETKWORD(T$j@(T@@@(T%l T#@@ 3))0 T|0O"")))(IF(NULL T0l%)(SETQ T0l% T|0O))(SETQ T|0O T0l%)(IF(= T0l% T$l%)(PROGN(Tj@@(Tl@@(T%l T#@@ 4))0"")(SETQ Tj&#(SSGET))(QQKE Tj&#""NIL 0.0 0.0 0.0 0 0 1 4)(IF(T01@ Tj&#)(SETQ TQO0 1)))(PROGN(SETQ T1l%(GETREAL(T$j@(Tl@@(T%l T#@@ 5))0(RTOS T%0O 2 TO#l)"")))(IF(NULL T1l%)(SETQ T1l% T%0O))(SETQ T%0O T1l% TQO0 2))))))(PROGN(SETQ T1l%(GETREAL(T$j@(T@@@(T%l T#@@ 5))0(RTOS T%0O 2 TO#l)"")))(IF(NULL T1l%)(SETQ T1l% T%0O))(SETQ T%0O T1l%)(Tj@@(Tl@@(T%l T#@@ 4))0"")(SETQ T?&#(SSGET))(QQKE T?&#""NIL 0.0 0.0 0.0 0 0 1 4)(IF(T01@ T?&#)(SETQ TQO0 3))))(IF(> TQO0 0)(PROGN(SETQ T1Q%(ENTSEL(T$j@(T@@@(T%l T#@@ 6))0"""")))(IF T1Q%(PROGN(SETQ T1Q%(Tj1# T1Q%))(IF(NULL T1Q%)(PROGN(TlO@ 107"")(SETQ TQO0 0)))))))(IF(> TQO0 0)(PROGN(T0#@ T1Q%)(T@lj T%jQ"w")(Tllj(LIST"VOLFILE"(LIST TQO0)(LIST T1l% 0 8)))(T%Qj)(SETQ T&Q%(SSADD))(IF T1Q%(SSADD T1Q% T&Q%))(SETQ T%%l(NOT(QQWE NIL T&Q% T%jQ T1?@"ENT_LIM""END_LIM"1 0 0 0 0.0)))(IF(NULL T%%l)(PROGN(IF(NULL T?&#)(SETQ T?&#(SSADD)))(SETQ T%%l(NOT(QQWB T?&# T%jQ T1?@"SRF_UP""END_SRF"1 0(FLOAT T0OQ))))))(IF(NULL T%%l)(PROGN(IF(NULL Tj&#)(SETQ Tj&#(SSADD)))(SETQ T%%l(NOT(QQWB Tj&# T%jQ T1?@"SRF_DOWN""END_SRF"1 0(FLOAT T0OQ))))))(T|#@ T1Q%)(IF(NULL T%%l)(PROGN(QQSE T?&0"VOL"T&l% TO$0(ITOA TQ0l)(ITOA Tj0l)(RTOS T0j 2 8)(RTOS T1j 2 8)Tl0l T@0l(ITOA T#0O)(ITOA T00O)(ITOA T|$0)T%$0)(IF(QQEC)(PROGN(T#$0 3 NIL NIL)(IF(T01@ Tj&#)(command-s"._SELECT"Tj&#"")(IF(T01@ T?&#)(command-s"._SELECT"T?&#"")))))))))(TjjQ))
(defun C:VM3D(/ T|%1 T%## T|l% T%l% T?&% T#@@)(T?QQ(quote (("IMAGEFRAME"))))(SETQ T#@@ 234 T?&% NIL T%l% NIL T|l% NIL T%## NIL)(IF(T01@ T&@Q)(SETQ T|%1 T&@Q T&@Q NIL T?&% T)(PROGN(Tj@@(T@@@(T%l T#@@ 1))0"")(SETQ T|%1(SSGET))))(IF(T01@ T|%1)(PROGN(IF(NULL T?&%)(SETQ T%##(T|&#(ENTSEL(T$j@(T@@@(T%l T#@@ 2))0""""))"IMAGE"))(IF(AND(T01@ T|%1)(>(SSLENGTH T|%1)1))(PROGN(SETQ T%##(QQFE T|%1"IMAGE"))(QQEE T|%1 NIL T%## 0 0 3))))(IF(AND T%##(T|## T%##))(PROGN(SETQ T%l% T)(T0#@ T%##)(IF(T?0# T%##)(SETQ T|l% T%##)(TlO@ 131(STRCAT"\n\n""Saved Path: "(Tl0# T%##)"\n")))))(T@lj T%jQ"w")(Tllj(LIST"VIEWFILE"))(T%Qj)(IF T0#0(Tj@@ T1Q@ 0""))(QQWE T|l% T|%1 T%jQ T1?@""""1 1 1 0 0.0)(IF T%l%(T|#@ T%##))(command-s"._SELECT"T|%1"")))(STARTAPP(STRCAT T?&0" ""VMD"" "(CHR 34)(GETVAR"DWGPREFIX")(CHR 34)))(TjjQ))
(defun C:ZOOMINW(/)(TO%@ 1.25)(PRINC))
(defun C:ZOOMOUTW(/)(TO%@ 0.80)(PRINC))(T0j0)(T1Q0)(PRINC"\nTopoLT loaded.")(PRINC)
Edited by rlx
Link to comment
Share on other sites
BIGAL Grand Master

BIGAL

Posted
Posted (edited)

TopoLT appears to still exist, I may be wrong so before we all end up in breach of copyright I suggest you contact them 1st.

 

www.TopoLT.com

Edited by BIGAL
Link to comment
Share on other sites
tombu Veteran

tombu

Posted
Posted

ARX files are usually version specific.  While 2013 platform was used for versions 2013 thru 2017 the current platform for 2018 and 2019 versions is 2018.  Like BIGAL said you need to contact TopoLT to get the current version.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...