topic Re: Dimaligned command produces "no function definition: nil" error upon completion in Visual LISP, AutoLISP and General Customization Forum

Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Mon, 08 Apr 2024 20:36:21 GMT

Hi!

I've written an AutoLISP script that helps me with some of my day-to-day activities. I'm currently running into a problem while trying to create DIMALIGNED objects.

Here's the line:

(command "dimaligned" (car (cdr (nth 0 actMlist))) (car (cdr (nth 1 actMlist))) "t" (strcat "RISE: " (rtos rise 2 2) "' \n" "RUN: " (rtos run 2 4) "' \n SLOPE: " slope "%") (car (cdr (nth 0 actMlist))))

This line executes with no problems. It creates an Aligned Dimension, changes the text as desired, and places it where I want it. However, no matter what code I put after this line, it tries to execute it as a function. I've tried replacing the last point with a pause and finishing the command with ("") at the end and (command) on the next line to no avail. Any help here would be great!

Here's a screenshot. I'll be happy to provide more information if needed.

Re: Dimaligned command produces "no function definition: nil" error upon completion

Sea-Haven — Tue, 09 Apr 2024 04:40:44 GMT

I remember "exit" not "" I seem to remember had to do with some code related to dimensions.

(command "DIM" "align" pt1 pt4 pt3 "" "exit")

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Tue, 09 Apr 2024 12:23:03 GMT

When I tried exit it said:

(command "dimaligned" (getpoint)(getpoint)(getpoint) "_exit") Command: exit Unknown command "EXIT". Press F1 for help. Command: nil

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Tue, 09 Apr 2024 12:56:33 GMT

I just tried finishing the line with:

'""

so that it looks like :

and when it finishes executing that line, it tries to re-run the function that I'm currently in.

To clarify, I type "ds1" to start the command, it runs until the error, and then it tried to run "ds1" again.

Here's a picture of the error log,

Re: Dimaligned command produces "no function definition: nil" error upon completion

wispoxy — Tue, 09 Apr 2024 13:02:28 GMT

You can't assign EXIT. It's already an autocad default.

Re: Dimaligned command produces "no function definition: nil" error upon completion

wispoxy — Tue, 09 Apr 2024 13:03:43 GMT

Why not just:

(defun c:MyDimAligned () (setq actMlist '((1 2) (3 4))) ; Replace with your actual point coordinates (setq rise 5.67) ; Replace with your actual rise value (setq run 3.45) ; Replace with your actual run value (setq slope 12.34) ; Replace with your actual slope value (setq output-string (strcat "RISE: " (rtos rise 2 2) "'\n" "RUN: " (rtos run 2 4) "'\n" "SLOPE: " (rtos slope 2 2) "%")) (princ output-string) )

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Tue, 09 Apr 2024 13:16:14 GMT

I want to use a dimaligned because it's a standard I'm tied to with my employer. At this point I'm honestly just really confused at what's happening to throw this error. It seems like the autoLISP interpreter doesn't exit the dimaligned command properly.

Making it even more perplexing, it will execute lines of code AFTER the dimaligend command UNTIL it exits the current function, here's what I mean:

(defun riseRunSlope () (setq rise (abs (- (car (nth 0 actMlist)) (car (nth 1 actMlist))))) (setq slope (rtos (* 100 (/ rise run)) 2 2)) (setq plineFlag nil) (command "dimaligned" (car (cdr (nth 0 actMlist))) (car (cdr (nth 1 actMlist))) "t" (strcat "RISE: " (rtos rise 2 2) "' \n" "RUN: " (rtos run 2 4) "' \n SLOPE: " slope "%") (car (cdr (nth 0 actMlist))) `"") (princ "\n hi \n") (princ "\n WHY?!!?!?!?!?! \n") (princ (+ 10 15)) (princ "Still executing") )

Notice that it runs all the way to the last print function and then tries to execute the text inside of the last print as a function.

Re: Dimaligned command produces "no function definition: nil" error upon completion

wispoxy — Tue, 09 Apr 2024 13:51:45 GMT

Try (exit) to end function

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Tue, 09 Apr 2024 14:09:26 GMT

@wispoxy wrote:
Try (exit) to end function

That appears to exit the entire LISP function and not just the function at the level the code is executed.

Re: Dimaligned command produces "no function definition: nil" error upon completion

marko_ribar — Tue, 09 Apr 2024 14:31:36 GMT

You don't have assigned "run" variable...

Check your code before posting...

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Tue, 09 Apr 2024 14:37:36 GMT

I just posted a snippet as the code is 200+ lines. Here's the file

Re: Dimaligned command produces "no function definition: nil" error upon completion

marko_ribar — Tue, 09 Apr 2024 15:17:26 GMT

Please, have a look how I used DIMALIGNED command... It accepts 3 points and that's all - there should be no "" at the end or anywhere inbetween specified points...

Here is the link : https://forums.augi.com/showthread.php?168619-Automatically-dimension-all-sides-and-angles-of-selected-polylines-polygons&highlight=dimaligned&p=#5

Re: Dimaligned command produces "no function definition: nil" error upon completion

Kent1Cooper — Tue, 09 Apr 2024 20:53:53 GMT

Is there any chance you're working with a redefined DIMALIGNED command? What if you force use of the native command with the period prefix?

(command ".dimaligned" ...)

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Wed, 10 Apr 2024 15:20:48 GMT

@marko_ribar wrote:
Please, have a look how I used DIMALIGNED command... It accepts 3 points and that's all - there should be no "" at the end or anywhere inbetween specified points...
Here is the link : https://forums.augi.com/showthread.php?168619-Automatically-dimension-all-sides-and-angles-of-selected-polylines-polygons&highlight=dimaligned&p=#5

I got this to work! Thank you very much!!!

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Wed, 10 Apr 2024 15:21:55 GMT

@Kent1Cooper wrote:
Is there any chance you're working with a redefined DIMALIGNED command? What if you force use of the native command with the period prefix?
(command ".dimaligned" ...)

I wasn't able to get this to work. I fixed it by using (vla-adddimaligned)

Re: Dimaligned command produces "no function definition: nil" error upon completion

Sea-Haven — Thu, 11 Apr 2024 00:34:08 GMT

I tried this in my Bricscad V20 and it worked.

(command "dimaligned" (getpoint "\nP1")(getpoint "\nP2")(getpoint "\nP3") )

Re: Dimaligned command produces "no function definition: nil" error upon completion

DerekX9SQ2 — Thu, 11 Apr 2024 15:50:20 GMT

I found and fixed the error at the end of the day yesterday! I was calling (progn) inside an (if) condition. That's why it kept trying to execute the last line of the function.

My code looked like this:

(if (= a b) ( (progn (vla-adddimaligned pt1 pt2 pt1) (setq var 1) ) ) ;else () )

when it needed to look like this:

(if (= a b) (progn (vla-adddimaligned pt1 pt2 pt1) (setq var 1) ) ;else () )

Re: Dimaligned command produces "no function definition: nil" error upon completion

Sea-Haven — Fri, 12 Apr 2024 01:04:25 GMT

You don't need a else. Sometimes I add an else or true false so can see what has happened.

(if (= a b) (progn (vla-adddimaligned pt1 pt2 pt1) (setq var 1) ) ) (if (= a b) (progn (vla-adddimaligned pt1 pt2 pt1) (setq var 1) ) (princ "\nnot =") )