vanowm Posted March 8, 2015 Posted March 8, 2015 Hello. I litterally started learning lisp today by trying convert a script written in lisp inside a .mnu file for Acad R13 into .lsp routine for Acad2000i. So far I've managed convert it and some functions seems to work, but it doesn't work 100% I cannot find ANY information about structure of .mnu files, so I need some help with several lines that I don't quiet understand. So far my understanding is that: ; = represents an ENTER key (or a newline) + = next line will continue the command \ = end of command But what about: \+ i.e. (SETQ PTD (GETPOINT "PICK ENDPOINT OF LOW LEFT CORNER: "));ENDPOINT;\+ (COMMAND "3DPOLY" PTA PTC);;+ or (SETQ ED (ENTGET (CAR (ENTSEL))));\+ (SETQ PTA (CDR (ASSOC 12 ED)));+ How do I convert them to lisp? I've attached the original .mnu file and converted .lsp Thank you. RULEFLAT.zip Quote
BIGAL Posted March 9, 2015 Posted March 9, 2015 Here is an example ***MENUGROUP=BIGALSTDS ***POP15 **CADLIB [LIBRARY] [->LISP2 C-D] [->CARPARKS] [No carparks]^C^C(load "how many carparks") carpark [Carpark 0]^C^C(load "simple carpark") npark90 [Carpark 30]^C^C(load "simple carpark") npark30 [Carpark 45]^C^C^p(load "simple carpark") npark45 [Carpark 60]^C^C(load "simple carpark") npark60 [<-Carpark 90]^C^C(load "simple carpark") npark90 [Convert CCAD]^c^c(load "civilcad convert") [Chain-Off]^C^C^p(LOAD "CHAIN-OFF") [<-Dynam Rad]^C^C(LOAD "Continuousfillet1.2") CF [->LISP3 E-K] [EditLsect]^C^C(LOAD "EditLsect") . and so on . . [<-] Quote
Recommended Posts
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.