[Игорь66]

Приходит плоский кадовский чертёж. Всё в нуле. Отметки поверхности находятся в тексте с пояснениями , например / низ канавы 17.35 / или /верх дорожного полотна 19.20/. Есть ли возможность разбить текст и выделить отметки разом? Не редактируя ручками по отдельности. Таких отметок на чертёж тысячи полторы.

[baksconstructor]

А сама отметка где ? Имею ввиду точку. И зачем разбить текст (кстати если его взорвать то он разрушится).

[P_S]

А смысл? Допустим, программно можно вытащить цифровую компоненту текста, но плановое-то его положение? Пояснительные надписи наносятся там. где есть свободное место на чертеже. Человеку понятно, к чему относится надпись, а как машине это объяснить?

[Игорь66]

baksconstructor Пусть будет в точке вставки текста. Я думаю что +- 0.5 метра не влияет на точность.
P__S а как вытащить цифровую компоненту? Это и нужно. Низ канавы в ручную ? ну оччень не хочется . Хочется чтобы откосы корректно отображались. В нужных местах и на нужную отметку.

[P_S]

Вот первое, что пришло в голову насчет вытаскивания цифры из текста (наверное, можно и лучше)

Код:

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

 (vl-load-com)
(mapcar '(lambda(x)
(setq lst(vl-string->list(cdr(assoc 1 (entget x))))
      lst1 nil)
(repeat(length lst)
  (if(or(and(<=(car lst)57)(>=(car lst) 48))(=(car lst)46))
    (setq lst1(cons(car lst)lst1)))
  (setq lst(cdr lst)))
(if lst1
  (while(=(car lst1)46)
    (setq lst1(cdr lst1))))
(if lst1
(progn(setq lst1(reverse lst1))
  (while(=(car lst1)46)
    (setq lst1(cdr lst1)))))
(if lst1
  (vla-put-TextString(vlax-ename->vla-object x)(vl-list->string lst1))))
(vl-remove-if 'listp(mapcar 'cadr(ssnamex (ssget '((0 . "TEXT")))))))

Но чтобы откосы корректно отображались, все равно придется вручную, структурными линиями, редактированием поверхности. Я же говорю: машине этого не объяснишь.

[engngr]

В примере отм. геодезии вроде без пояснений?

[Игорь66]

P_S Попробую. Спасибо.