[Neznayka]

Есть чертеж, в котором масса размеров. Необходимо их вытащить из Автокада и просуммировать.
Я не нашел ничего проще чем их взорвать и ctrl+c; ctrl+v .
Пробовал вытаскивать через DXF- геморрой еще тот, или у меня руки кривые.
Размеры угловые, типа <244d45’45”
Может чёто типа лиспа, когда их отщелкиваешь по одному и по вводу результат получаешь. Это на подобие лиспа для суммирования длин отрезков.

[Лентяй]

Лови, Незнайка, лиспу, ибо аз есмь добр днесь.

Код:

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

(defun deg (val)
  (* val (/ 180 pi))
)
;
(defun C:AngSum ( / ss n sum)
  (setq cmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (ssget)
  (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
	n 0 sum 0);setq
  (while (< n (vla-get-count ss))
    (if (= (vla-get-objectname (vla-item ss n)) "AcDb2LineAngularDimension")
      (setq sum (+ sum (vla-get-measurement (vla-item ss n)))));if
      (setq n (1+ n))
  );while
  (princ (strcat "Сумма всех углов: " (rtos (fix (deg sum)) 5) " град. "
		 (rtos (deg (- (deg sum) (fix (deg sum))))) " мин."))
  (terpri)
  (setvar "CMDECHO" cmd) 
);end

А ежели тебе, Незнйка, глюк либо баг некий обрящется, то пускай гуры всякие с ним борются, ибо мне - лениво.

[Neznayka]

Нет, вы не Лентяй, Вы как пчелка работаете.
Спасибо.
Пока багов не замечено.

p/s умеете же лиспы сатанинские делать в 666 байт

[hha]

и как это работает?

[Сергей812]

Сообщение от hha и как это работает?

судя по коду - выделить область c примитивами, включающую необходимые угловые размеры и ввести команду AngSum

[AlexCondor]

Как использовать лисп, опубликованный на форуме
Топаешь на угловые размеры, в конце видишь их сумму.