topic Re: lisp program error in Visual LISP, AutoLISP and General Customization Forum

lisp program error

MKH-VB — Thu, 14 Apr 2016 21:29:59 GMT

got a simple lisp that i use quite a bit. Works fine in 2014, but get a "bad argument type" when trying to use in 2016. I've attached incase someone is interested in trying to fix it. Thanks

Re: lisp program error

hmsilva — Fri, 15 Apr 2016 18:13:58 GMT

@MKH-VB wrote:

got a simple lisp that i use quite a bit. Works fine in 2014, but get a "bad argument type" when trying to use in 2016. I've attached incase someone is interested in trying to fix it. Thanks

Hi MKH-VB,

I don't have 2016 in this laptop, to test your code, but in 2015 it runs without an error.

If I'm not mistaken, in 2016 the QUIck snap mode, does not exist...

Try to change

(setq pt1 (osnap (cadr first) "qui,end")
pt2 (osnap (cadr second) "qui,end")
)

(setq pt1 (osnap (cadr first) "end")
pt2 (osnap (cadr second) "end")
)

Hope this helps,
Henrique

Re: lisp program error

Kent1Cooper — Fri, 15 Apr 2016 18:58:53 GMT

You might be interested in the routine I wrote partially in response to a shortcoming in that one, available here [see the first Comment about the shortcoming]. It also offers additional options for what to draw across the end, and has other benefits [for instance, it requires the ends to be parallel and aligned, whereas endpipe.lsp will let you pick ends that aren't, and will draw a skewed thingie]. Read the description there, and the commentary at the top of the file.

Re: lisp program error

MKH-VB — Mon, 18 Apr 2016 13:42:10 GMT

Henrique....
I removed the qui and then the program output changes. It tries to draw the arcs, but they are not drawn correctly. thanks for the reply.

Re: lisp program error

hmsilva — Mon, 18 Apr 2016 13:56:28 GMT

Hi mkh,

and like this, it works as expected?

(defun c:endpipe (/ plwid first second pt1 pt2 ang dis pt3 layr entl)
 (setq olderr *error* *error* pipe_err)
 (setq plwid (getvar"plinewid"))
 (setvar"plinewid" 0)
 (while (not
  (setq first (entsel "\nPick first endpoint: ")))
  (prompt "\nNo endpoint found. ")
 )
 (while (not
  (setq second (entsel "\nPick second endpoint: ")))
  (prompt "\nNo endpoint found. ")
 )
 (if second
  (progn
   (setq pt1 (osnap (cadr first) "end")
         pt2 (osnap (cadr second) "end")
   )
   (setq ang (angle pt1 pt2)
         dis (distance pt1 pt2)
         pt3 (polar pt1 ang (/ dis 2.0))
   )
   (command "pline" "_NON" pt1 "arc" "a" "100" "_NON" pt3 "_NON" pt2 "a" "-100" "_NON" pt3 ""))
  )
  (setq layr (cdr (assoc 8 (entget (car first)))) 
        entl (entget (entlast))
  )
  (setq entl (subst (cons 8 layr)(assoc 8 entl) entl))
  (entmod entl)
  (setvar "plinewid" plwid)
  (setq *error* olderr)
 (princ)
)


(defun pipe_err (s)                    
 (if (/= s "Function cancelled")
  (princ (strcat "\nError: "s))
 )
 (setvar"plinewid" plwid)
 (if olderr (setq *error* olderr))
 (princ)
)

Hope this helps,
Henrique

Re: lisp program error

MKH-VB — Mon, 18 Apr 2016 14:01:34 GMT

yes, thank you so much!

Re: lisp program error

hmsilva — Mon, 18 Apr 2016 14:02:45 GMT

@MKH-VB wrote:
yes, thank you so much!

You're welcome, mkh!
Glad I could help

Henrique

Re: lisp program error

Kent1Cooper — Mon, 18 Apr 2016 15:28:33 GMT

@Kent1Cooper wrote:

.... the routine I wrote partially in response to a shortcoming in that one, available here [see the first Comment about the shortcoming]. It also offers additional options for what to draw across the end, and has other benefits [for instance, it requires the ends to be parallel and aligned, whereas endpipe.lsp will let you pick ends that aren't, and will draw a skewed thingie]. ....

Some of the kinds of inappropriate results that endpipe can give you ["facing" the wrong way, accepting non-aligned or non-parallel objects], that the Pipe option in CapEnd.lsp [in the link] was designed to prevent:

Re: lisp program error

MKH-VB — Mon, 18 Apr 2016 15:31:38 GMT

Kent....
I tried yours this morning. It is great! Thanks for the tip.
MKH

Re: lisp program error

_Tharwat — Mon, 18 Apr 2016 17:16:57 GMT

Hi,

A bit late to the party, try this old program of mine FROM HERE