acet-help not loading from Lisp

[CAB]

Change this section:

  ;;
 ;; Compressor Qty Selection   <----------------------------------<<< 
 ;;
 (cond
   ((= compqty1 "None")
    (SetLayer "off" "COMP-BODY-1")
    (SetLayer "off" "COMP-BODY-2")     
    (SetLayer "off" "SUCTION-*")
    (SetLayer "off" "CIRC-LOOP-*")
   )
   ((= compqty2 "None")
    (SetLayer "off" "COMP-BODY-S1")
    (SetLayer "off" "COMP-BODY-S2")
    (SetLayer "off" "COMP-BODY-S3")
    (SetLayer "off" "COMP-BODY-S4")

    (SetLayer "off" "SUCTION-SAT")
    (SetLayer "off" "CIRC-LOOP-S*")
   )
 )

 (cond
   ((= compqty1 "One Compressor")
    (SetLayer "ON" "COMP-BODY-1")
    (SetLayer "OFF" "COMP-BODY-2")
    (SetLayer "OFF" "COMP-BODY-3")
    (SetLayer "OFF" "COMP-BODY-4")
    (SetLayer "OFF" "COMP-BODY-5")     
    (SetLayer "ON" "SUCTION-MAIN")
;;;     (SetLayer "ON" "CIRC-LOOP-*")
   )
   ((= compqty2 "One Compressor")
    (SetLayer "ON" "COMP-BODY-S1")
    (SetLayer "OFF" "COMP-BODY-S2")
    (SetLayer "OFF" "COMP-BODY-S3")
    (SetLayer "OFF" "COMP-BODY-S4")
    (SetLayer "OFF" "COMP-BODY-S5")     
    (SetLayer "ON" "SUCTION-SAT")
;;;     (SetLayer "ON" "CIRC-LOOP-S*")
   )
 )

 

to this: [Note: I not test this]

 

  ;;
 ;; Compressor Qty Selection   <----------------------------------<<< 
 ;;
 ;;Choices for compqty1 & compqty2
 ;;("None" "One Compressor" "Two Compressors" "Three Compressors" "Four Compressors" "Five Compressors")
 (cond
   ((= compqty1 "None")
    (SetLayer "off" "COMP-BODY-#") ; All off
    (SetLayer "off" "SUCTION-*")
    (SetLayer "off" "CIRC-LOOP-*")
   )
   ((= compqty1 "One Compressor")
    (SetLayer "OFF" "COMP-BODY-[2345]") ;[...] Matches any one of the characters enclosed
    (SetLayer "ON" "COMP-BODY-1")
    (SetLayer "ON" "SUCTION-MAIN")
    (SetLayer "ON" "CIRC-LOOP-*")   ;   ????????????? Not sure what you want here
   )    
   ((= compqty1 "Two Compressor")
    (SetLayer "OFF" "COMP-BODY-[345]")
    (SetLayer "ON" "COMP-BODY-[12]")
    (SetLayer "ON" "SUCTION-MAIN")
   )    
   ((= compqty1 "Three Compressor")
    (SetLayer "OFF" "COMP-BODY-[45]")
    (SetLayer "ON" "COMP-BODY-[123]")
    (SetLayer "ON" "SUCTION-MAIN")
   )    
   ((= compqty1 "Four Compressor")
    (SetLayer "OFF" "COMP-BODY-[5]")
    (SetLayer "ON" "COMP-BODY-[1234]")
    (SetLayer "ON" "SUCTION-MAIN")
   )    
   ((= compqty1 "Five Compressor")
    (SetLayer "ON" "COMP-BODY-[12345]")
    (SetLayer "ON" "SUCTION-MAIN")
   )
 )    
   
 (cond
   ((= compqty2 "None")
    (SetLayer "off" "COMP-BODY-S*")
    (SetLayer "off" "SUCTION-SAT")
    (SetLayer "off" "CIRC-LOOP-S*")
   )
   ((= compqty1 "One Compressor")
    (SetLayer "OFF" "COMP-BODY-S[2345]") ;[...] Matches any one of the characters enclosed
    (SetLayer "ON" "COMP-BODY-S1")
    (SetLayer "ON" "SUCTION-MAIN")
    (SetLayer "ON" "CIRC-LOOP-S*")   ;   ????????????? Not sure what you want here
   )    
   ((= compqty2 "Two Compressor")
    (SetLayer "OFF" "COMP-BODY-S[345]")
    (SetLayer "ON" "COMP-BODY-S[12]")
    (SetLayer "ON" "SUCTION-MAIN")
   )    
   ((= compqty2 "Three Compressor")
    (SetLayer "OFF" "COMP-BODY-S[45]")
    (SetLayer "ON" "COMP-BODY-S[123]")
    (SetLayer "ON" "SUCTION-MAIN")
   )    
   ((= compqty2 "Four Compressor")
    (SetLayer "OFF" "COMP-BODY-S[5]")
    (SetLayer "ON" "COMP-BODY-S[1234]")
    (SetLayer "ON" "SUCTION-MAIN")
   )  
 )

