Need better multiline

[digger]

As an old Piper I can see a use for this great program for piping if the radius for the ells were based on the centerline.
Here is a link to Andrea Andreetti's SDUCT4.0 at FREECADAPPS.COM that may be of use to some of you HVAC types:
http://www.freecadapps.com/swdetails...owcolor=fce08d

[MarcoW]

Ronso,

I went through this thread again because my problem still isn't solved.

In post number 144 I wrote this:

Hi Ronso,

Yes I am fully aware of the capabilities of macro's.
But macro's should be executed from within a menu like you said (or toolpalette)...
I have a lisp (dcl) with a button, when I click that one it should execute what I want.
Is there a way to execute a script from within a lisp file?

Thnaks mate.
MarcoW.

Neah.... won't work... Imagine radius / mitered etc... all the diameters, hatch or not hatch... There's gonna be too much scrip files.

There should be a way to do it in the lisp itself so the command to execute would be:

 
(c:wpipe "Radius" "150" "None" "Yes" "300")

See? Thats the info from the script...

Just like my example in a few post before this one:

 
(defun c:wpipe (
Type; string (= "radius" or "segmented" or "mitered"
Throatdia; string (ie. "150"
Hatching; string (= "Yes" or "No")
LineType; string (ie. "continuous")
Diameter; string (ie. "150")
/
LocalizedVars)
...

Now, the red part obiously won't work. Reason is because there can be no arguments passed in the routine as it is.
If I change the routine (defun c:wipe (Type Radius ...etc. ) it still won't work.

This post, number 86, describes how I have set it up using menu's and toolpalettes in combination with macro's.

Just set a MACRO to a Toolbar Icon, or Tool Palette Icon.

^C^C_WPIPE;R;100;

This will make it a 100mm radius every time.

The blue part will work only as a macro in a toolpalette or whatever. So when it comes to the macro stuff, this I understand but is not the approach.


My point is how can I enter a command on the command line so with one command it does what I need like:

 
Command: (c:wpipe "Radius" "150" "None" "Yes" "300")

I will try to reproduce my modified lisp (I seem to have deleted it) and maybe you can then see whats going on.

I truely appreciate any help!
Kind regards,
MarcoW

[MarcoW]

Here is my reproduction, I have no clue if I am somewhat correct or maybe totally lost.... Bigger parts of this code are way above my capabilities.


Btw, I said "question for Ronso" but of course all useable replies are welcome.
Just mentioned Ronso because he seems to have done a lot in this great lisp before.
Also, if there were a possibility, I would like to credit Asmi for his job.
Too bad he ain't around the Cad forums no more

[anduc]

Marco....

The Red Part can't work because there is no c:wpipe function.
You've said the routine do not work....but what is your error message ?
the lisp provided work great until I dont right clic...is that what you mean ?

Digger,....thanks for the compliment.
you can also try the last release of SDUCT on my website.

cheers. ! ;-)

Andrea.

[fmer]

Hi guys...

I am newby to write lisp and would like to ask you few questions about duct.lsp.

first of all thank you everyone who has edited and spending their times to help us to editing that lisp.

I am a draftsman and that lisp is very helping and saving my time at my work. But I want you to help me to add an option))

I want from lisp masters to option for drawing duct with specified insulation thickness that lisp asked me when I need.

is there any one to help me?

thank you..

[MarcoW]

Hi Fmer,

Welcome to the CadTutor forum!

This lisp is kinda complicated so there is not much chance anyone will jump in. But you never know...
I have asked several things in the past regarding this routine with a secret hope that one of the original authors would help me out.

Maybe post a picture of what you want to achieve. It would certainly clear things up.
And if I can I will help you out myself.

Regards,
MarcoW.

[anduc]

Hi Fmer,

Sduct allow that.

oh !....and welcome to cadtutor !

[Lee Mac]

Andrea, is that you?

[anduc]

yes.

why ?

[alanjt]

yes.

why ?

Big Brother likes to know.