Topic: encrypted lisp routine

[dubb]

this lisp routine was given to me by my old co-worker. however i would like to look at the code but apparently i cant because it seems to be encrypted. please check my lily pond for the file Break.lsp

[CADaver]

Code is usually encrypted for a reason, so I am loathe to "break" someone's attempt at security. Sorry.

[dubb]

well, i had permission to have this lisp routine. its simply just a routine to draw a break symbol. however when i load the routine i receive this error.

error: bad character read (octal): 0

[CADaver]

Permission to use a specific code is different than permission to break encryption.  Contact the original owner of the code.

Express tools has a breakline function.

BTW, an octal error indicates to me some sort of font or shape error.  Do you have all the proper compiled shape files in the proper paths?

[dubb]

OK...thanks for clarifying that for me. i know that i had probably reached the line between copyright and free. but I am too aware of encrypted lisp routines. i dont know what other file could be related to this routine. its basically a line that looks like a widget's tail., if you know what i mean. anyhow its not my common practice to break codes i'd rather create my own. im pretty sure if someone finds out then i have a good explanation. may this be a lesson to all.

[CAB]

This one may not work like the one you have.
But you can modify it.

Code: [Select]

;;;===========================================
;;;      Single Line Break Symbol Creator    
;;;===========================================
;;;
;|     Created by C. Alan Butler  2003

     Yet another Break symbol creator
     Uses PloyLine created on the current layer
     Ortho Mode is up to you to pre set or not
     Symbol is proportional to the length
     and doesn't break anything
|;
 ;
(defun c:brk (/ p1 p2 p3 p4 p5 p6 dist ang usercmd)
 ;
 ; error function & Routine Exit
  (defun *error* (msg)
    (if
      (not
        (member
          msg
          '("console break" "Function cancelled" "quit / exit abort" "")
        )
      )
       (princ (strcat "\nError: " msg))
    ) ; if
    (setvar "CMDECHO" usercmd)
    (setvar "osmode" useros)
    (princ)
  ) ;
 ;end error function
  (setq oldcmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq useros (getvar "osmode"))

  (setq usercmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setvar "plinewid" 0)
  (if (and (setq p1 (getpoint "Starting point of line : "))
           (setq p6 (getpoint p1 "\nSelect second point: "))
      )
    (progn
      (setq dist (distance p1 p6)
            ang  (angle p1 p6)
            p2   (polar p1 ang (* 0.4167 dist))
            p5   (polar p1 ang (* 0.5833 dist))
            p3   (polar p2 (+ 1.25664 ang) (* 0.1667 dist))
            p4   (polar p5 (+ 4.39824 ang) (* 0.1667 dist))
      ) ;_ end of setq
      (setvar "osmode" 0)
      (command "pline" p1 p2 p3 p4 p5 p6 "") ; Draw the Z-Line
    )
  )
  (*error* "")
  (princ)
)
(prompt
  "\nBreak Symbol Creator loaded.  Type BRK to run it."
)
(princ)


[CADaver]

I should have known that Cab would have a breakline function.  I'd be surprised if he didn't have one to draw paychecks.  

[Keith™]

CADaver, that'd be my job ... I must say that I am very good at it too.....

[CADaver]

snort  

[CAB]

Print me up a few next time your printing.

[dubb]

thanks alot fellaz...this routine looks like newer code than the one i have..i think the code is faily old it was made in 1996.

[dubb]

sweet    this routine is a beauty thanks

[CADaver]

CAB's the man.  

[CAB]

Thanks folks.
I was able to run the other lisp, command BR.
It is different in that a layer is created, the Z shape is different
and the end points of the break line are extended past the actual pick points.
There are times when the extensions beyond the pick points are useful.

[dubb]

the best thing about the other lisp command "BRK" is that no matter the size of what is to be broken, the break line changes its size per the distance of the break distance. however, my routin "BR" inteferes with the autocad "break" command and its also dependent on the dimscale. having it dependent on the  dimscale can be useful but there are times when the break symbol is larger than the distance to to break. did i confuse ya?