[motata]

В предыдущих версиях при редактировании окружности точками-маркерами (GRIPS) активированная точка по умолчанию считалась базовой. В 2005 версии за базовую берется центральная, приходится ее менять, что очень раздражает...
ЗЫ: Часто встречающийся вариант, когда надо изменить некий радиус на известную величину

[MIP]

Это уже введено с Автокада 2004, переопределяй вручную или нужен лисп позволяющий изменять радиус окружности на заданную величину, еще как вариант открываешь панель свойств и изменяешь радиус окружности на необходимый.

[motata]

Проблема в том и состоит, что каждый раз переопределять утомительно, через панель свойств .... как пример: окружность радиусом 12.365421586 увеличить радиус на 3.21546. Лисп мне к сожалению не знаком но всечаще понимаю, что необходим. Других вариантов нет???

[{Smirnoff}]

_scale

[MIP]

>>Fantomas
При _scale нужно знать масштабный коэфициент, или указать опорный отрезок, обычным вводом величины изменения радиуса здесь не обойтись, дополнительно прийдется делать построения.

[Fogel]

Тоды _offset А если попроще, то _from Base point и вяжись к исходной точке.

[motata]

Ладно, усложню задачу:
Радиус исходной окружности - ?
Изменения радиуса -√2
Раньше выглядело следующим образом: активировалась точка(кроме центра) ловился поляр на 45 и забивалась 2, теперь только _from Base point.
Конечно, такое встречается реже, может _offset и спасет немного, но также не панацея

[{Smirnoff}]

Вот. Позволяет масштабировать окружности с любой базовой точкой, указывая требуемое измененение радиуса.

Код:

[Выделить все]

(defun c:drc(/ scObj cirRad basePt scDelta scFac)
  (if
    (and
      (setq scObj(car(entsel "\nSelect Circle ")))
      (= "CIRCLE"(cdr(assoc 0(setq objDXF(entget scObj)))))
      (setq cirRad(cdr(assoc 40 objDXF)))
      (setq basePt(getpoint "\nSpecify Base Point: "))
      (setq scDelta(getreal "\nSpecify Radius Delta: "))
      ); and
       (progn
	 (setq scFac(1+(/ scDelta cirRad)))
	 (command "_.scale" scObj "" basePt scFac)
	 ); end progn
    ); end if
  (princ)
  ); end of c:drc

[AY]

>Fantomas
А без (IF ...) короче можно

Код:

[Выделить все]

(defun c:drc (/ scObj cirRad basePt scDelta scFac)
    (and
        (setq scObj (car (entsel "\nSelect Circle ")))
        (= "CIRCLE" (cdr (assoc 0 (setq objDXF (entget scObj)))))
        (setq cirRad (cdr (assoc 40 objDXF)))
        (setq basePt (getpoint "\nSpecify Base Point: "))
        (setq scDelta (getdist "\nSpecify Radius Delta: "))
        (setq scFac (1+ (/ scDelta cirRad)))
        (command "_.scale" scObj "" basePt scFac)
    ) ; and 
    (princ)
) ; end of c:drc

[{Smirnoff}]

Привет! Согласен, уже на автомате пишу как будто внутри чего то большее чем один (command

[Fogel]

Сообщение от motata Ладно, усложню задачу: Радиус исходной окружности - ? Изменения радиуса -√2 Раньше выглядело следующим образом: активировалась точка(кроме центра) ловился поляр на 45 и забивалась 2...

А щас чего, не работает? Попробовал в 2005, вродь никаких проблем, увеличилась на 1,41...

[motata]

Большое спасибо за помощь.