Message 1 of 13
LISP QUESTION
Not applicable
10-19-1999
02:11 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Greetings All !
I am having an odd problem that I cannot seem to figure out. I am
hoping someone will be able to help me out with this...Notice that I do
not have an "mspace" command anywhere in my code. Any pointers would be
thanked...
Thanks,
Eric
Here is the error message that I am getting:
Command: ls2 error: incorrect request for command list data
(COMMAND ".mspace")
(MAIN)
((LAMBDA ($VALUE $KEY $DATA $REASON $X $Y) (MAIN) (DONE_DIALOG)) (<>
#33e116c> "1") (<> "accept") (<> "") (<>
#33e116c> 1) (<> 16) (<> 7))
(APPLY (QUOTE (LAMBDA ($VALUE $KEY $DATA $REASON $X $Y) (MAIN)
(DONE_DIALOG)))
(QUOTE ("1" "accept" "" 1 16 7)))
(START_DIALOG)
(PROGN (ACTION_TILE "accept" "(MAIN) (done_dialog)") (ACTION_TILE
"cancel"
"(done_dialog)") (START_DIALOG) (UNLOAD_DIALOG DCL_ID) (LAYER))
(IF (NEW_DIALOG "ls2" DCL_ID) (PROGN (ACTION_TILE "accept" "(MAIN)
(done_dialog)") (ACTION_TILE "cancel" "(done_dialog)") (START_DIALOG)
(UNLOAD_DIALOG DCL_ID) (LAYER)))
(C:LS2)
Here is my .lsp file:
(defun c:LS2 (/)
(setq dcl_id (load_dialog "ls2.dcl"))
(if (new_dialog "ls2" dcl_id)
(progn
(action_tile "accept" "(MAIN) (done_dialog)")
(action_tile "cancel" "(done_dialog)")
(start_dialog)
(unload_dialog dcl_id)
(LAYER)
)
)
(princ)
)
(defun MAIN ()
(setq FP (get_tile "key_FP"))
(setq CP (get_tile "key_CP"))
(setq EL (get_tile "key_EL"))
(setq EQ (get_tile "key_EQ"))
(setq FM (get_tile "key_FM"))
(setq GP (get_tile "key_GP"))
(setq DET (get_tile "key_details"))
(princ)
)
(defun LAYER (/ DET_MVIEW_SS FLR_MVIEW_SS)
(setvar "CMDECHO" 0)
(setq DET_MVIEW_SS (ssget "X" (list (cons 8 "DET_MVIEW"))))
(setq FLR_MVIEW_SS (ssget "X" (list (cons 8 "FLR_MVIEW"))))
(progn
(cond
;; FLOOR PLAN ***************
((= FP "1")
(setq CHECK (tblsearch "LAYER" "T_TITLE"))
(setq ONOFF (assoc 62 CHECK))
(setq ONOFF (cdr ONOFF))
(if (< ONOFF 0)
(command "LAYER" "ON" "T_cutline,T_misc,T_text,T_title" "")
)
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "EQ_*" "")
)
;; CABLE PLAN ***************
(( = CP "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "C_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_dim" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; ELECTRICAL PLAN ***************
(( = EL "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "E_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; FIBER MANAGEMENT PLAN ***************
(( = FM "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "ON" "FM_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_dim" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; GROUNDING PLAN ***************
(( = GP "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "ON" "G_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; DETAILS SHEET *****************
(( = DET "1")
(setvar "CMDECHO" 0)
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "-LAYER" "OFF" "T_MISC" "")
(command "mview" "on" DET_MVIEW_SS "")
(command "-layer" "on" "DET_MVIEW" "")
(command "mview" "off" FLR_MVIEW_SS "")
(command "-layer" "off" "FLR_MVIEW" "")
(command "-layer" "on" "D_*" "")
(princ)
)
)
(setvar "CMDECHO" 1)
)
(princ)
)
And finally, my .dcl file:
ls2 : dialog {
label = "Layer Management v2.0";
: text {
label = "- Developed for Electric Lightwave, Inc.";
}
: text {
label = "- Created by Eric Nagel (rev. 09/15/99)";
}
: boxed_row {
label = "LAYERSET";
: radio_column {
: radio_button {
label = "Floor Plan / Equipment Layout";
key = "key_FP";
}
: radio_button {
label = "Cable Rack Plan";
key = "key_CP";
}
: radio_button {
label = "Electrical Plan";
key = "key_EL";
}
: radio_button {
label = "Fiber Management";
key = "key_FM";
}
: radio_button {
label = "Grounding Plan";
key = "key_GP";
}
: radio_button {
label = "Details";
key = "key_details";
}
}
}
ok_cancel;
}
--
Eric Nagel
Electric Lightwave, Inc.
eric_nagel@eli.net
I am having an odd problem that I cannot seem to figure out. I am
hoping someone will be able to help me out with this...Notice that I do
not have an "mspace" command anywhere in my code. Any pointers would be
thanked...
Thanks,
Eric
Here is the error message that I am getting:
Command: ls2 error: incorrect request for command list data
(COMMAND ".mspace")
(MAIN)
((LAMBDA ($VALUE $KEY $DATA $REASON $X $Y) (MAIN) (DONE_DIALOG)) (<>
#33e116c> "1") (<> "accept") (<> "") (<>
#33e116c> 1) (<> 16) (<> 7))
(APPLY (QUOTE (LAMBDA ($VALUE $KEY $DATA $REASON $X $Y) (MAIN)
(DONE_DIALOG)))
(QUOTE ("1" "accept" "" 1 16 7)))
(START_DIALOG)
(PROGN (ACTION_TILE "accept" "(MAIN) (done_dialog)") (ACTION_TILE
"cancel"
"(done_dialog)") (START_DIALOG) (UNLOAD_DIALOG DCL_ID) (LAYER))
(IF (NEW_DIALOG "ls2" DCL_ID) (PROGN (ACTION_TILE "accept" "(MAIN)
(done_dialog)") (ACTION_TILE "cancel" "(done_dialog)") (START_DIALOG)
(UNLOAD_DIALOG DCL_ID) (LAYER)))
(C:LS2)
Here is my .lsp file:
(defun c:LS2 (/)
(setq dcl_id (load_dialog "ls2.dcl"))
(if (new_dialog "ls2" dcl_id)
(progn
(action_tile "accept" "(MAIN) (done_dialog)")
(action_tile "cancel" "(done_dialog)")
(start_dialog)
(unload_dialog dcl_id)
(LAYER)
)
)
(princ)
)
(defun MAIN ()
(setq FP (get_tile "key_FP"))
(setq CP (get_tile "key_CP"))
(setq EL (get_tile "key_EL"))
(setq EQ (get_tile "key_EQ"))
(setq FM (get_tile "key_FM"))
(setq GP (get_tile "key_GP"))
(setq DET (get_tile "key_details"))
(princ)
)
(defun LAYER (/ DET_MVIEW_SS FLR_MVIEW_SS)
(setvar "CMDECHO" 0)
(setq DET_MVIEW_SS (ssget "X" (list (cons 8 "DET_MVIEW"))))
(setq FLR_MVIEW_SS (ssget "X" (list (cons 8 "FLR_MVIEW"))))
(progn
(cond
;; FLOOR PLAN ***************
((= FP "1")
(setq CHECK (tblsearch "LAYER" "T_TITLE"))
(setq ONOFF (assoc 62 CHECK))
(setq ONOFF (cdr ONOFF))
(if (< ONOFF 0)
(command "LAYER" "ON" "T_cutline,T_misc,T_text,T_title" "")
)
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "EQ_*" "")
)
;; CABLE PLAN ***************
(( = CP "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "C_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_dim" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; ELECTRICAL PLAN ***************
(( = EL "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "E_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; FIBER MANAGEMENT PLAN ***************
(( = FM "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "ON" "FM_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_dim" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; GROUNDING PLAN ***************
(( = GP "1")
(command "mview" "on" FLR_MVIEW_SS "")
(command "-layer" "on" "FLR_MVIEW" "")
(command "mview" "off" DET_MVIEW_SS "")
(command "-layer" "off" "DET_MVIEW" "")
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "LAYER" "ON" "A_*" "")
(command "LAYER" "ON" "EQ_*" "")
(command "LAYER" "ON" "G_*" "")
(command "LAYER" "OFF" "EQ_DIM" "")
(command "LAYER" "OFF" "EQ_TEXT" "")
(command "LAYER" "OFF" "A_TEXT" "")
(command "LAYER" "OFF" "A_STRUCT_GRID" "")
)
;; DETAILS SHEET *****************
(( = DET "1")
(setvar "CMDECHO" 0)
(command "LAYER" "SET" "0" "")
(command "LAYER" "OFF" "A_*,C_*,D_*,E_*,EQ_*,FM_*,G_*,URLLAYER" "")
(command "-LAYER" "OFF" "T_MISC" "")
(command "mview" "on" DET_MVIEW_SS "")
(command "-layer" "on" "DET_MVIEW" "")
(command "mview" "off" FLR_MVIEW_SS "")
(command "-layer" "off" "FLR_MVIEW" "")
(command "-layer" "on" "D_*" "")
(princ)
)
)
(setvar "CMDECHO" 1)
)
(princ)
)
And finally, my .dcl file:
ls2 : dialog {
label = "Layer Management v2.0";
: text {
label = "- Developed for Electric Lightwave, Inc.";
}
: text {
label = "- Created by Eric Nagel (rev. 09/15/99)";
}
: boxed_row {
label = "LAYERSET";
: radio_column {
: radio_button {
label = "Floor Plan / Equipment Layout";
key = "key_FP";
}
: radio_button {
label = "Cable Rack Plan";
key = "key_CP";
}
: radio_button {
label = "Electrical Plan";
key = "key_EL";
}
: radio_button {
label = "Fiber Management";
key = "key_FM";
}
: radio_button {
label = "Grounding Plan";
key = "key_GP";
}
: radio_button {
label = "Details";
key = "key_details";
}
}
}
ok_cancel;
}
--
Eric Nagel
Electric Lightwave, Inc.
eric_nagel@eli.net