[求助]How to compile vlx file

sachindkini

Dear Sir,
How to compile vlx file see attached my original file & convert file
please help me in detail
My original file

2. ; Automatic save linked to shortened ZOOM options
3. (defun c:Zw () (Command "zoom" "w")(ausv))
4. (defun c:ZP () (command "zoom" "p"))
5. (defun c:Zs () (command "zoom" "p"))
6. (defun c:Zx () (command "zoom" "p"))
7. (defun c:ze () (command "zoom" "e"))
8. (defun c:za () (command "zoom" "a")(ausv))
9. (defun c:zd () (command "zoom" "d"))
10. (DEFUN C:Z1 () (COMMAND "ZOOM" ".1X" ""))
11. (DEFUN C:Zz () (COMMAND "ZOOM" ".8X" ""))
12. (defun c:zm () (command "zoom" "vmax"))
13. ;----------------- END OF ZOOM SECTION --------
14. ;----------------- START OF OFFSET COMMAND SECTION ------
15. (DEFUN C:O () (COMMAND "OFFSET") (princ))
16. (defun c:OO () (command "offset" "150") (princ))
17. (defun c:000 () (command "offset" "125"))
18. (defun c:00 () (command "offset" "100"))
19. (defun c:OOO () (command "offset" "230"))
20. (defun c:150 () (command "offset" "150"))
21. (defun c:230 () (command "offset" "230"))
22. (defun c:100 () (command "offset" "100"))
23. (DEFUN C:O2 () (COMMAND "OFFSET" 250))
24. (DEFUN C:06 () (COMMAND "OFFSET" 6))
25. (DEFUN C:09 () (COMMAND "OFFSET" 9))
26. ;----------------- END OF OFFSET SECTION --------
27. (DEFUN C:RM ()
28.   (SETQ LU (GETVAR "LUNITS"))
29.   (IF (> LU 2)
30.     (LOAD "c:/LISP/ROOMSZFT")
31.     (LOAD "c:/LISP/ROOMSZMM")
32.   )
33.   (ROMASDTC)
34.   (C:RM)
35. )
36. (defun C:CONV ()
37.   (setq what (getstring "\nInch to mm or mm to inch [m/i] "))
38.   (if (= what "m")
39.     (progn
40.       (setq ft (getreal "\nHow many Feet ? "))
41.       (setq in (getreal "\nHow many inch ? "))
42.       (setq mm (* 25.4 (+ (* 12.0 ft) in)))
43.       (prompt "\nIn mm this is ")
44.       (princ mm)
45.       (princ)
46.     )
47.   )
48.   (if (= what "i")
49.     (progn
50.       (setq mm (getreal "\nmm. Value = "))
51.       (setq inch (/ mm 25.4))
52.       (setq ft (/ inch 12.0))
53.       (setq ft1 (fix ft))
54.       (setq inc (* (- ft ft1) 12.0))
55.       (prompt "\n Value in ft-inch is : ")
56.       (print)
57.       (princ ft1)
58.       (princ " feet ")
59.       (princ (rtos inc))
60.       (princ " inches")
61.       (princ)
62.     )
63.   )
64. )
65. ;---------------------
67. (defun c:r9 (/ ent po1)
68.   (setvar "cmdecho" 0)
69.   (prompt "\nFor rotate @ 90..")
70.   (setq ent (SSGET))
71.   (setq po1 (getpoint "\nPick base point.."))
72.   (command "rotate" ent "" po1 "90")
73.   (setvar "cmdecho" 1))
74. ;------------------------------------------------------------

