TheSwamp
CAD Forums => CAD General => Topic started by: PDJ on September 21, 2005, 03:51:16 PM
-
So I'm working in AutoCad 2005Map, I've just cut and pasted a drawing from Visio 2003 onto a blank drawing. I use my rectangle command that I've had like 10 years now, I pick the top left corner, the top right corner, then the bottom right corner.. Next thing I know, the image has disappeared, the rectangle is there, and down on my command line, there's a message.. You're not going to believe what it said.
So long, and thanks for all the fish...
Is Doug Adams a programmer at AutoDesk now?? Or is this something Dommy2Hotty slipped into that program I got from him yesterday?
I repeated the task after erasing everything and it did it again..
Is the world coming to an end?? Is that bulldozer heading towards my house?? Should I find a towel??
Don't laugh, the message actually appeared right there on my command line..
STOP IT, IT'S NOT FUNNY!!!
One more snicker.. ONE MORE SNICKER!!!
-
You have GOT to submit that one to Autodesk.
-
That IS freakin' weird!!!
Sounds like someone had some fun...
Easter egg?
-
My hovercraft is full of eels!
Oops sorry, wrong channel.
-
That's what I was thinking though it's more like a jelly bean. Got me to google for a 2006 easter egg but couldn't find one.
-
eh, you might check and see if Dommy2Hotty is snickering. I know, I've received immense pleasure from undefining and redefining AutoCAD commands.
-
(http://www.pharfruminsain.com/graphics/images/free-MrBurnsExcellent.gif)
-
Aight Dommy, fess up, was this your doin?? The program seems to be working fine now but, the message still appears after it executes. It doesn't bother me because I'm a HitchHiker fan, just curious as to how it came about and what other surprises I may be in store for.
-
Aight Dommy, fess up, was this your doin??
Nope...what did you get from me yesterday?
-
curious, How many picks do you make in this rectangle? Sounds like three. Why not go with the RECTANG command for a two picker?
-
I got that XCR.VLX command for making those jumps yesterday Dommy. That's the only AutoCad routine I've downloaded in months.
As for the 2 picker, mine allows me to draw my line at whatever angle, then goes 90 degrees off that line for my 3rd pick, then makes it a rectangle on whatever angle I started with, and makes it a closed polyline to boot.. I believe with the rectang command you can only make ortho type rectangles.. Besides, this is a very old routine that I wrote like 10-12 years ago.. Been in my acad.lsp file ever sense.. Never had the "So long, and thanks for all the fish." message in it though.. Hmmm... Funny it would come out like a week after that movie was released on DVD.. :kewl:
-
true on the ortho rectaganles. They are closed polylines though. That's a DVD that I really doubt that I ever own. I was pretty badly disappointed in the movie.
-
I watched the movie and remembered most of it from playing the game many years ago on my Commodore 64 I think. Now I'm getting reminded of it each time I execute my RT command.. And whether it deletes the image I'm tracing is completely on a random basis now. Still looking for answers. I posted over on the AUGI website but no answers yet.. They're not as fast as the swampers..
Dang thing even deletes the image when I do a rectangle away from the image itself.. Very confusing.. I'm beginning to hate that movie now..
-
true on the ortho rectaganles.
Hi
If using AutoCAD 2006 take a look here...
AutoCAD 2006's New Rectangle Command Options (http://bethscadblog.blogspot.com/2005/04/autocad-2006s-new-rectangle-command.html)
Have a good one, Mike
-
That still doesn't look as simple as the one I'm using. The nice thing about mine is that I pick one point, then pick my second point anywhere and that establishes the base line. Turns your crosshairs and everything so your next line is 90 degrees off it one way or the other.. Here it is if anyone wants a gander at it:
(defun c:rt ()
(setq a (getvar "SNAPANG"))
(setq b (getvar "ORTHOMODE"))
(setq c (getvar "GRIDMODE"))
(setq p1 (getpoint "\nFrom point: "))
(setq p2 (getpoint p1 "\nTo point: "))
(command "LINE" p1 p2 "")
(setvar "SNAPANG" (angle p1 p2))
(setvar "ORTHOMODE" 1)
(setq p3(getpoint p2 "To point: "))
(setq p4(polar p3 (angle p2 p1)
(distance p2 p1)))
(command "ERASE" "L" "")
(command "PLINE" p1 p2 p3 p4 "CLOSE")
(setvar "SNAPANG" a)
(setvar "ORTHOMODE" b)
(setvar "GRIDMODE" c)
(print)
(print)
(
'((f x)(princ (vl-list->string (f x)))(princ))
'((x)(mapcar '(lambda(x) (boole 6 42 x)) x))
'(121 69 10 70 69 68 77 6 10 75 68 78 10 94
66 75 68 65 89 10 76 69 88 10 75 70 70 10
94 66 79 10 76 67 89 66 4 32
)
)
;(print "Hey, isn't that a polyrectangle??")
(princ)
)
That is exactly how my rt.lsp is in my acad.lsp file. See the part where it says (print "Hey.. blah, blah... Well, it's still there but, when this command completes, that is when it says "So long, and thanks for all the fish"..
Can someone run this routine and tell me what happens?? Turn your ortho off and you'll see what I mean about the crosshairs changing (Snapang I think it was).. Make one point, then another one on a different plane, that'll be your base line..
None of this is making the fish go away.. AUGI is quiet on the issue..
-
Hey I get the same thing in my command line when I run your lisp. That is really weird.
-
This may solve it for you ..
(defun c:rt2 ()
(setq a (getvar "SNAPANG")
b (getvar "ORTHOMODE")
c (getvar "GRIDMODE")
p1 (getpoint "\nFrom point: ")
p2 (getpoint p1 "\nTo point: ")
)
(command "LINE" p1 p2 "")
(setvar "SNAPANG" (angle p1 p2))
(setvar "ORTHOMODE" 1)
(setq p3 (getpoint p2 "To point: ")
p4 (polar p3 (angle p2 p1) (distance p2 p1))
)
(command "ERASE" "L" "")
(command "PLINE" p1 p2 p3 p4 "CLOSE")
(setvar "SNAPANG" a)
(setvar "ORTHOMODE" b)
(setvar "GRIDMODE" c)
(print)
(print)
('((f x) (princ (vl-list->string (f x))) (princ))
'((x) (mapcar '(lambda (x) (boole 6 42 x)) x))
'(32 107 90 88 67 70 10 108 69 69 70 4 32)
)
(princ)
)
-
'cause I hate seeing people in pain ....
(defun c:Test ()
(setq stuff ('((x) (mapcar '(lambda (x) (boole 6 x 21)) x))
(vl-string->list
"\nConfusion is always the most honest response.
Marty Indik ")
)
)
(terpri)
(princ stuff)
( '((f x) (princ (vl-list->string (f x))) (princ))
'((x) (mapcar '(lambda (x) (boole 6 21 x)) x))
stuff
)
(princ)
)
-
I get it here too, Map2006.
I like it :)
-
Is that supposed to do something Kerry?? Here's what I got when I ran it:
Command: test
(31 86 122 123 115 96 102 124 122 123 53 124 102 53 116 121 98 116 108 102 53
97 125 112 53 120 122 102 97 53 125 122 123 112 102 97 53 103 112 102 101 122
123 102 112 59 31 53 53 53 88 116 103 97 108 53 92 123 113 124 126 53)
Confusion is always the most honest response.
Marty Indik
And the fish message still comes back when I run RT.. So, no help there..
-
At least you're being honest! ;)
-
dude ..
(
'((f x)(princ (vl-list->string (f x)))(princ))
'((x)(mapcar '(lambda(x) (boole 6 42 x)) x))
'(121 69 10 70 69 68 77 6 10 75 68 78 10 94
66 75 68 65 89 10 76 69 88 10 75 70 70 10
94 66 79 10 76 67 89 66 4 32
)
)
Looks like someone is pulling a fast one ...on you ...
Just delete that code ...
-
dude ..
(
'((f x)(princ (vl-list->string (f x)))(princ))
'((x)(mapcar '(lambda(x) (boole 6 42 x)) x))
'(121 69 10 70 69 68 77 6 10 75 68 78 10 94
66 75 68 65 89 10 76 69 88 10 75 70 70 10
94 66 79 10 76 67 89 66 4 32
)
)
Looks like someone is pulling a fast one ...on you ...
Just delete that code ...
Heck yea...jumped right out at me when you first posted the code!
EDIT: I accept your apology and request a crisp, new $20 no later than the end of the week for slander. :realmad:
-
try
(defun c:rt ()
(setq a (getvar "SNAPANG"))
(setq b (getvar "ORTHOMODE"))
(setq c (getvar "GRIDMODE"))
(setq p1 (getpoint "\nFrom point: "))
(setq p2 (getpoint p1 "\nTo point: "))
(command "LINE" p1 p2 "")
(setvar "SNAPANG" (angle p1 p2))
(setvar "ORTHOMODE" 1)
(setq p3(getpoint p2 "To point: "))
(setq p4(polar p3 (angle p2 p1)
(distance p2 p1)))
(command "ERASE" "L" "")
(command "PLINE" p1 p2 p3 p4 "CLOSE")
(setvar "SNAPANG" a)
(setvar "ORTHOMODE" b)
(setvar "GRIDMODE" c)
(princ)
)
When did you add in the (print)
(print)
(
'((f x)(princ (vl-list->string (f x)))(princ))
'((x)(mapcar '(lambda(x) (boole 6 42 x)) x))
'(121 69 10 70 69 68 77 6 10 75 68 78 10 94
66 75 68 65 89 10 76 69 88 10 75 70 70 10
94 66 79 10 76 67 89 66 4 32
)
)bit because it's basicaly the same as
(print "So long, and thanks for all the fish.")
-
yes I realize I was slow on that but I figured something out in lisp and by god I was going to post it! hmph
-
yes I realize I was slow on that but I figured something out in lisp and by god I was going to post it! hmph
Hey man...nothing wrong with taking a little extra time...I had a reason to disect with intent, and intent is a great motivator!
-
It was Luis' little ABC lisp he posted that tipped me off on it.
-
OK, I think you guys are gettin as confuddled as I am about this.. I think my original posting of the code was hacked as well. Hmmm.. And now that I look back at the file in my acad.lsp, it's been hacked there as well..
Fact: No one here knows anything about AutoCad, especially programming in lisp except me.
Fact: None of this happened until I downloaded that file from Dommy2Hotty.
Fact: Looking at the last update on my acad.lsp routine, it's dated 5/19/05.
Fact: I think I've lost my friggin mind now, if anyone finds it, please return it, I'm sure it's scared and lonely..
-
I'm guessing that it has been saying that for quite some time and you just never noticed it. Who really pays attention to the command line unless something odd happens that needs to be figured out.
-
Is that supposed to do something Kerry?? Here's what I got when I ran it:
Command: test
(31 86 122 123 115 96 102 124 122 123 53 124 102 53 116 121 98 116 108 102 53
97 125 112 53 120 122 102 97 53 125 122 123 112 102 97 53 103 112 102 101 122
123 102 112 59 31 53 53 53 88 116 103 97 108 53 92 123 113 124 126 53)
Confusion is always the most honest response.
Marty Indik
And the fish message still comes back when I run RT.. So, no help there..
Hi Paul
Post 16 and 17 were for anyone who didn't know HOW it was done. At the time I thought you were just pulling out chain regarding not knowing what was happening.
The result of Post 16 was 'April Fool', just in case you haven't run it.
FWIW
If you aren't having a lend of us, which NEW software did you download and run on the 5/19/05 <your quote> .. though the date stamp is not necessarily the time of the modifications.
I have seen this sort of thing as a malicious modifier delivered in a protected lisp routine previously.
Regards
Kerry
-
Fact: None of this happened until I downloaded that file from Dommy2Hotty.
Ok .. how about some facts .. the file that you downloaded from Dommy2Hotty was written by Hendie and posted for download at ResourceCAD (http://www.resourcecad.com/programs/)
As is posted on the page at the link above:
ALWAYS DOWNLOAD RCI PROGRAM FILES DIRECTLY FROM THIS SITE ONLY
The posted file should be removed from TheSwamp
-
Agreed.........this one's "tainted". So, do you want to just delete it or delete it and replace it with the one from RCI? Either way, it's gonna confuse the hell outa someone who reads this a month from now.
-
I think the original post should link to the source of the file as opposed to the file itself being archived at theswamp .. in the event this code is ever revised, the end user would be getting code that is not up to date if they downloaded from here.
-
Woah there cowboys...I'm sorry I posted the file that I downloaded from ResourceCAD instead of just linking to their website. I, however, have no knowledge of how to modify a VLX file, and since I know I got it from their site...
Anywho...I'll remove the file...
-
There isn't a problem (so far as I can tell) except I think it would be poor judgement to upload copyrighted files, even if they are free to the general public, particularly when the web site specifically states to download only from their site.
No harm - no foul
-
Although it's part of their virus disclaimer and not a prohibition of posting elsewhere as I read it. More like 'If you get it somewhere else and bad things happen to you, tough cookies.' That's how it reads to me at any rate.
-
No problem guys and gals :mrgreen: I was never one to read 'dem disclaimer thingers...I'm usually in a rush to be the first to help someone to boost my self esteem...
<~~~~I mean, come on...don't I look like I need a little boost? :cry:
-
My first coffee isn't brewed yet, so ..
.. can someone tell me what that site has to do with this thread, particularly with Pauls fish message. ?
-
Well, I'm not one to point fingers...but....
I BLAME VERTICAL MOJO!
-
I'm not sure Kerry, but the way I'm understandin' it -- dude distributed code from another site. Said code is self aware, if it ain't run from thet thar machine that dun downloded it it talks funny at ya.
-
So Paul's code as posted is not 10~12 years old. ?
I'm really confused .. on several counts.
Perhaps I shouldn't have slept in.
-
Basically, he got a vlx file that I posted that I got from ResourceCad. After he used it, apparently his code in a lisp file got changed to display a message at the command prompt. I, for one, don't see this to be true, but that's neither here nor there. The long and short of it, if you want to share a file/code from another website, provide a link to that site instead of the code/file you originally downloaded, or else :pissed:
-
I'm still confused. :loco:
His downloaded code was changed, or some of his own code ??
-
Some of his own code that he wrote circa 10 years ago. I would like to know if there's anyone else at his office that might know programming and is playing a joke...<~~more likely, in my eyes
-
He says not.
I can understand if the downloaded code refused to work, but modifying existing files is, in the least, a questionable practice.
-
Hey Dommy, I'm taking the blame off you.. The last time my pdj.lsp file was updated was back in May so unless a program can modify a file and change the date once it's done, I don't see it as being your file. As for anyone knowing how to program, these are all telephone geeks.. They can program your phone to do strange things and that's about the extent of it. I'm still using the xcr.vlx file and my RT routine so I'm not sweating it.. Well, I am sweating a little, dang heat is on for some reason..
OK, so let's all back off Dommy, it weren't his fault..
Thanks for the file Dommy, I've been using it like crazy the past few days.
-
Nothing to apologize for...never bothered me one bit...now, had something serious occured on your system...then I would have to drive to RescourceCAD's office and dish out the pain! You didn't know I was a bodybuilder?
-
didn't know I was a bodybuilder?
Security guy is checkin' out my caboose!
(http://home.comcast.net/~dominic.cesare/pictures/WorkinOut.jpg)
-
Wait a sec, I think Bob's got a word on this ...
-
so unless a program can modify a file and change the date once it's done
Absolutely possible although I doubt it in this case.
Dommy, you and the security guard look good together.
MP, quick trying to be psychic.
-
MP, quick trying to be psychic.
Quick?????????
let's try "quit" instead.
-
Maybe you typed too quit.
:lmao:
-
Made sense to me the first time too Bob .. I thought you were commenting on the speed of his psychicness <sp>
-
Rest assured that the XCR.vlx file did NOT modify anything on your computer ... It was likely a coincidence and you probably never noticed the message before. Anyway, as I said before ... no harm no foul ... I don't see hendie getting all bent of it being shared ...after all that is WHY it is there ... to be shared ... only RCI would prefer that users download their own files as it would prevent such from happening in the future ... (If you really want to know ... I am a founding member) now if you want to check the VLX to verify that someone has not modified it (I take it you have read the thread about the security of VLX and FAS files)
Simply download the file from RCI and do a binary file comparison i.e. at the command prompt ....
fc /b xcr1.vlx xcr2.vlxIf there are any discrepancies then you will know about it.
Food for thought ... it is quite possible and simple for a rogue VBA routine to put such in a file without modifying the time and date stamp of the file.
-
Well, I'm not one to point fingers...but....
I BLAME VERTICAL MOJO!
Hey! Where's my lawyer... :|