[Pavlos]

Возникла следующая проблема:стоял раньше АКад2002, к нему был ToolPack, который переводил дуги на чертежи в круги, т.к. ЧПУ-центр неработал по дугам. Пришлось ставить лицензию 2009, но этот ТулПак там не работает. Подскажите, где можно достать подобную утилиту.
Спасибо.

[Profan]

Команда "_JOIN" ("СОЕДИНИТЬ") может замкнуть дугу в окружность (круг).

[sbi]

Pavlos Если Ваш "ToolPack" предназначен для управления станками с числовым програмным управлением (ЧПУ), то скорей всего его нужно корректировать под 2009.

[Profan]

ToolPack ни для чего специально не предназначен, так же, как и Express Tools.

[Кулик Алексей aka kpblc]

Profan, у разных продуктов могут быть одинаковые (или по крайней мере похожие) названия. Особенно если продукт-"клон" написан под конретное предприятие.

[Profan]

А я думаю, что это тот самый ToolPack от DotSoft. Там как раз есть команда конвертации дуги в круг.

[VVA]

Pavlos, Держи конвертер

Код:

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

;;; Arc to Circle
(defun C:A2C ( / ss en ed i )
  (vl-load-com)
  (setq ss (ssget "_:L" '((0 . "ARC"))))
  (repeat (setq i (sslength ss))
    (setq en (ssname ss (setq i (1- i))))
    (setq ed (entget en))
    (setq ed (subst '(0 . "CIRCLE")'(0 . "ARC") ed))
    (mapcar '(lambda(x)
	       (setq ed(vl-remove-if '(lambda(y)(= (car y) x)) ed))
	       )
	    '(-1 330 360 5 100 50 51)
	    )
    (entmakex (append ed '((100 . "AcDbCircle"))))
    (entdel en)
    )
  (princ)
  )