topic Re: Need help to solve an error in lisp in Visual LISP, AutoLISP and General Customization Forum

Need help to solve an error in lisp

smallƑish — Fri, 15 Dec 2023 17:05:39 GMT

in this code, if the routine is canceling or stopped due to invalid values, the Object snap is getting 0. any solution to set back the osnap to user_osmode in all situations?

(defun c:D2E () (setq user_osmode (getvar"osmode")) (setvar "osmode" 512) (prompt "\nPick Outer Side of Main Duct: ") (setq en1: (entsel)) (prompt "\nPick Inner Side of Main Duct: ") (setq en2: (entsel)) (menucmd "s=numb_n")(SETQ CFM:M (GETREAL "\nMAIN CFM"))(menucmd "s=") (prompt "\nPick Inner Side of FIRST Branch Duct: ") (setq en3: (entsel)) (prompt "\nPick Outer Side of FIRST Branch Duct: ") (setq en4: (entsel)) (menucmd "s=numb_n")(SETQ CFM:B1 (GETREAL "\nCFM of BRANCH 1: "))(menucmd "s=") (prompt "\nPick INNER Side of SECOND Branch Duct: ") (setq en5: (entsel)) (prompt "\nPick OUTER Side of SECOND Branch Duct: ") (setq en6: (entsel)) (SETQ CFM:B2 (- cfm:m cfm:b1)) (setvar "osmode" 0) (M:ELBOW EN1: EN2: EN3: EN4: CFM:B1 NIL r_o_d:1) (SETQ LP:1 EN1:PP LP:A EN2:PP A:A A:1) (COMMAND "LINE" LP:1 (POLAR LP:1 A:A (- 1)) "") (SETQ EN?: (list (ENTLAST) LP:1)) (M:ELBOW EN1: EN?: EN5: EN6: CFM:M 1 r_o_d:2) (SETQ LP:2 EN2:PP LP:B EN1:PP A:B A:1) (SETQ 😧 (DISTANCE LP:1 LP:2) )(IF (/= 😧 0)(PROGN (IF (= (ANGTOS (ANGLE LP:1 LP:2) 0 0) (ANGTOS A:A 0 0))(COMMAND "PLINE" LP:1 (POLAR LP:A A:A D:) "")(COMMAND "PLINE" LP:1 (POLAR LP:B A:A D:) "") ) ) ) (setvar "osmode" user_osmode) )

Re: Need help to solve an error in lisp

Kent1Cooper — Fri, 15 Dec 2023 17:16:54 GMT

This is what *error* handling is for. Search for:

