topic Lisp Learning syntax error in Visual LISP, AutoLISP and General Customization Forum

Lisp Learning syntax error

GeryKnee — Sat, 22 Oct 2022 00:02:55 GMT

The following runs errorly

(defun c:xx ( / )
(Setq p0 nil)
(if (setq pt (getpoint "\nSpecify point: "))
(Progn ;;true
(setq i1 0)
if( (or (= i1 0) (/= ptHt p0) )
(Progn ;;true
(setq i1 1)
(setq p0 ptHt)
(princ 1)
);;Progn true
(Progn ;;false
(princ 2)
);;Progn false
);;if
);;Progn true
(Progn ;;false
(setq i2 0)
);;Progn false
);;if
(princ)
)

Running it i get

Command: xx
Specify point: 12; error: no function definition: nil
Command:

maybe is something simple

I think i have a large road to catch lisp knowledge

Gery

Re: Lisp Learning syntax error

annoisscary — Sat, 22 Oct 2022 00:22:25 GMT

I believe its this line here

if( (or (= i1 0) (/= ptHt p0) )

This should fix it

(defun c:xx ( / ) (Setq p0 nil) (if (setq pt (getpoint "\nSpecify point: ")) (Progn ;;true (setq i1 0) (if (or (= i1 0) (/= ptHt p0) ) (Progn ;;true (setq i1 1) (setq p0 ptHt) (princ 1) );;Progn true (Progn ;;false (princ 2) );;Progn false );;if );;Progn true (Progn ;;false (setq i2 0) );;Progn false );;if (princ) )

And again, all I did was correct the typos on the one line to read:

(if (or (= i1 0) (/= ptHt p0) )

Re: Lisp Learning syntax error

GeryKnee — Sat, 22 Oct 2022 00:29:18 GMT

Sorry

ptHt is Pt

:::

(defun c:x2 ( / )
(Setq p0 nil)
(if (setq pt (getpoint "\nSpecify point: "))
(Progn ;;true
(setq i1 0)
if( (or (= i1 0) (/= pt p0) )
(Progn ;;true
(setq i1 1)
(setq p0 pt)
(princ 1)
);;Progn true
(Progn ;;false
(princ 2)
);;Progn false
);;if
);;Progn true
(Progn ;;false
(setq i2 0)
);;Progn false
);;if
(princ)
)

Does the same

Re: Lisp Learning syntax error

annoisscary — Sat, 22 Oct 2022 00:45:24 GMT

Again, same typo. its this line,

if( (or (= i1 0) (/= pt p0) ) ;Needs to be, (if(or(= i1 0)(/= pt p0))

Re: Lisp Learning syntax error

calderg1000 — Sat, 22 Oct 2022 03:18:24 GMT

Regards @GeryKnee

It's worth the try, soon you will surely be coding better. Nested Ifa can get a bit confusing.

Although it is not very clear what you are trying to do, but I have tried to interpret your code a bit and verify that there are some lines that are not going to be executed. Because your first conditional will always be true, and the result will be equal to 1

(defun c:x2 (/ ) (Setq p0 nil) (if (setq pt (getpoint "\nSpecify point: "));;;here you must enter a condition that evaluates: true false (Progn ;;true (setq i1 0) ;;;if( (or (= i1 0) (/= pt p0) );;a parenthesis is missing here (if (or (= i1 0) (/= pt p0)) ;;This condition will always be true, therefore the other lines will not be evaluated. (Progn ;;true (setq i1 1) (setq p0 pt) (princ 1) ) ;;Progn true ;;;-----------------------------will never be evaluated (Progn ;;false (princ 2) ) ;;Progn false );;if ;;;-----------------------------will never be evaluated );;End Progn true (Progn ;;false (setq i2 0) );;Progn false );;if ;;;-----------------------------will never be evaluated (princ) )

Re: Lisp Learning syntax error

GeryKnee — Sat, 22 Oct 2022 11:59:56 GMT

Thank You Sir

I saw that the prpblem was that i started a code προταση without using "( " on start.

That's because i write codes in pascal.

I found an online list compiler :

https://www.tutorialspoint.com/execute_lisp_online.php

but i wasn't able to use it

Maybe i must try again to do it.

Thanks,

Gery

Re: Lisp Learning syntax error

calderg1000 — Sat, 22 Oct 2022 14:21:30 GMT

Dear @GeryKnee

To code interactively, you have the visual lisp editor and as of 2021, VSCode

Here you have information

https://knowledge.autodesk.com/es/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2021/ESP/AutoCAD-Core/files/GUID-5601ACC6-C4F6-4375-9C2C-3DBCAE2880B1-htm.html

Re: Lisp Learning syntax error

Sea-Haven — Sun, 23 Oct 2022 04:46:42 GMT

Notepad++ has a run code from current file, did use it all the time and as I have said before has bracket checking.

I write most code not spaced but i think for you may be worthwhile to make it easier to see where stuff starts and finishes. This is notepad++ note the red brackets doing auto checking. Just put mouse on bracket and opposite end will be shown.