TotalArea, TotalPerim Lisp Err

asami586 · 发表于 2022-7-5 16:44:01

I got these LISP file at http://gile.pagesperso-orange.fr/LISP.html
(Always Thanks Mr. GileCAD)
But these Lisp don't work for me.
When I command, I got the following messages.

-----------------------------------------------------------------------------------------------------------

Command: perimbox
Param?res courants : PERIMCONV = 1 PERIMPREC = 4
Erreur: too many arguments

-----------------------------------------------------------------------------------------------------------

Command: totalarea Unknown command "TOTALAREA". Press F1 for help.
Command: areabox ; error: no function definition: C:TOTALAREA

-----------------------------------------------------------------------------------------------------------

What's the problem?
Please Help me!
TotalArea.zip
TotalPerim.zip

Lee Mac · 发表于 2022-7-5 17:14:51

Here are some alternatives: Total Length & Area Programs.

satishrajdev · 发表于 2022-7-5 17:32:53

Another one with combination of both :

copy

(DEFUN C:CAREA (/ A B C O P) (IF (SETQ A (SSGET '((0 . "*LINE,CIRCLE,ELLIPSE,HATCH"))))   (PROGN     (SETQ B 0.    P 0.     )     (REPEAT (SETQ I (SSLENGTH A))(SETQ O (VLAX-ENAME->VLA-OBJECT (SSNAME A (SETQ I (1- I)))))(SETQ B (+ B (VLA-GET-AREA O)))(SETQ P (+ P (VLA-GET-LENGTH O)))     )     (SETQ C (STRCAT "\nTotal Area :- \n\n\tIn Meters = "              (RTOS B 2 4)              " Sq.Mtr\n\n\tIn Acre = "              (RTOS (* B 0.000247104393) 2 4)              " Acre\n\nTotal Perimeter :- \n\n\tIn Meters = "              (RTOS P 2 4)              "m"      )     )     (PROMPT C)     (ALERT C)   ) ) (PRINC))

gile · 发表于 2022-7-5 18:00:54

These LISP routines do work (and are daily used by many people), but if you're using AutoCAD LT (as shown in your profile) you cannot use any LISP.

PS: I also tried to reply you in your double post at TheSwamp.
PPS: to Lee and Satishrajdev, just have a look at theses codes, you'll see these routines does much more than printing values in the command line...

[编程交流] TotalArea, TotalPerim Lisp Err

发表回复

精选推荐