; Automatic save linked to shortened ZOOM options (defun c:Zw () (Command "zoom" "w")(ausv)) (defun c:ZP () (command "zoom" "p")) (defun c:Zs () (command "zoom" "p")) (defun c:Zx () (command "zoom" "p")) (defun c:ze () (command "zoom" "e")) (defun c:za () (command "zoom" "a")(ausv)) (defun c:zd () (command "zoom" "d")) (DEFUN C:Z1 () (COMMAND "ZOOM" ".1X" "")) (DEFUN C:Zz () (COMMAND "ZOOM" ".8X" "")) (defun c:zm () (command "zoom" "vmax")) ;----------------- END OF ZOOM SECTION -------- ;----------------- START OF OFFSET COMMAND SECTION ------ (DEFUN C:O () (COMMAND "OFFSET") (princ)) (defun c:OO () (command "offset" "150") (princ)) (defun c:000 () (command "offset" "125")) (defun c:00 () (command "offset" "100")) (defun c:OOO () (command "offset" "230")) (defun c:150 () (command "offset" "150")) (defun c:230 () (command "offset" "230")) (defun c:100 () (command "offset" "100")) (DEFUN C:O2 () (COMMAND "OFFSET" 250)) (DEFUN C:06 () (COMMAND "OFFSET" 6)) (DEFUN C:09 () (COMMAND "OFFSET" 9)) ;----------------- END OF OFFSET SECTION -------- (DEFUN C:RM ()   (SETQ LU (GETVAR "LUNITS"))   (IF (> LU 2)     (LOAD "c:/LISP/ROOMSZFT")     (LOAD "c:/LISP/ROOMSZMM")   )   (ROMASDTC)   (C:RM) ) (defun C:CONV ()   (setq what (getstring "\nInch to mm or mm to inch [m/i] "))   (if (= what "m")     (progn       (setq ft (getreal "\nHow many Feet ? "))       (setq in (getreal "\nHow many inch ? "))       (setq mm (* 25.4 (+ (* 12.0 ft) in)))       (prompt "\nIn mm this is ")       (princ mm)       (princ)     )   )   (if (= what "i")     (progn       (setq mm (getreal "\nmm. Value = "))       (setq inch (/ mm 25.4))       (setq ft (/ inch 12.0))       (setq ft1 (fix ft))       (setq inc (* (- ft ft1) 12.0))       (prompt "\n Value in ft-inch is : ")       (print)       (princ ft1)       (princ " feet ")       (princ (rtos inc))       (princ " inches")       (princ)     )   ) ) ;--------------------- (defun c:r9 (/ ent po1)   (setvar "cmdecho" 0)   (prompt "\nFor rotate @ 90..")   (setq ent (SSGET))   (setq po1 (getpoint "\nPick base point.."))   (command "rotate" ent "" po1 "90")   (setvar "cmdecho" 1)) ;------------------------------------------------------------

Convert file

