ADN Club > AutoLisp / VisualLISP и DCL

Длина линии полем

(1/1)

1958:

--- Код - Auto/Visual Lisp [Выбрать] ---(setq pline (vlax-ename->vla-object (car (setq ent (entsel "\nУкажите линию >> \n")))))(setq dx (getreal "\nВведите домер >> \n")      mk (getstring t "\nВведите марку кабеля >> \n"))(setq txt (strcat mk                  "\nL = "                  "%<\\AcObjProp Object(%<\\_ObjId "                  (itoa (vla-get-objectid pline))                  ">%).Length \\f \""                  "%lu2%pr2%"                  "\">%"                  " м"          ))Как прибавить число dx к указываемой в поле длине линии?
Это вообще возможно?

Александр Ривилис:
1958,
Не забываем про форматирование кода!

Александр Ривилис:
Это возможно через выражения (AcExpr) в полях. Но я не уверен, что это будет надежно работать.
Примеры:
https://adn-cis.org/forum/index.php?topic=9854.0
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/field-formulas/m-p/3149932#M299003

1958:
Спасибо за ответ. Я долго вчера мудрил с формулой, запутался.
Мне помогли на https://forum.dwg.ru/showthread.php?t=167416

Навигация

[0] Главная страница сообщений