[1958]

Код:

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

  (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 к указываемой в поле длине линии?
Это вообще возможно?

[Кулик Алексей aka kpblc]

Попробуй создать подобное поле руками, и потом просто повторяй аналог у себя.

[1958]

Сообщение от Кулик Алексей aka kpblc Попробуй создать подобное поле руками

Пробую. Где и как добавить число к длине линии?

[Кулик Алексей aka kpblc]

Формулу создавать, скорее всего

[koMon]

Код:

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

 (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 = "
      "%<\\AcExpr (%<\\AcObjProp Object(%<\\_ObjId " 
      (itoa (vla-get-objectid pline))
      ">%).Length>%+"
      (rtos dx)
      ") \\f \"%lu2%pr2\">%"
      " м"
          )
)

[1958]

koMon
Спасибо! Я вчера долго мудрил, но напутал со скобками и не думал, что dx надо перевести в символьное значение.