TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: NoTebowNoHope on January 05, 2012, 05:57:54 PM
-
I have limited programming knowledge so please bare with me.
What I want to accomplish:
- Make a layer that is created from a dialog box that contains scroll boxes that references external lists.
Box1 Box2 Box3 Box4
Ex: 1 2 3 4 = Layer Name: 1234
What is the best way to do this; and does someone have something already created that is similar that I could use as a starting point?
-
Hum :?
Why in the world would you want a layer named 1234?
Tim Willey had a DCL that would handle multiple pull down list.
-
Why wouldn't you just standardize your layers in a template? :?
Edit -
You could also incorporate the layers in code (or pull from .CSV, .XLS(x), etc.).
Then again it appears that you're stringing the box contents together without hyphens in between, so why not just have one box? Or am I missing something?
-
I personally think its a good idea - a nice way to limit users to creating standardised layers when required.
I should say that the '1234' example was just that, an example.
So, back to more pressing matters: you will need to create the dialog using DCL, this can be a separate file, or a file created by the LISP program (I prefer the latter).
Are you sourcing the lists for the dialog from an external file, or hard-coding them into the program?
Creating the layer is the easy part of this task, there are many ways this can be done, using the command, AutoLISP, or Visual LISP.
-
Why wouldn't you just standardize your layers in a template? :?
Edit -
You could also incorporate the layers in code (or pull from .CSV, .XLS(x), etc.).
Then again it appears that you're stringing the box contents together without hyphens in between, so why not just have one box? Or am I missing something?
I would separate the strings with a hyphen I just didn't show it above.
Ex: S-LANDSCAPE-P-SHRUB
We do not want to use a standard template to allow some flexibility to each user based on their project. I would like to list all the modifiers in a list and let the user create the last portion of the description such as "SHRUB" from above.
-
I personally think its a good idea - a nice way to limit users to creating standardised layers when required.
I should say that the '1234' example was just that, an example.
So, back to more pressing matters: you will need to create the dialog using DCL, this can be a separate file, or a file created by the LISP program (I prefer the latter).
Are you sourcing the lists for the dialog from an external file, or hard-coding them into the program?
Creating the layer is the easy part of this task, there are many ways this can be done, using the command, AutoLISP, or Visual LISP.
The lists would be handled from an external file...maybe a txt file.
I'm just not sure where to start.
-
I'm just not sure where to start.
I don't have much time, but here is a quick DCL layout:
customlayer : dialog { label = "Create Layer"; spacer;
: boxed_column { label = "Layer Name";
: row {
: popup_list { key = "pop1"; }
: popup_list { key = "pop2"; }
: popup_list { key = "pop3"; }
: edit_box { key = "desc"; }
}
spacer;
}
ok_cancel;
}
-
I'm just not sure where to start.
I don't have much time, but here is a quick DCL layout:
customlayer : dialog { label = "Create Layer"; spacer;
: boxed_column { label = "Layer Name";
: row {
: popup_list { key = "pop1"; }
: popup_list { key = "pop2"; }
: popup_list { key = "pop3"; }
: edit_box { key = "desc"; }
}
spacer;
}
ok_cancel;
}
Thanks for the info. I will use this as a starting point and see what I can come up with.
-
A little more homework.
http://www.theswamp.org/index.php?topic=37566.0
http://www.theswamp.org/index.php?topic=8763.0
For DCL look here:
http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm
-
Cab, thanks for the links. I'm going to give this a try and see what I come up with.
-
Ok this task is a bit over my head. I will pay someone to create a lsp routine and dialog box that does the following:
*Build a layer from multiple external lists with the option of changing the color and linetype (see attached image for example).
I can give more detail if someone is interested in making some cash.
-
Looks easy enough but does require quit a few lines of code.
How soon do you need it?
-
Looks easy enough but does require quit a few lines of code.
How soon do you need it?
Sometime in the next two weeks would be great if you could squeeze it in. The sooner I get everyone on the same page the less hair I will lose :lol:
Let me know how you want to work out payment. I could paypal half up front and the other half when complete?
-
Here, I've finished my version... It has some lacks : you must set color and line-type before dialog starts and preview is displayed only after you press button for preview...
I hope you'll be satisfied for now and I don't know ab payment... I am from Serbia, Europe, so forget it. At least I hope someone else will find it useful...
You can edit line :
(setq lst (list "MASTER" "DETAILED" "LANDSCAPE")) to make more choices... Else is done by your posted *.png
Sincerely, M.R.
EDIT : Forgot to add line (vl-file-delete fname)...
EDIT : Lacks that occur for color and line-type are removed... Also if you have preview, you can simply press OK...
-
Info post - codes *.lsp files updated... Removed inspected lacks...
M.R.
8-)
-
Info post - codes *.lsp files updated... Removed inspected lacks...
M.R.
8-)
That is awesome! Thank you so much for putting this together! I feel like I owe something for your efforts. Is there a way to make a donation to the forums?
How difficult would it be to have a separate list each different group in step 1.?
ie...If I pick (S)ite, have options for 1,2,3,4,5
or if I pick (D)rainage have options for A,B,C,D
I really appreciate your time an effort you put into this!!!
-
Info post - codes *.lsp files updated... Removed inspected lacks...
M.R.
8-)
... Is there a way to make a donation to the forums?
...
http://www.theswamp.org/donate.html :-D
-
Info post - codes *.lsp files updated... Removed inspected lacks...
M.R.
8-)
... Is there a way to make a donation to the forums?
...
http://www.theswamp.org/donate.html :-D
Thanks RonJon!
-
I'm a little behind here but see attached incomplete routine.
To finish:
Linetype selection
File reader - don't know what you wanted from a text file
-
Version 1.1 uploaded, Fixed a bug in the color dialog selection.
-
I'm a little behind here but see attached incomplete routine.
To finish:
Linetype selection
File reader - don't know what you wanted from a text file
Regarding the file reader, it doesn't have to read a text file as I can edit the routine to suit for our specific plans.
Is it possible to have the scroll box in Step2 display a separate list for each category listed in Step1?
ie...
STEP1: STEP2:
(S)ITE (MASTER, DETAILED, LANDSCAPE)
(U)TILITY (WATER, SEWER, REUSE)
(D)RAINAGE (DEMO, PREDEV, DETAILED, EROSION)
(R)OADWAY (PROFILES, SECTIONS, DETAILS)
Thank you for your time and effort in setting this up. I really appreciate it and will make a donation to the site.
-
Yes, I'll get to adding the separate list tomorrow.
-
OK try this version.
Make sure you use the new DCL file.
-
OK try this version.
Make sure you use the new DCL file.
I don't have cadd here at home but will try it first thing in the morning. Thanks again for your help!
-
You're welcome and thanks in advance for your contribution.
-
OK try this version.
Make sure you use the new DCL file.
I tried it out this morning and it worked nicely!
How difficult would it be to incorporate the following:
1. Linetype dialog box similar to the color dialog?
2. Exit the dialog box when you hit "Create LAyer Now"
3. Set the newly created layer as current
I have no idea how much effort this took. Can you tell me about how much time you had in it so that I can make an appropriate donation to the site?
-
I'll have about 8 hours in the routine.
1. Linetype dialog box similar to the color dialog? I'll look into this
Done 2. Exit the dialog box when you hit "Create LAyer Now"
Done 3. Set the newly created layer as current
Version 1.3 when I get the line type option.
-
I'll have about 8 hours in the routine.
1. Linetype dialog box similar to the color dialog? I'll look into this
Done 2. Exit the dialog box when you hit "Create LAyer Now"
Done 3. Set the newly created layer as current
Version 1.3 when I get the line type option.
Thanks for the response...I really appreciate your help!
-
Could not find a quick fix for line type selection except for a simple list box with names only.
But I did find a routine included with ACAD 14 that has one with some display of simple line types.
I should have something by tomorrow. Other work is a priority today.
-
IIRC DOSLib includes a Linetype Selection box
-
IIRC DOSLib includes a Linetype Selection box
Found it :-)
http://www.en.na.mcneel.com/doslib/acad_functions/dos_linetypebox.htm (http://www.en.na.mcneel.com/doslib/acad_functions/dos_linetypebox.htm)
-
Thanks Lee, that is a nice one but does require all users to install DosLib.
That;s an easy one if the OP is agreeable.
Otherwise the one I found is not nearly as nice but is LISP & DCL based.
-
Looks like the Lintype dialog from the old r14 Bonus Tool Extended Change Properties.
-
That's it, exactly.
My version will be slightly different. 8-)
-
That's it, exactly.
My version will be slightly different. 8-)
Cool. 8-) That command was great.
You should keep it separate and post it as a nice subroutine for the group.
-
Thanks Alan I will.
Note on the dosLib routine, it appears that the line type dialog is not included in the 2000-2006 ACAD version 6.1
So I can not test or use that dialog.
-
Thanks Lee, that is a nice one but does require all users to install DosLib.
That;s an easy one if the OP is agreeable.
Otherwise the one I found is not nearly as nice but is LISP & DCL based.
Would you be able to load linetypes that aren't already loaded (similar to linetype manager)?
-
Thanks Lee, that is a nice one but does require all users to install DosLib.
That;s an easy one if the OP is agreeable.
Otherwise the one I found is not nearly as nice but is LISP & DCL based.
Would you be able to load linetypes that aren't already loaded (similar to linetype manager)?
The DosLib linetype loading has that very option.
-
Sneak peek at version 1.3
No mine will not allow loading line types into the drawing.
<Old code removed>
-
OK, decided to go with the built in LineType command.
Still need error code but this is a test version 1.4
-
some time ago I wrote this...
http://www.gr-acad.com.br/copasa/GNACopasa.html
-
Video won't play for me. :-(
-
OK, decided to go with the built in LineType command.
Still need error code but this is a test version 1.4
Thanks CAB...I will check it out first thing in the morning when I get to work.
-
some time ago I wrote this...
http://www.gr-acad.com.br/copasa/GNACopasa.html
Video won't play for me either
-
It is some sort of dialog box where you can choose various options for creating names of files (*.txt, *.dwg, *.csv, ...) Not sure for its real usage though... It all in spanish language, I guess - I don't know...
Anyway, I've checked CAB's LayerMaker, and I've integrated option to change created layer to be current and also implemented dcl into lsp... Saved both versions v1.3 and v1.4... Don't know, but sometimes when I first start v1.4 and choose LineType option it may stop functioning when called second time (I may not choose other options - dialog stops working - have to exit CAD). Start it again, now firstly load all linetypes, ok on lainetype dialog box, then start again linetype and it stops responding... Maybe I am wrong, but it functions ok I think only after once all linetypes are loaded or those that you want to use after loading them and only first time you choose to change linetype... Once new layer has been created, you can start layermaker again and also you have just one attempt to change linetype through option for linetype...
Maybe this has to do something that you said for error handler that you're searching for real linetype dialog, or this is just experience based on my netbook where I have A2008 installed...
M.R.
-
Thanks Marko, I typically do not add the DCL creator routine until program development has ended and you are near final debugging.
Thanks for the bug report, I too have seen reports of that bug but was not able to recreate it.
Version 1-3 should not have that bug, correct?
No time this morning but will be back after lunch to dig into the problem.
Maybe the command is not canceled / ended properly and needs
(command)(command) at the end of the line type get routine.
See you all later today.
-
After more review I see you removed my DCL file error checking.
(setq dclfile "LayerMaker.dcl"
dclname "LayerMakerDialog"
)
(cond
(nil ; debug (not (create_dcl dclName)) <-------<<< normally a call to create the DCL
(prompt (strcat "\nCannot create " dclfile "."))
)
((< (setq dcl# (load_dialog dclfile)) 0) ; Error <--------<<< make sure the DCL can be loaded
(prompt (strcat "\nCannot load " dclfile "."))
)
((not (new_dialog dclname dcl#)) ; Error <--------<<< make sure the DCL name is correct
(prompt (strcat "\nProblem with " dclfile "."))
)
(t ; No DCL problems: fire it up
True that your method does not need all these additional checks but I tend to error on the side on caution. 8-)
-
CAB, if you plan to modify version of LayerMaker 1-4 - wihout dcl.lsp I forgot to add variable "fn" to localize it into (defun c:layermaker ( / ... ) ), so please add this... Yes, I've removed dcl checking in (cond (...)...), that was the only way (my opinion) I could implement temp dcl...
M.R.
-
Thanks for your help.
This code call the sub function to create the DCL
((not (create_dcl dclName)) <-------<<< normally a call to create the DCL
(prompt (strcat "\nCannot create " dclfile "."))
)
so just create
(defun create_dcl (fname / acadfn dcl-rev-check)
---your code here----
-
I'm back.
Went back to the DCl line type selection although no way yet to import a new line type.
See attached version 1.5
This version will create the DCL file as needed.
Also added check box to allow user to return to the dialog after creating a layer for those time when more than one layer is being added.
<old code removed>
-
I'm back.
Went back to the DCl line type selection although no way yet to import a new line type.
<snip>
Command: (dump (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object))))
; IAcadLineTypes: The collection of all linetypes in the drawing
; Property values:
; Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140547198>
; Count (RO) = 3
; Document (RO) = #<VLA-OBJECT IAcadDocument 0000000028536f60>
; Handle (RO) = "5"
; HasExtensionDictionary (RO) = 0
; ObjectID (RO) = 50
; ObjectID32 (RO) = 50
; ObjectName (RO) = "AcDbLinetypeTable"
; OwnerID (RO) = 0
; OwnerID32 (RO) = 0
; Methods supported:
; Add (1)
; Delete ()
; GetExtensionDictionary ()
; GetXData (3)
; Item (1)
; Load (2)
; SetXData (2)
T
The two arguments are, in order, LinetypeName LinetypeFile.
Will this work for you Alan?
-
So you've returned to v1.3 linetype dialog... I've checked v1.5 and noticed that you haven't noticed that I changed line in (cond ...) to make last created layer current... So, please revise v1.5 with this line :
(msg (progn (princ (strcat "\nLayer [" layerpreview "] created.")) (setvar 'clayer layerpreview)))
M.R.
-
Thanks Tim but no.
What I have now is a DCL that allows selection of the loaded line types to apply to the new layer.
The OP wanted to be able to select from a file to load that line type into the DWG.
I do have loader routine (by name & file name) but we now get into User selection of the file to explore and then display a list of line types to choose from.
The gotya is that the preview of line types are difficult to display in a DCL.
This aspect may be as or more difficult that the original routine. :-o
The ACAD linetype dialog was nice but caused ACAD to hang. I did not find fix for that but may look at it again.
Another option Lee proposed was to use DODlib's dialog which is nice but not available for ACAD2006 which is as high as I go and requires DosLib to be loaded.
There you have it. :-)
-
So you've returned to v1.3 linetype dialog... I've checked v1.5 and noticed that you haven't noticed that I changed line in (cond ...) to make last created layer current... So, please revise v1.5 with this line :
(msg (progn (princ (strcat "\nLayer [" layerpreview "] created.")) (setvar 'clayer layerpreview)))
M.R.
Oh, I missed that.
Thanks I'll change it.
OK new file loaded above. (version 1-5)
-
I'm back.
Went back to the DCl line type selection although no way yet to import a new line type.
See attached version 1.5
This version will create the DCL file as needed.
Also added check box to allow user to return to the dialog after creating a layer for those time when more than one layer is being added.
Now that is pretty slick! That is pretty much what I was after CAB. Thanks for your effort in putting this together.
-
Glad you like it.
Made some mods to version 1.5 see attached.
Changes the linetype selection dialog but no import feature.
-
Here is my version... LayerMaker 1-5.lsp - added : (vl-file-delete dclfile) - erase temporary dcl; loaded all linetypes from acadiso.lin into memory before dialog start - they are now always loaded; added titles for additional function (GetLinetype) and main function inside *.lsp; reversed order in process of loading them, so after appload return value of loading is C:LayerMaker (function name for starting routine)...
M.R.
-
Marko
I appreciate you effort to clean up the routine but I do that when all debugging is done.
I like to run the file through several test sessions before I tidy up.
As for the deleting of the DCL file, I don't see the need. My routine checks the date in the header
so that if the main routine has altered the DCL the old DCL is over written with the new on.
The header is created with my DCL2Lisp routine http://www.theswamp.org/index.php?topic=1291.0
Therefore no need to create it every time the routine is run. Just the way I designed it.
Loading every linetype is not desirable IMO, because you will use ether metric or English line types
but not both so the others clutter up the displays. Just my opinion but the OP may want that.
I have no time this morning but maybe later today to do some more work on the routine.
Thanks again for your help. :-)
-
CAB, you haven't posted some news, so all I could do is modify your version of v1.5... Everything is the same as my version, only it has now your dialog for linetypes and I think it's better now... So I named it v1.6 - changed title of main dialog (v1.6)... Still I couldn't fix the problem with v1.4 :
(initdia)
(command "_.LINETYPE")
and I've tried everything I could think of. By my current knowledge, I think I can't fix that bug. (only have tests on A2008 - but doesn't matter, it won't work and it won't and it won't...)
So, I am posting now v1.6. If you think I was wrong, you can remove line : (vl-file-delete dclname) - I use routine with deleting *.dcl after lsp ends (It isn't slower if needed to create new dcl, by my opinion, and I really don't want to create files on HD that are unnecessary - lisp will create it weather it exist or not. I only wanted to be removed after execution)... Anyway *.lsp is bigger, so why make the same data twice - dcl from lsp?
I've removed "load" option in your dialog - it loads all linetypes automatically from acadiso.lin (also if needed and user has it - user may change it to some other *.lin to be loaded automatically)... I don't know what you meant by "load" - "under construction :)" - you haven't posted v1.6, so now it may be perhaps v1.7...
Thanks for thanking me, I only did what I could and had free time...
Regards, sincerely, M.R.
-
Marko,
I've been rather busy this weekend and no work on the routine
I've had no luck either with the (command "_.LINETYPE")
I don't know what you meant by "load" - "under construction
My thought was to open a file dialog for the user the select a lin file and then
open the line type selection dialog to import the chosen line types.
Similar to what ACAD does with the (command "_.LINETYPE")
I've done no work on the LOAD and may not.
I guess we differ in thought about the 4612 byte dcl file existing on the 2 terabyte hard drive.
In my version the DCL is written once & only again IF the header has changed or if not found.
Personally I do not want all line type's from ACAD,lin loaded in my drawings. JMO
Nor would I want all line types loaded from another file I selected.
I'll try to spend some time right now on the routine.
Talk to you later. :-)
Thanks
-
Here is version 1.7, bug fix introduced when I added descriptions to the linetype dialog.
Comments added & general clean up.
Linetypes are not all loaded.
DCL is not deleted.
-
Here is version 1.7, bug fix introduced when I added descriptions to the linetype dialog.
Comments added & general clean up.
Linetypes are not all loaded.
DCL is not deleted.
Can't wait to try it out in the morning :lol: