[RSD]

не знаю возможны ли математические операции в Акаде?
говорят в ЛИСП можно, а я не разбираюсь в ЛИСП, потому прошу мне помочь
стоит задача такого рода: на чертеже стоит размер, причем его значение берется из text override (напр 100) нужно чтобы к данному значению прбавилось значение другого размера (напр 40) и из этой суммы вычиталось еще значение (напр 5 задается вручную)

[vk]

....полученное значение забыть и никому не говорить....
(с) не помню чей

В принципе, сделать можно.
Если text override отсутствует или содержит не только число - тады как?

[fixo]

Сообщение от RSD не знаю возможны ли математические операции в Акаде? говорят в ЛИСП можно, а я не разбираюсь в ЛИСП, потому прошу мне помочь стоит задача такого рода: на чертеже стоит размер, причем его значение берется из text override (напр 100) нужно чтобы к данному значению прбавилось значение другого размера (напр 40) и из этой суммы вычиталось еще значение (напр 5 задается вручную)

Спробуй, может подойдет:

Код:

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

(defun C:tdm ()
(or adoc (setq adoc (vla-get-activedocument 
              (vlax-get-acad-object))))
(vla-endundomark adoc)
(vla-startundomark adoc)
(setq dm1 (vlax-ename->vla-object
	   (car (entsel
		  "\nВыбрать размер для экзекуции>>>\n"))))
(if (eq (vla-get-textoverride dm1) "")
  (setq item1 (vl-prin1-to-string (vla-get-measurement dm1)))
  (setq item1 (vla-get-textoverride dm1)))

(setq dm2 (vlax-ename->vla-object
	   (car (entsel
		  "\nКакой размер прибавим (Выбрать второй размер)>>>\n"))))
(if (eq (vla-get-textoverride dm2) "")
  (setq item2 (vl-prin1-to-string (vla-get-measurement dm2)))
  (setq item2 (vla-get-textoverride dm2)))
  
(setq item3 (getreal "\nСколько добавим (Введите число)?"))
(if (and item1 item2 item3)
(progn
(if (vlax-write-enabled-p dm1)     
(vlax-put-property  dm1
  'Textoverride
(- (apply '+ (mapcar 'atof (list item1 item2))) item3)))
(vla-update dm1)
(mapcar 'vlax-release-object  (list dm1 dm2))))
(vla-endundomark adoc)        
(princ)
)

[RSD]

Спасибо
работает!!!

[Vook]

Может с помощью полей это организовать?

[fixo]

Сообщение от Vook Может с помощью полей это организовать?

Очень бы хотелось посмотреть одним глазом
Осчастливь собрата по несчастью

Fatty