[Xara]

Вот какая проблема, требующая срочного решения.
Имеется у нас несколько размеров. А необходимо извлечь из каждого его суффикс (текст пользовательский после значения размера), который значится в свойствах размера, в разделе Primary Units.
Вопрос: Как извлечь значение суффикса в лиспе?

[gomer]

зри в корень <> и отыщешь суффикс

[Do$]

Через VLA - функцией vla-get-TextSuffix.

[Xara]

Спасибо, а нельзя ли поподробнее?
Я с функциями VLA вообще не дружу

[kriolog]

Из книги Полещука:
(vl-load-com)
(setq obj (vlax-ename->vla-object (car (entsel))))
(vla-get-TextSuffix obj)

[Xara]

Отлично, спасибо!
А нельзя сделать так, чтобы лисп сам брал автоматом объект?
В частности, у меня по циклу бегает и ищет размерные примитивы в чертеже, и берет их по очереди.
Если поконкретнее, - как в строку (vlax-ename->vla-object (car (entsel)) вместо entsel вставить свой объект?
У меня это dim_edd, но он ругается:
; error: extra cdrs in dotted pair on input

[Do$]

Сообщение от Xara как в строку (vlax-ename->vla-object (car (entsel)) вместо entsel вставить свой объект?

Объект в виде чего? ENAME? VLA_OBJECT? Список после ENTSEL или ENTGET? Может вообще набор (PICKSET)?

Сообщение от Xara У меня это dim_edd

Если это ENAME, тогда так:
(vl-load-com)
(setq obj (vlax-ename->vla-object dim_edd))
(vla-get-TextSuffix obj)

[Xara]

Все, разобрался! Спасибо всем большое, вы все мне очень помогли!
Поправил в коде:
(setq vla-objj (vlax-ename->vla-object (cdr (assoc -1 dim_edd))))

Сообщение от Do$ Объект в виде чего?

Я так понимаю, что VLA_OBJECT. Но не уверен)) Объект - DIMENSION. Обычный такой размер на чертеже

[Do$]

Сообщение от Xara (setq vla-objj (vlax-ename->vla-object (cdr (assoc -1 dim_edd))))

Если вот так работает, то dim_edd - это entget-список.
Типа такого:
(setq elist (entsel "\nВыберите обычный такой размер на чертеже типа DIMENSION:")) ;Это entsel-лист
(setq ent (car entsel)) ;Это ENAME
(setq eglist (entget ent)) ;Это entget-лист
(setq obj (vlax-ename->vla-object ent)) ;Это vla-object
(setq ss (ssadd ent)) ;Это набор (PICKSET)

[Xara]

Да, именно так.
(setq sell (ssget "_X" '((0 . "DIMENSION"))))
(if (/= sell nil) (progn
(setq len_dim (sslength sell))
(command "-style" "s_geniso" "geniso,special" 0.0 0.8 "" "" "" "")
(while (> len_dim 0)
(setq dim_ent (ssname sell (setq len_dim (1- len_dim)))
dim_edd (entget dim_ent))
...

Сообщение от Do$ (setq elist (entsel "\nВыберите обычный такой размер на чертеже типа DIMENSION:")) ;Это entsel-лист (setq ent (car entsel)) ;Это ENAME (setq eglist (entget ent)) ;Это entget-лист (setq obj (vlax-ename->vla-object ent)) ;Это vla-object (setq ss (ssadd ent)) ;Это набор (PICKSET)

Спасибо, буду знать