Code Red => AutoLISP (Vanilla / Visual) => Topic started by: dussla on July 30, 2020, 12:20:04 AM
Title: offset label probelm
Post by: dussla on July 30, 2020, 12:20:04 AM
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) )
Title: Re: offset label probelm
Post by: DEVITG on July 30, 2020, 05:02:59 PM
Hi Dussla , do you mean label to be TEXT , and not DIMENSION_
Title: Re: offset label probelm
Post by: Dlanor on July 30, 2020, 06:58:42 PM