Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: 1958 от 21-01-2023, 18:06:35

Название: Длина линии полем
Отправлено: 1958 от 21-01-2023, 18:06:35
Код - Auto/Visual Lisp [Выбрать]
  1. (setq pline (vlax-ename->vla-object (car (setq ent (entsel "\nУкажите линию >> \n")))))
  2. (setq dx (getreal "\nВведите домер >> \n")
  3.       mk (getstring t "\nВведите марку кабеля >> \n")
  4. )
  5. (setq txt (strcat mk
  6.                   "\nL = "
  7.                   "%<\\AcObjProp Object(%<\\_ObjId "
  8.                   (itoa (vla-get-objectid pline))
  9.                   ">%).Length \\f \""
  10.                  "%lu2%pr2%"
  11.                  "\">%"
  12.                   " м"
  13.           )
  14. )
Как прибавить число dx к указываемой в поле длине линии?
Это вообще возможно?
Название: Re: Длина линии полем
Отправлено: Александр Ривилис от 21-01-2023, 19:50:17
1958,
Не забываем про форматирование кода!
Название: Re: Длина линии полем
Отправлено: Александр Ривилис от 21-01-2023, 19:52:00
Это возможно через выражения (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
Название: Re: Длина линии полем
Отправлено: 1958 от 22-01-2023, 07:11:46
Спасибо за ответ. Я долго вчера мудрил с формулой, запутался.
Мне помогли на https://forum.dwg.ru/showthread.php?t=167416