Topic: This is too wierd!!

[Scott]

Hey I get the same thing in my command line when I run your lisp.  That is really weird.

[Kerry]

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)
)

[Kerry]

'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)
)

[Big G]

I get it here too, Map2006.

I like it

[PDJ]

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]

At least you're being honest! 

[Keith™]

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 ...

[Dommy2Hotty]

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]

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]

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]

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]

It was Luis' little ABC lisp he posted that tipped me off on it.

[PDJ]

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]

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]

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