TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: MP on May 15, 2005, 11:58:10 AM
-
Responding to a challenge in this (http://www.theswamp.org/phpBB2/viewtopic.php?t=5176) thread (thanks Chuck!) I wrote AxProps (http://www.theswamp.org/lilly_pond/mp/lisp/axprops.fas?nossi=1) (use your logon name / password to download), a little utility that provides a simple gui interface to display all the properties and methods exposed to AutoLISP (via vla-*, vlax-get/put/invoke etc.) for a specified entity or object --
(http://www.theswamp.org/screens/mp/axprops01.png)
Double clicking an entry in the dialog will invoke the help system and display the appropriate help (if a topic for that item exists) --
(http://www.theswamp.org/screens/mp/axprops02.png)
(http://www.theswamp.org/screens/mp/coordshelp.png)
Finally, when there is a difference in the result returned by vlax-get and vlax-get-property (the former generally returning data types native to AutoLISP, the latter data types native to ActiveX), it shows both results separate by a " | " (pipe) symbol --
(http://www.theswamp.org/screens/mp/axprops03.png)
Download --
AxProps.fas (http://www.theswamp.org/lilly_pond/mp/lisp/axprops.fas?nossi=1) (use your logon name / password).
Command / Functions --
c:AxProps -- prompts you to to select an entity.
c:NAxProps -- prompts you to to select a nested entity.
AxProps, syntax: (AxProps x), where x is any valid object, ename or handle.
Feel crazy? Try this (axprops "1"). :lol:
I plan to add the ability to dump the whole mess to notepad so you can use the info in other ways, print off etc. Other ideas welcome, will try to incorporate ideas keeping with it's simple philosophy and lightweight footprint when I've the time.
Final note: I wrote this quick under Windows XP Pro and vanilla AutoCAD 2006. When this crashes on your system please provide the noted information, you'll be helping me out a lot. Thanks.
Enjoy.
:cheesy:
-
Can't wait till Monday morning so I can try it out. Look's mighty nice there MP.
-
Thank you Mr. Thomas.
:)
-
Kudos to you Mr. Puckett!
This will be a tremendous help to me, and many others.
:dood:
-
My pleasure Chuck, thank you for the idea.
(http://www.theswamp.org/screens/mp/thumbsup.gif)
-
Question for you... what are your terms of distribution on this gem? Am I free to share it with whomever I like? I honestly believe that something like this would make great shareware and that there are many people who would be willing to pay a small fee to use it (myself included). I think I know what your response to that will be but, for the benefit of others, would you care to elaborate a little?
-
I desire no fee; freeware for everyone. You may distribute as you please so long as there is no fee involved, that is: you may not charge anyone for its use or distribution, nor may you include it in distributions that are fee based. Despite trivial coding it's copyrighted (as noted on loading and invocation); you may not modify, reverse engineer or decompile it.
Clear as mud?
:)
-
Awesome routine you have there Michael. :shock:
Using ACAD2000 windows 2000
Command: _appload axprops.fas successfully loaded.
Command: AxPROPS.FAS 1.0 (© 2005 Michael Puckett).
Function: (AxProps x), where x is a valid ename, object or handle.
Commands: AxPROPS/nAxPROPS. Prompt (entsel/nentsel) for primary/nested entity.
Command:
Command: (axprops "1")
; error: bad argument type: stringp nil
Command: C:axprops
Unknown command "C:AXPROPS". Press F1 for help.
Command: axprops
Select object: ; error: bad argument type: stringp nil
Command:
The initial dialog box comes up, but
When double clicking on an item, like Layer
I get the error. Select object: ; error: bad argument type: stringp nil
-
Command: (axprops "1")
Command: (axprops "2")
Command: (axprops "3")
Do what "I think" they are s'posed to.
Thanks again Michael for sharing.
-
Hi Alan, what does this
(setq helpfile (findfile "acadauto.chm"))
return on your system?
-
My pleasure Kerry.
:)
-
(setq helpfile (findfile "acadauto.chm"))
nil
I have acadauto.hlp with ACAD2000
no chm except for acet.chm
-
Exactly what I thought, that what's making this utility toss a wobbly, it's designed to work on systems with the chm style help. Hmmm, can you send me your help file? I'll see what I can do.
-
Until I code alternately using AcadAuto.hlp (wild assumption that I can) I've recoded the program to deal with the failure to locate AcadAuto.chm more elegantly. I've uploaded the new version (read: "please download new version").
AxProps.fas (http://www.theswamp.org/lilly_pond/mp/lisp/axprops.fas?nossi=1) (use your logon name / password).
Gotta head out in about 5 minutes, but I'll be back later tonight.
-
I desire no fee; freeware for everyone. You may distribute as you please so long as there is no fee involved, that is: you may not charge anyone for its use or distribution, nor may you include it in distributions that are fee based. Despite trivial coding it's copyrighted (as noted on loading and invocation); you may not modify, reverse engineer or decompile it.
Clear as mud?
:)
Just about exactly what I thought you would say. :keb:
You know, I'm completely amazed by this tool you've written. It's one of those things that, once you see and use it, you wonder why the folks at Autodesk never thought of including something exactly like it in AutoCAD in the first place. Am I the only one who feels that way? :|
What a time/confusion/headache saver! :D
-
I'm reminded of those commercials for Guinness beer...
Brilliant!
-
Just tested it on Vanilla 2002 and it works perfectly!
:)
Thanks again Michael!
-
Thanks Michael(http://www.xs4all.nl/~crack/smilies/tovenaar.gif), this makes life a lot easier!(http://www.xs4all.nl/~crack/smilies/cheer.gif)
2 questions:- Can you add getkword to choose between AxPROPS and nAxPROPS?
- If there is already a helpscreen in the background, is it possible then to use that window?[/list:u]
-
Thanks Michael(http://www.xs4all.nl/~crack/smilies/tovenaar.gif), this makes life a lot easier!(http://www.xs4all.nl/~crack/smilies/cheer.gif)
My pleasure, hope it helps you along your journey. :)
Can you add getkword to choose between AxPROPS and nAxPROPS?
I'd rather not, but then again, maybe you're not the only one who wants this. Is it the naming that bugs you, like would you prefer AxPropsX for the nested version? Notwithstanding, there's nothing stopping you from calling (AxProps x) anyway you want via your own wrapper, including exactly as you described.
If there is already a helpscreen in the background, is it possible then to use that window?
I could, but <guessing> it would not immediately receive focus. Also, I thought folks might want to have independent windows for subsequent help screens.
You guys indicate what you want, I'll try to respond to the majority.
:)
-
Please note that I found a bug in the program this morning. It crashes on PolyLines. The fix is easy, but I don't have the source code here, so I'll fix it up when I get home tonight.
Also, regarding Crank's request consider this quick one off:
(defun c:Propsx ( / mia getkey key lst )
(cond
( (and
(setq mia (null AxProps))
(null (findfile "axprops.fas"))
)
(princ "Cannot find axprops.fas, aborting.")
)
( (and
mia
(eq 'failed (load "axprops.fas"))
)
(princ "Cannot load axprops.fas, aborting.")
)
( (defun GetKey ( / result )
(while
(null
(eq 2
(car
(setq result (grread))
)
)
)
)
(cadr result)
)
(setq lst
(mapcar 'ascii
'("p" "P" "n" "N" "\r" " ")
)
)
(if mia (princ "\n\n"))
(princ
(strcat
"Press [p] or [enter] to select a "
"primary entity, [n] for a nested one: "
)
)
(while
(null
(member
(setq key (GetKey))
lst
)
)
)
(setq ename
(car
(if (member key (mapcar 'ascii '("n" "N")))
(nentsel)
(entsel)
)
)
)
(vl-load-com)
(AxProps ename)
)
)
(princ)
)
:)
-
Bug squished, please download latest version.
AxProps.fas (http://www.theswamp.org/lilly_pond/mp/lisp/axprops.fas?nossi=1) (use your logon name / password).
Altered presentation of data slightly, I'll let you find the change.
:)
-
Hi Michael , just one of the best gift on my chrismas tree.
Thanks
-
Waaaaat the ... well, thanks DEVITG, right nice of you to say so ... thanks!
:)
-
Thanks
Thank you Michael. I like it as much as you ATOMS.vlx routine. I think the people at Autodesk would make use of this.
Gary
-
Thanks Gary! lol, it seems like a lifetime ago when I wrote atoms, I kinda forgot about it.
:lol:
-
Very nice, Michael. Thank you. :-)
A couple cosmetic questions. Could the window be resizable? Likewise, recall its last location and size?
On my two monitor setup the window always appears centered on the drawing window monitor, regardless of where it was when last closed. I'd prefer to have it on the other monitor so it doesn't obscure the drawing.
Forgive me if this is nit-picking.
-
Thanks for sharing .
where is the Atoms.vlx ?
-
Thanks for sharing .
where is the Atoms.vlx ?
Here 'tis http://www.theswamp.org/index.php?topic=8163.msg104698#msg104698
Thanks to Michael.
-
Thanks for sharing .
where is the Atoms.vlx ?
Here 'tis http://www.theswamp.org/index.php?topic=8163.msg104698#msg104698
Thanks to Michael.
Thanks Kerry.