2. ;---------------------------------------
3. (defun main
4. FasStringtables 0
5. FasStringtables 1
6. (defun main
7. nil
8. (setq C:ZW <Func> C:ZW)
9. (vl-ACAD-defun C:ZW)
10. C:ZW
11. (setq C:ZP <Func> C:ZP)
12. (vl-ACAD-defun C:ZP)
13. C:ZP
14. (setq C:ZS <Func> C:ZS)
15. (vl-ACAD-defun C:ZS)
16. C:ZS
17. (setq C:ZX <Func> C:ZX)
18. (vl-ACAD-defun C:ZX)
19. C:ZX
20. (setq C:ZE <Func> C:ZE)
21. (vl-ACAD-defun C:ZE)
22. C:ZE
23. (setq C:ZA <Func> C:ZA)
24. (vl-ACAD-defun C:ZA)
25. C:ZA
26. (setq C:ZD <Func> C:ZD)
27. (vl-ACAD-defun C:ZD)
28. C:ZD
29. (setq C:Z1 <Func> C:Z1)
30. (vl-ACAD-defun C:Z1)
31. C:Z1
32. (setq C:ZZ <Func> C:ZZ)
33. (vl-ACAD-defun C:ZZ)
34. C:ZZ
35. (setq C:ZM <Func> C:ZM)
36. (vl-ACAD-defun C:ZM)
37. C:ZM
38. (setq C:O <Func> C:O)
39. (vl-ACAD-defun C:O)
40. C:O
41. (setq C:OO <Func> C:OO)
42. (vl-ACAD-defun C:OO)
43. C:OO
44. (setq C:000 <Func> C:000)
45. (vl-ACAD-defun C:000)
46. C:000
47. (setq C:00 <Func> C:00)
48. (vl-ACAD-defun C:00)
49. C:00
50. (setq C:OOO <Func> C:OOO)
51. (vl-ACAD-defun C:OOO)
52. C:OOO
53. (setq C:150 <Func> C:150)
54. (vl-ACAD-defun C:150)
55. C:150
56. (setq C:230 <Func> C:230)
57. (vl-ACAD-defun C:230)
58. C:230
59. (setq C:100 <Func> C:100)
60. (vl-ACAD-defun C:100)
61. C:100
62. (setq C:O2 <Func> C:O2)
63. (vl-ACAD-defun C:O2)
64. C:O2
65. (setq C:06 <Func> C:06)
66. (vl-ACAD-defun C:06)
67. C:06
68. (setq C:09 <Func> C:09)
69. (vl-ACAD-defun C:09)
70. C:09
71. (setq C:RM <Func> C:RM)
72. (vl-ACAD-defun C:RM)
73. C:RM
74. (setq C:CONV <Func> C:CONV)
75. (vl-ACAD-defun C:CONV)
76. C:CONV
77. (setq C:R9 <Func> C:R9)
78. (vl-ACAD-defun C:R9)
79. (defun C:ZW
80. (ads-cmd "zoom")
81. (ads-cmd "w")
82. (defun C:ZP
83. (ads-cmd "zoom")
84. (defun C:ZS
85. (ads-cmd "zoom")
86. (defun C:ZX
87. (ads-cmd "zoom")
88. (defun C:ZE
89. (ads-cmd "zoom")
90. (defun C:ZA
91. (ads-cmd "zoom")
92. (ads-cmd "a")
93. (defun C:ZD
94. (ads-cmd "zoom")
95. (defun C:Z1
96. (ads-cmd "ZOOM")
97. (ads-cmd ".1X")
98. (defun C:ZZ
99. (ads-cmd "ZOOM")
100. (ads-cmd ".8X")
101. (defun C:ZM
102. (ads-cmd "zoom")
103. (defun C:O
104. (ads-cmd "OFFSET")
105. (defun C:OO
106. (ads-cmd "offset")
107. (ads-cmd "150")
108. (defun C:000
109. (ads-cmd "offset")
110. (defun C:00
111. (ads-cmd "offset")
112. (defun C:OOO
113. (ads-cmd "offset")
114. (defun C:150
115. (ads-cmd "offset")
116. (defun C:230
117. (ads-cmd "offset")
118. (defun C:100
119. (ads-cmd "offset")
120. (defun C:O2
121. (ads-cmd "OFFSET")
122. (defun C:06
123. (ads-cmd "OFFSET")
124. (defun C:09
125. (ads-cmd "OFFSET")
126. (defun C:RM
127. (setq LU (GETVAR "LUNITS"))
128. (LOAD "c:/LISP/ROOMSZFT")
129. Then OR Else
130. (ROMASDTC )
131. (defun C:CONV
132. (setq WHAT (GETSTRING "\nInch to mm or mm to inch [m/i] "))
133. (setq FT (GETREAL "\nHow many Feet ? "))
134. (setq IN (GETREAL "\nHow many inch ? "))
135. (setq MM (* 25.4 (+ (* 12.0 FT) IN)))
136. (PROMPT "\nIn mm this is ")
137. (PRINC MM)
138. (PRINC )
139. (setq MM (GETREAL "\nmm. Value = "))
140. (setq INCH (/ MM 25.4))
141. (setq FT (/ INCH 12.0))
142. (setq FT1 (FIX FT))
143. (setq INC (* (- FT FT1) 12.0))
144. (PROMPT "\n Value in ft-inch is : ")
145. (PRINT )
146. (PRINC FT1)
147. (PRINC " feet ")
148. (PRINC (RTOS INC))
149. (PRINC " inches")
150. (defun C:R9
151. (_al-bind-alist '(ENT PO1))
152. (SETVAR "cmdecho" 0)
153. (PROMPT "\nFor rotate @ 90..")
154. (setq ENT (SSGET ))
155. (setq PO1 (GETPOINT "\nPick base point.."))
156. (ads-cmd "rotate")
157. (ads-cmd ENT)
158. (ads-cmd "")
159. (ads-cmd PO1)
160. (ads-cmd "90")

;--------------------------------------- (defun main FasStringtables 0 FasStringtables 1 (defun main nil (setq C:ZW <Func> C:ZW) (vl-ACAD-defun C:ZW) C:ZW (setq C:ZP <Func> C:ZP) (vl-ACAD-defun C:ZP) C:ZP (setq C:ZS <Func> C:ZS) (vl-ACAD-defun C:ZS) C:ZS (setq C:ZX <Func> C:ZX) (vl-ACAD-defun C:ZX) C:ZX (setq C:ZE <Func> C:ZE) (vl-ACAD-defun C:ZE) C:ZE (setq C:ZA <Func> C:ZA) (vl-ACAD-defun C:ZA) C:ZA (setq C:ZD <Func> C:ZD) (vl-ACAD-defun C:ZD) C:ZD (setq C:Z1 <Func> C:Z1) (vl-ACAD-defun C:Z1) C:Z1 (setq C:ZZ <Func> C:ZZ) (vl-ACAD-defun C:ZZ) C:ZZ (setq C:ZM <Func> C:ZM) (vl-ACAD-defun C:ZM) C:ZM (setq C:O <Func> C:O) (vl-ACAD-defun C:O) C:O (setq C:OO <Func> C:OO) (vl-ACAD-defun C:OO) C:OO (setq C:000 <Func> C:000) (vl-ACAD-defun C:000) C:000 (setq C:00 <Func> C:00) (vl-ACAD-defun C:00) C:00 (setq C:OOO <Func> C:OOO) (vl-ACAD-defun C:OOO) C:OOO (setq C:150 <Func> C:150) (vl-ACAD-defun C:150) C:150 (setq C:230 <Func> C:230) (vl-ACAD-defun C:230) C:230 (setq C:100 <Func> C:100) (vl-ACAD-defun C:100) C:100 (setq C:O2 <Func> C:O2) (vl-ACAD-defun C:O2) C:O2 (setq C:06 <Func> C:06) (vl-ACAD-defun C:06) C:06 (setq C:09 <Func> C:09) (vl-ACAD-defun C:09) C:09 (setq C:RM <Func> C:RM) (vl-ACAD-defun C:RM) C:RM (setq C:CONV <Func> C:CONV) (vl-ACAD-defun C:CONV) C:CONV (setq C:R9 <Func> C:R9) (vl-ACAD-defun C:R9) (defun C:ZW (ads-cmd "zoom") (ads-cmd "w") (defun C:ZP (ads-cmd "zoom") (defun C:ZS (ads-cmd "zoom") (defun C:ZX (ads-cmd "zoom") (defun C:ZE (ads-cmd "zoom") (defun C:ZA (ads-cmd "zoom") (ads-cmd "a") (defun C:ZD (ads-cmd "zoom") (defun C:Z1 (ads-cmd "ZOOM") (ads-cmd ".1X") (defun C:ZZ (ads-cmd "ZOOM") (ads-cmd ".8X") (defun C:ZM (ads-cmd "zoom") (defun C:O (ads-cmd "OFFSET") (defun C:OO (ads-cmd "offset") (ads-cmd "150") (defun C:000 (ads-cmd "offset") (defun C:00 (ads-cmd "offset") (defun C:OOO (ads-cmd "offset") (defun C:150 (ads-cmd "offset") (defun C:230 (ads-cmd "offset") (defun C:100 (ads-cmd "offset") (defun C:O2 (ads-cmd "OFFSET") (defun C:06 (ads-cmd "OFFSET") (defun C:09 (ads-cmd "OFFSET") (defun C:RM (setq LU (GETVAR "LUNITS")) (LOAD "c:/LISP/ROOMSZFT") Then OR Else (ROMASDTC ) (defun C:CONV (setq WHAT (GETSTRING "\nInch to mm or mm to inch [m/i] ")) (setq FT (GETREAL "\nHow many Feet ? ")) (setq IN (GETREAL "\nHow many inch ? ")) (setq MM (* 25.4 (+ (* 12.0 FT) IN))) (PROMPT "\nIn mm this is ") (PRINC MM) (PRINC ) (setq MM (GETREAL "\nmm. Value = ")) (setq INCH (/ MM 25.4)) (setq FT (/ INCH 12.0)) (setq FT1 (FIX FT)) (setq INC (* (- FT FT1) 12.0)) (PROMPT "\n Value in ft-inch is : ") (PRINT ) (PRINC FT1) (PRINC " feet ") (PRINC (RTOS INC)) (PRINC " inches") (defun C:R9 (_al-bind-alist '(ENT PO1)) (SETVAR "cmdecho" 0) (PROMPT "\nFor rotate @ 90..") (setq ENT (SSGET )) (setq PO1 (GETPOINT "\nPick base point..")) (ads-cmd "rotate") (ads-cmd ENT) (ads-cmd "") (ads-cmd PO1) (ads-cmd "90")