hi firends
sorry many ask ~~
i made with other code
but there is some problem
i need good label
i attached dwg file
pls pls can you help again ?
(defun c:muoff (/ s i d p v)
(setvar "DIMTMOVE" 1)
(setvar "DIMATFIT" 0)
(setvar "DIMTOFL" 0)
(setvar "DIMTAD" 1)
(if (and (setq s (car (entsel "\n Select entity :")))
(member (cdr (assoc 0 (entget s))) '( "CIRCLE" ))
(setq i (getint "\n number of offset times :"))
(setq d 500)
(setq p (getpoint "\n Specify point on side to offset :"))
(setq v d)
)
(repeat i
(command "_.offset" d s p "")
(setq enl (entlast) )
(setq elist (entget enl)
cp (cdr (assoc 10 elist))
rad (cdr (assoc 40 elist))
pt (trans (polar cp (/ pi -2) rad) 1 0))
(vl-cmdf "_.dimradius"
(ssname (ssget pt '((0 . "circle"))) 0)
pt
)
(setq d (+ d v))
)
)
(princ)
)