[slimpickinz]

I see what you are doing, and now it works when you select zero on each group or one on each group, but after that, (selecting two or more on each group) it turns ON all on each group.

When you select none on split group, and 2, 3, 4 or 5 on main group, it turns all on main group ON.

Strange Behaviour Indeed!

 

SlimP-

 

Revised LISP & DWG Attached.

PID-0912-SLIMP.LSP

PID-2000-1.zip

[CAB]

So sorry, when i copied the functions I forgot to add the s at the end of the string.

 

Try this:

PID-0912-SLIMP.LSP

[slimpickinz]

Thanks man!

 

I forgot to add the s at the end of the string.

 

May I ask, where?

[CAB]

All the test, example

((= compqty1 "Two Compressor[b][color="Red"]s[/color][/b]")

 

((= compqty2 "Two Compressor[b][color="Red"]s[/color][/b]")

[slimpickinz]

oh crap.

thanks

[slimpickinz]

Ok, the app is working GREAT as expected.

I am posting the finished product, so if some of you would take it for a test drive and see if there are any issues, I would be appreciative.

HERE is a link to all the files combined in zip.

 

The only thing I need to add is a label to the unloader selection on the first compressor of each group...

  : boxed_column { label = "COMPRESSOR 1";
;;;[b][color=Sienna]LABEL HERE FOR POPUP15 = unloader[/color][/b]
  : popup15   { key = "comp1un";}
  : toggleVFD { key = "comp1vfd";}
  : toggleDig { key = "comp1dig";}
  : toggleFan { key = "comp1hfan";}
 }

Separate files are attached using the traditional methods.

 

 

Next stop is a production drawing, where line sizes and component models are added.

I would like to use predefined attributes in the drawing, and change those values with popup lists and a text box or two.

Buzzard... any suggestions/examples here on where to start?

I know there is a lot of info out there, but starting with some solid code is always a plus (as we found out here the hard way!).

 

Thanks to all.

PID.lsp

pid.dcl

PID2k-dwg.zip

acet-help.zip

[The Buzzard]

Ok, the app is working GREAT as expected.

I am posting the finished product, so if some of you would take it for a test drive and see if there are any issues, I would be appreciative.

HERE is a link to all the files combined in zip.

 

The only thing I need to add is a label to the unloader selection on the first compressor of each group...

  : boxed_column { label = "COMPRESSOR 1";
;;;[b][color=sienna]LABEL HERE FOR POPUP15 = unloader[/color][/b]
  : popup15   { key = "comp1un";}
  : toggleVFD { key = "comp1vfd";}
  : toggleDig { key = "comp1dig";}
  : toggleFan { key = "comp1hfan";}
 }

Separate files are attached using the traditional methods.

 

 

Next stop is a production drawing, where line sizes and component models are added.

I would like to use predefined attributes in the drawing, and change those values with popup lists and a text box or two.

Buzzard... any suggestions/examples here on where to start?

I know there is a lot of info out there, but starting with some solid code is always a plus (as we found out here the hard way!).

 

Thanks to all.

 

slimpickinz,

 

Its very well done, But just a minor thing I noticed. If I have three compressors selected under Single Suction and three under Split Suction an unloader remains on for compressor 4. Might be something that was missed. In any event I like it. Great way to assemble a complex PID. You just need to try it on several senarios to make sure all is working well. It did not take long to get it to this point.

 

A great job you did in getting this all together and a great job on CAB's part.

 

Make sure you get familar with all the coding methods used so you can independantly make changes and edits in the future.

 

As far as the attributes are concerned I have made past attempts working with them, But I do not not have much experience at it. I am sure you will find help here for that. The one good thing is you make an honest attempt at it yourself which is why I was willing to help you in the first place. CAB got you through all this better than I would have been able. Help comes to those easily who are worthy of ones time.

 

Good Luck with your coding,

The Buzzard

[slimpickinz]

:DJust wanted to let ya all know that this turned out awesome, and am moving ahead with phase two, production drawing generation.

Hats Off to CAB & The Buzzard!

Thanks!

 

-SlimP

[The Buzzard]

:DJust wanted to let ya all know that this turned out awesome, and am moving ahead with phase two, production drawing generation.

Hats Off to CAB & The Buzzard!

Thanks!

 

-SlimP

 

Great to hear SlimP,

 

But CAB deserves all the credit on this one. Anyway looking forward to seeing whats in store with phase two.

 

Keep Coding!

The Buzzard

[CAB]

That's good news. Sorry I did not have any time for testing.

Looking forward to the production version.

 

PS Thanks Buzzard for the kind words

 

Slim, If you are still in need for the attributes let me know.

[The Buzzard]

That's good news. Sorry I did not have any time for testing.

Looking forward to the production version.

 

PS Thanks Buzzard for the kind words

 

Slim, If you are still in need for the attributes let me know.

 

Without a doubt the credit is all yours,

 

I can only do the best I can with what I know, But with people like you around I have my work cut out for me. I hope someday to reach the level your on, But I am not so sure theres enough time.

 

Your one of a kind!