[olga87]

Здравствуйте уважаемые программисты!
Подскажите пожалуйста, ниже приведен код лиспа (autocad 2008), который должен поворачивать размерный текст на заданный угол для всех выбранных размеров. Но в результате текст поворачивается только для последнего из выбранных размеров. Помогите исправить код? Спасибо.

(defun c:rtdimt ()
(prompt "\nВыберите размеры: ")
(if (setq dim_t (ssget '((0 . "*DIMENSION"))))
(command "_.dimtedit" dim_t "_a")
)
(princ)
)

[Krieger]

Команда dimtedit работает только с одним размером, поэтому её нужно повторять для каждого.

Код:

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

(defun c:rtdimt (/ index dim_t p1 p2 name)
  	(setq index -1)
	(prompt "\nselect dimension: ")
		(if (setq dim_t (ssget '((0 . "*DIMENSION"))))
			(progn
			    (setq p1 (getpoint "\nselect first point of angle")
				  p2 (getpoint p1 "\nselect second point of angle"))
			    (repeat (sslength dim_t)
			      (setq index (1+ index)
				    name (ssname dim_t index))
			      (command "_.dimtedit" name "_a" p1 p2)
			     );repeat
			(princ)
			);progn
		  );if
  );defun

[olga87]

Спасибо за помощь!