lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..
Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat.
Nou pe simpatie:
Profil ubytzika_senzuala
Femeie
23 ani
Vrancea
cauta Barbat
22 - 45 ani
lisp2arx / Listof AutoLisp.100 / Vla-AutoLisp14- AcLoad load-startup Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506


Code:

; must have vlide open to work

(defun comp ( )
(if (null vlisp-compile) (c:vlide T)) 
(setq fname (getfiled "Pick lisp to be compiled" "D:\\alan\\cadac\\" "lsp" 8))
(setq len (strlen fname))
(setq diff (- len (+ 15 3)))
(setq fnameout (substr fname 15 diff))
(vlisp-compile 'st  fname  (strcat "d:\\alan\\compiled\\" fnameout ".fas"))
)
(comp)


(if (null vlisp-compile) (c:vlide T)) 
(setq loads (list "Lisp1" "Lisp2" "Lisp3"))
(setq loc1 "F:\\") ;;change dirs to where ever you want them saved
(setq loc2 "F:\\Compiled Lisp\\")
(foreach lisp loads
(vlisp-compile 'st (strcat loc1 lisp ".lsp") (strcat loc2 lisp ".fas"))
)

(vlisp-compile 'st "d:\\alan\\ca5cav2.lsp" "d:\\alan\\compiled\\ca5cav2.fas")



acload code:; must have vlide open comp )
(if (null (c:vlide t)) 
(setq fname (getfiled "pick

59.1KB


_______________________________________


pus acum 2 ani
   
Pagini: 1  

Mergi la