why do not my function ?

hi dear friends

:(pleae help me for problem in easy code:

(defun c:test4()

(defun getpoly ()

(command "area" "object" ent)

(getvar "perimeter")

)

(setq ent (car(entsel)))

)

(defun c:test4 ()
 (setq ent (car (entsel)))
 (command "area" "object" ent)
 (getvar "perimeter")
)

dear mostafa

I mean this was not, i want define multiple function in one code and use them, similar to JefferyPSanders writen for addlength,

Something like this:

(defun c:test4 ()

; ;;;--- Function to get the length of an ARC entity

(defun getArc(en)

(command "lengthen" en "")

(getvar "perimeter")

)

;;;--- Function to get the length of a LINE entity

(defun getLine(en)

(setq enlist(entget en))

(distance (cdr(assoc 10 enlist)) (cdr(assoc 11 enlist)))

)

;;;--- Function to get the length of a POLY, CIRCLE, SPLINE, OR ELLIPSE

(defun getPoly(en)

(command "area" "Object" en)

(getvar "perimeter")

)

.

.

.

.

.

)

maybe this help.

[color=red](getPoly (car (entsel)))[/color]
(defun getPoly(en)
(command "area" "Object" en)
(getvar "perimeter")
)

mostafa, red line must be the last one... Order of loading functions is also important...

M.R.

:)thanks dear mostafa & marko

my problem is solved.

Read this

http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557

Hoping gives an answer

thanks asos for help me.

thanks asos for help me.

You are most welcome

Oops thanks marko you right. the defun must be loaded firstly.

mostafa, red line must be the last one... Order of loading functions is also important...

 

M.R.

If you use VL you can Vl-get-area so will work for plines and circles also vl-get-length.

hamidciv,

Please read the Code Posting Guidelines and edit your post to include the Code in Code Tags.