Author Topic: This is too wierd!!  (Read 11518 times)

0 Members and 1 Guest are viewing this topic.

Scott

  • Bull Frog
  • Posts: 244
Re: This is too wierd!!
« Reply #15 on: September 21, 2005, 11:16:20 PM »
Hey I get the same thing in my command line when I run your lisp.  That is really weird.

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: This is too wierd!!
« Reply #16 on: September 22, 2005, 12:08:28 AM »
This may solve it for you ..

Code: [Select]
(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)
)
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: This is too wierd!!
« Reply #17 on: September 22, 2005, 12:33:41 AM »
'cause I hate seeing people in pain ....

Code: [Select]
(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)
)

« Last Edit: September 22, 2005, 12:38:44 AM by Kerry Brown »
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

Big G

  • Bull Frog
  • Posts: 415
Re: This is too wierd!!
« Reply #18 on: September 22, 2005, 04:12:22 AM »
I get it here too, Map2006.

I like it :)
I thought i seen the light at the end of the tunnel. But it was just someone with a torch bringing me more work.
"You have to accept that somedays youre the pigeon and  somedays youre the statue"

PDJ

  • Guest
Re: This is too wierd!!
« Reply #19 on: September 22, 2005, 12:37:48 PM »
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..

M-dub

  • Guest
Re: This is too wierd!!
« Reply #20 on: September 22, 2005, 12:39:01 PM »
At least you're being honest!  ;)

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16899
  • Superior Stupidity at its best
Re: This is too wierd!!
« Reply #21 on: September 22, 2005, 01:10:30 PM »
dude ..

Code: [Select]
(
   '((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 ...
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

Find me on https://parler.com @kblackie

Dommy2Hotty

  • Swamp Rat
  • Posts: 1127
Re: This is too wierd!!
« Reply #22 on: September 22, 2005, 01:11:43 PM »
dude ..

Code: [Select]
(
   '((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:

Bob Wahr

  • Guest
Re: This is too wierd!!
« Reply #23 on: September 22, 2005, 01:17:26 PM »
try
Code: [Select]
(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
Code: [Select]
(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
Code: [Select]
(print "So long, and thanks for all the fish.")

Bob Wahr

  • Guest
Re: This is too wierd!!
« Reply #24 on: September 22, 2005, 01:19:57 PM »
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

Dommy2Hotty

  • Swamp Rat
  • Posts: 1127
Re: This is too wierd!!
« Reply #25 on: September 22, 2005, 01:37:58 PM »
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!

Bob Wahr

  • Guest
Re: This is too wierd!!
« Reply #26 on: September 22, 2005, 02:09:52 PM »
It was Luis' little ABC lisp he posted that tipped me off on it.

PDJ

  • Guest
Re: This is too wierd!!
« Reply #27 on: September 22, 2005, 02:49:10 PM »
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..


Bob Wahr

  • Guest
Re: This is too wierd!!
« Reply #28 on: September 22, 2005, 02:59:54 PM »
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.

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: This is too wierd!!
« Reply #29 on: September 22, 2005, 04:50:21 PM »
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
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.