get text and dimensions lisp routine in not working in BricsCAD

AvinashPatil

Hi

I have a Lisp routine for AutoCAD but this routine is not working in BricsCAD.

In this routine select all dimension and then select all text it will give us all cumulative values as a text.

Thanks,

Avinash

GETTEXT SAMPLE.dwg

Uploaded Apr 3, 2025306.64 KB

GetText.lsp

Uploaded Apr 3, 20251.15 KB

ALANH

My attempt.

(defun c:gettext (/ sset sum typ val)
(prompt "\nSelect all dimensions and all corresponding texts...")
(setq sset (ssget '((0 . "dimension,*text"))))

(if (= sset nil)
(progn (alert "No text or dims found \nwill now exit"))
)

(setq sum 0)
(repeat (setq x (sslength sset))
(setq ent (entget (ssname sset (setq x (1- x)))))
(setq typ (cdr (assoc 0 ent)))
(if (or (= typ "TEXT")(= typ "MTEXT"))
(setq val (atof (cdr (assoc 1 ent))))
(setq val (atof (cdr (assoc 1 ent))))
)
(setq sum (+ sum val))
)

(alert (strcat "Total is " (rtos sum 2 2)))
(princ)
)

AvinashPatil

Thanks for your reply,

I need cumulative dimensions as a text modification in down lined text

Virgil

Hello.

In Autocad, the error is:
; error: too few arguments

Beside this, there are quite a few errors in the code.

The parentheses are not paired correctly, and some of them are doubled.

The variable successive_sum is also used as a function - a function that is not defined.

I attached a modified version that works.

I only corrected the errors mentioned above.
I am not sure about the logic - this needs to be checked further.

GetText_new.lsp

Uploaded Apr 4, 20251.12 KB

AvinashPatil

Hi

Thanks for reply

you didn't get my routine I have attached CAD drawing. I need cumulative dimension as a text at the below.

In AutoCAD it works perfectly.

Avinash Patil

GETTEXT SAMPLE.dwg

Uploaded Apr 7, 2025185.55 KB

Virgil

Hello.

I used the lisp attached in the first message, namely GetText.lsp.

I understood that the requirement is to calculate some sort of cumulative sum.

Unfortunately, in Autocad, that lisp script doesn't work at all.
I tested with Autocad 2025.

In Autocad 2025, the error is:
; error: too few arguments

There are a few reasons for which Autocad fails to run the script:

-- The parentheses are not paired correctly.

-- Some parentheses are doubled - see ((rtos)).

-- The cumulative sum function is missing.
Instead, the variable successive_sum is used as function - this won't work, even in Autocad.

The solution would be to, first, correct the syntax.
You could use the script I posted as a start point.

Then, you need to add the definition of the cumulative function.
You could use the example provided by ALANH.

Virgil

Hello.

Just to exemplify a summing function, I attached a new version of the script where I added a new function.

This new function is not present in the original script, I created it from scratch.

GetText_new_2.lsp

Uploaded Apr 7, 20251.45 KB

AvinashPatil

Thanks for your prompt reply, It works great