[求助]How to compile vlx file
Dear Sir,How to compile vlx file see attached my original file & convert file
please help me in detail
My original file; 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 "))
(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;---------------------------------------
(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 "))
(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")
页:
[1]