That works, but I needed it to label the length of the arc, not the radius.
Is it posible to modify that routine to do that.
I have little LISP programming experience...
Thanks for your help!
Rich
"tcebob" wrote in message
news:4835906@discussion.autodesk.com...
Try this. Maybe some lines got folded in the transmission.
rs
"Rich Banker" wrote in message
news:4835660@discussion.autodesk.com...
When I try to run it, I get the error message "error: malformed list on
input"
What does that mean, and is it possible to fix?
Thanks for your help, I really appreciate it!
Rich
"tcebob" wrote in message
news:4835343@discussion.autodesk.com...
Try this:
(defun c:darc( / osm ar arc rad pt1 pt2) ; Dim. Arc (f
or "R25'")
(setvar "peditaccept" 1)
(setq osm (getvar "osmode"))
(setvar "osmode" 512) ;near
(while
(setq ar(entsel "\nSelect an arc where you want to place the text: "))
(setq arc (entget (car ar)))
(if(member(cdr(assoc 0 arc))'("CIRCLE" "ARC"))
(progn
(setq rad (cdr(assoc 40 arc)))
(setq pt1 (cadr ar))
(setq pt2 (getpoint "\nPick a direction (NEAR)" ))
(if (= (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
(command "text" "J" "bl" pt1 "" pt2
(strcat "R" (rtos rad 2 2)))
(command "text" "J" "bl" pt1 pt2 (strcat "R" (rtos rad 2 2)))
)
) ;progn
(princ "\nNot a CIRCLE or ARC")
) ;if
) ;while
(setvar "osmode" osm)
You can alter it to read L= . . .
rs
"Rich Banker" wrote in message
news:4835194@discussion.autodesk.com...
Does anyone have a lisp routine that will label the length of an arc and
place the annotation to read L=length' along the arc?
I'm using Autocad 2004.
Thanks for a
ny help you can give!
Rich