(defun *error*

in this Forum for many examples.

Re: Need help to solve an error in lisp

rkmcswain — Fri, 15 Dec 2023 17:35:22 GMT

@smallƑish - you can read all about. error handling in autolisp here.

Re: Need help to solve an error in lisp

ВeekeeCZ — Fri, 15 Dec 2023 18:34:42 GMT

Here, it is missing some variable and possibly more.

(SETQ some-variable-here (DISTANCE LP:1 LP:2)
)

(IF (/= 0)(PROGN
(IF (= (ANGTOS (ANGLE LP:1 LP:2) 0 0) (ANGTOS A:A 0 0))(COMMAND "PLINE" LP:1 (POLAR LP:A A:A D:) "")(COMMAND "PLINE" LP:1 (POLAR LP:B A:A D:) "")
)
)
)

Re: Need help to solve an error in lisp

smallƑish — Fri, 15 Dec 2023 18:55:02 GMT

tried, But not that

Re: Need help to solve an error in lisp

ВeekeeCZ — Fri, 15 Dec 2023 19:07:37 GMT

The syntax seems right. You need to provide a sample drawing and describe what should be selected and what values should be entered.

(defun c:d2e ()
  (setq user_osmode (getvar"osmode"))
  (setvar "osmode" 512)
  
  (prompt "\npick outer side of main duct: ")
  (setq en1: (entsel))
  
  (prompt "\npick inner side of main duct: ")
  (setq en2: (entsel))
  
  (menucmd "s=numb_n")
  (setq cfm:m (getreal "\nmain cfm"))
  (menucmd "s=")
  
  (prompt "\npick inner side of first branch duct: ")
  (setq en3: (entsel))
  
  (prompt "\npick outer side of first branch duct: ")
  (setq en4: (entsel))
  
  (menucmd "s=numb_n")
  (setq cfm:b1 (getreal "\ncfm of branch 1: "))
  (menucmd "s=")
  
  (prompt "\npick inner side of second branch duct: ")
  (setq en5: (entsel))
  
  (prompt "\npick outer side of second branch duct: ")
  (setq en6: (entsel))
  
  (setq cfm:b2 (- cfm:m cfm:b1))
  (setvar "osmode" 0)
  
  (m:elbow en1: en2: en3: en4: cfm:b1 	nil 	r_o_d:1)
  
  (setq lp:1 en1:pp
	lp:a en2:pp
	a:a a:1)
  
  (command "line" lp:1 (polar lp:1 a:a  (- 1)) "")
  (setq en?: (list (entlast) lp:1))
  
  (m:elbow en1: en?: en5: en6: cfm:m 	1 	r_o_d:2)
  
  (setq lp:2 en2:pp
	lp:b en1:pp
	a:b a:1)
  (setq var (distance lp:1 lp:2))
  
  (if (/=  0)
    (progn
      (if (= (angtos (angle lp:1 lp:2) 0 0)
	     (angtos a:a 0 0)
	     )
	(command "pline" lp:1 (polar lp:a a:a d:) "")
	(command "pline" lp:1 (polar lp:b a:a d:) "")
	)
      )
    )
  (setvar "osmode" user_osmode)
  )

Re: Need help to solve an error in lisp

smallƑish — Fri, 15 Dec 2023 19:20:52 GMT

Please find attached

gif( for working)

complete lisp file

and sample dwg

Re: Need help to solve an error in lisp

ВeekeeCZ — Fri, 15 Dec 2023 21:23:10 GMT

Well, it works for me.

Although... you should definitely start systematically localizing all the variables, add *error* function to make sure that you reset all the sysvars that you have touched, and somehow solve or remove all those first 20 lines that are not part of any defun.

If you keep on programming with this mess, you'll see these flaws more and more often and never know what causes them and what interferes with what.

Also, compare my formatting and your mess. Make your code nice and clean. It will help you see the issues more easily.

Re: Need help to solve an error in lisp

smallƑish — Sat, 16 Dec 2023 02:29:23 GMT

My copy-paste attitude made the file a little mess. Please accept my apology.

I have a final question. For example, if you select all 5 lines correctly, and the 6th line made a selection of 1st line (by mistake)(as per the attached gif the second time command run) still you are getting back to user_osmode?

Re: Need help to solve an error in lisp

Sea-Haven — Sat, 16 Dec 2023 07:09:44 GMT

Read my post Again & Again I think 3rd time I made a suggestion about dragging over the lines in sequence, stops the miss picks.

If an administrator reads this, needs like the 3 separate posts to be merged into 1 so conflicting answers are not being provided.

Re: Need help to solve an error in lisp

ВeekeeCZ — Sat, 16 Dec 2023 11:33:25 GMT

@smallƑish wrote:

... For example, if you select all 5 lines correctly, and the 6th line made a selection of 1st line (by mistake)(as per the attached gif the second time command run) still you are getting back to user_osmode?

In that case you need to add *error* function that will restore it.

Here is some example... note that *error* IS and NEEDS to be localized. Just the purple line is essential, the rest can always be the same.

Also note the structure...

(if (and (pick first point...)

(pick second point...)

(pick third point...)

)

(do stuff)

)

... so it's doing the stuff only if the user sets all the points...

(defun c:LMID ( / *error* osm 1a 1b 1m 2a 2b 2m)
  
  (defun *error* (errmsg)
    (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break,end"))
      (princ (strcat "\nError: " errmsg)))
    (if osm (setvar 'osmode osm))
    (princ))
  
  (setq osm (getvar 'osmode))
  (setvar 'osmode 512)
  
  (if (and (setq 1a (getpoint "\nPoint 1a: "))
	   (setq 1b (getpoint 1a "\nPoint 1b: "))
	   (setq 1m (mapcar '/ (mapcar '+ 1a 1b) '(2 2)))
	   (setq 2a (getpoint "\nPoint 2a: "))
	   (setq 2b (getpoint 2a "\nPoint 2b: "))
	   (setq 2m (mapcar '/ (mapcar '+ 2a 2b) '(2 2)))
	   )
    (progn
      (command "_.line" "_non" 1m "_non" 2m "")
      (princ "\n>> LINE")))
  (if osm (setvar 'osmode osm))
  (princ)
  )