vanowm Posted March 8, 2015 Share 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 Link to comment Share on other sites More sharing options...
BIGAL Posted March 9, 2015 Share 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 Link to comment Share on other sites More sharing options...
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.