The Buzzard Posted September 8, 2009 Posted September 8, 2009 CAB, I am not exactly sure, But there may be three answers to the question. I think he needed None as a possible answer because the remaining two may not necessarily apply in all cases, So the toggle method may not be good here. I had originally suggested to use an extract list items method that I had learned from Lee Mac. We just have not got to that point yet. slimpickinz will need to clarify if the None may apply in most cases or if the toggle method is good enough. I am not sure now. ----------------------------------------------------------------------------------------------------------------- slimpickinz, I have an early doctors appointment today and will get back to you later in the day. Please let me know if the code I posted is clear enough for you. The Buzzard Quote
CAB Posted September 8, 2009 Posted September 8, 2009 Understood. As for the "List Box Build Section" because there are so many I would do this: (defun AddList (tile lst) (start_list tile) (mapcar 'add_list lst) (end_list) ) (mapcar (function (lambda(x) (AddList (car x) (eval(cadr x))))) '(("compqty1" NAMEScompqty) ("compqty2" NAMEScompqty) ("subcool" NAMESsubcool) ("liqinj" NAMESliqinj) ;; Build list for Compressors ("comp1un" NAMEScompun) ("comp1vfd" NAMEScompvfd) ("comp1dig" NAMEScompdig) ("comp1hfan" NAMEScomphfan) ("comp2un" NAMEScompun) ("comp2vfd" NAMEScompvfd) ("comp2dig" NAMEScompdig) ("comp2hfan" NAMEScomphfan) ("comp3un" NAMEScompun) ("comp3vfd" NAMEScompvfd) ("comp3dig" NAMEScompdig) ("comp3hfan" NAMEScomphfan) ("comp4un" NAMEScompun) ("comp4vfd" NAMEScompvfd) ("comp4dig" NAMEScompdig) ("comp4hfan" NAMEScomphfan) ("comp5un" NAMEScompun) ("comp5vfd" NAMEScompvfd) ("comp5dig" NAMEScompdig) ("comp5hfan" NAMEScomphfan) ("comps1un" NAMEScompun) ("comps1vfd" NAMEScompvfd) ("comps1dig" NAMEScompdig) ("comps1hfan" NAMEScomphfan) ("comps2un" NAMEScompun) ("comps2vfd" NAMEScompvfd) ("comps2dig" NAMEScompdig) ("comps2hfan" NAMEScomphfan) ("comps3un" NAMEScompun) ("comps3vfd" NAMEScompvfd) ("comps3dig" NAMEScompdig) ("comps3hfan" NAMEScomphfan) ("comps4un" NAMEScompun) ("comps4vfd" NAMEScompvfd) ("comps4dig" NAMEScompdig) ("comps4hfan" NAMEScomphfan) ;; Build list for LOOPS ("loop1" NAMESloop) ("loop2" NAMESloop) ("loop3" NAMESloop) ("loops1" NAMESloop) ("loops2" NAMESloop) ("loops3" NAMESloop) ;; Build list for CONDENSER/RECEIVER OPTIONS ("cond1" NAMEScond) ("whr" NAMESwhr) ("rec1" NAMESrec) ) ) Quote
slimpickinz Posted September 8, 2009 Author Posted September 8, 2009 are the greatest! I cannot remember the last time I got as much intervention in one of my projects. I will look at all this tonight. What I have now is working, and as I mentioned before, it is quite convoluted, but I have a lot of examples here to improve my original concept. Thanks and keep the card and letters coming! SlimP- Quote
The Buzzard Posted September 8, 2009 Posted September 8, 2009 CAB, I tried that list method and getting an error: to few arguments and the dialog appears and disappears. ------------------------------------------------------------------------ slimpickinz, How did the meeting of the minds go? Were they easy on you? Quote
The Buzzard Posted September 8, 2009 Posted September 8, 2009 See file attached. Same thing: ; error: too few arguments, But the dialog is OK this time. Is there another DCL you may be using with this? Quote
slimpickinz Posted September 8, 2009 Author Posted September 8, 2009 Meeting went went, only found one small bug (CAD layering issue). Had the senior mechanical engineer there for my support, he kept the group off guard and we moved on. The Help file went over real well, so getting that to work was a plus. I want to continue to improve on the program. First thing I am gonna fix the bug, then file naming convention as suggested, then work on the obscure variables. I need to check out CABs stuff as well, see where he is headed. Thanks again and hang in there with me. I am learning more & more as we go on. This is great stuff! SlimP- Quote
The Buzzard Posted September 8, 2009 Posted September 8, 2009 Meeting went went, only found one small bug (CAD layering issue). Had the senior mechanical engineer there for my support, he kept the group off guard and we moved on.The Help file went over real well, so getting that to work was a plus. I want to continue to improve on the program. First thing I am gonna fix the bug, then file naming convention as suggested, then work on the obscure variables. I need to check out CABs stuff as well, see where he is headed. Thanks again and hang in there with me. I am learning more & more as we go on. This is great stuff! SlimP- So it was not such a bad Tuesday after all. See how far you get with the changes and we will take it from there. Quote
CAB Posted September 8, 2009 Posted September 8, 2009 Really hate those popup_list with 2-3 items in them! Hope the check boxes will work. Otherwise I have an idea to use Text tiles for the compressors & a CHANGE button that pop another DCL. Quote
The Buzzard Posted September 8, 2009 Posted September 8, 2009 I had to change the name of the dialog in the code that is suppose to open the dialog with the toggles to pid4 CAB.dcl. I now get this error: error: bad argument type: stringp nil Quote
The Buzzard Posted September 8, 2009 Posted September 8, 2009 Just noticed in the Suction Groups the popup list appears empty. Also the Condenser Location and Loop 4 SC, Loop S4 SC. Quote
CAB Posted September 8, 2009 Posted September 8, 2009 No lisp works with the CAB.dcl, just an example. As for the blank popup, maybe a tile name change. I last track of which lisp was the latest & which dcl works with it. I did not want to do any more development until the requirements for the display are settled. i.e. check boxes pr popups or maybe my text idea. Can't do anymore until tomorrow afternoon. Quote
slimpickinz Posted September 9, 2009 Author Posted September 9, 2009 Have settled the DCL format, looks like this..... BTW...Removed Loop 4 (SC) Fixed the variables for the Suction Groups Box, also see the problem with the blank Condenser box. Have renamed everything "PID" to avoid confusion. Will post all the files directly. SlimP- Quote
CAB Posted September 9, 2009 Posted September 9, 2009 Looking forward to the files: Consider changing the Condenser to a ROW. Quote
slimpickinz Posted September 9, 2009 Author Posted September 9, 2009 I Like Better! As you can see from my DCL, the fields are all populated but still getting pid.LSP pid.dcl Quote
CAB Posted September 9, 2009 Posted September 9, 2009 See if this works for you. Also added Disable when number of compressors is changed. pid-CAB.LSP Quote
slimpickinz Posted September 9, 2009 Author Posted September 9, 2009 Dialog looks fantastic! I assume we are using my last posted DCL? However, still getting error message, this time Any suggestions as where to look to figure this out? 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.