TotalArea, TotalPerim Lisp Err
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 Here are some alternatives: Total Length & Area Programs. Another one with combination of both :
(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)) 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...
页:
[1]