[ity]

Зашедшим на мой вопрос доброго дня.
Не кидайте камни, уже создавал тему, но ответа и конкретики так и не получил.
Вопрос в следующем
Надо прописать Lisp в атрибуте блока, как это сделать?
Еще вопрос, есть ли лисп копирования и вставки текста, именно такой я хочу прописать в блок.

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

Сообщение от ity Надо прописать Lisp в атрибуте блока, как это сделать?

Никак. Смирись.

[ity]

Простите за назойливость, может можно решить задачу другим способом?
Надо вставить текст в атрибут блока.
Такое возможно?

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

Сообщение от ity Такое возможно?

Возможно. А в чем трудность?
P.S. Минут 10 у меня пока что есть...

[ity]

в этом и трудность. есть дин блок, надо при его вставке указывать текст который бы он прописал в атрибуте.
Такое возможно?

[ity]

Что бы получалось примерно такое как во вложении.

[Alan]

Сообщение от ity текст который бы он прописал в атрибуте

Это называется "Значение атрибута".
Из Хелпа:
Присваивает атрибуту при вставке блока.

[ity]

Вот я и хочу "Значение атрибута" не прописывать ручками а указать его на листе (кликнув мышкой на текст) и этот текст пропишется в "Значении атрибута".
Ручками не лень, но большие объемы и это очень ускорит работу

[Alan]

Не совсем понял алгоритм...
Я как-то привык давать значение атрибута при вставке блока, обычно программно. Тогда можно менять значения, например нумерацию
Ну или после вставки.
Программно можно выбрать тысячи (или несколько) блоков и занести за секунды туда в атрибут "этот текст"

[ity]

Задумка такая
Я вставляю блок и когда он спрашивает значение атрибута я указываю на текст и тогда он прописывает указанный текст в атрибуте блока

[Alan]

Сообщение от ity Я вставляю блок и когда он спрашивает значение атрибута я указываю на текст и тогда он прописывает указанный текст в атрибуте блока

См.выше п.9 тебе уже написано.
"давать значение атрибута при вставке блока, обычно программно. "
Остаётся заменить задание атрибута в командной строке, на указание текста мышкой.
Тут только возникают нюансы... а вдруг промажешь и укажешь не тот текст?
Тогда нужна команда для замены введённого атрибута, на указанный текст.
Программно сложностей особенно нет. А вот в твоём алгоритме, читай постановке задачи, проМблемки есть.

[ity]

Нет не промахнусь. а как "заменить задание атрибута в командной строке, на указание текста мышкой"?

[kp+]

Обязательно "копипастить" текст именно в процессе вставки блока? Если сделать это сразу после нее, задача существенно упрощается, даже есть готовое решение. Также есть готовое решение, чтобы копировать содержимое из сущ. текстового объекта в буфер обмена до вставки блока, а потом вставлять в ком. строку штатными средствами. Корректное прерывание команды на "копипаст", и потом корректное ее продолжение - задача, наверное, решаемая, но уже посложнее.

[ity]

Можно и сразу после вставки.
Подскажи как это решить проще?

[kp+]

Код:

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

 (defun c:kp_copy_text (/ a b b1 b_owner n) 
  (setq a (vlax-ename->vla-object (car (nentsel "Исходный текст:\n"))))
  (if (not (vlax-property-available-p a 'textstring)) (kp_copy_text))
  (setq n (vla-get-textstring a))

  (while
   (not (and
    (setq b (nentsel (strcat "Куда скопировать: (" n  ") \n")))
    (setq b1 (vlax-ename->vla-object (car b)))
    (vlax-property-available-p b1 'textstring)
   ))
  )
  
  (vla-put-textstring b1 n)

  (setq b_owner (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (last b)))
  (if b_owner (vl-cmdf "regen"))
   
  (kp_copy_text)

)

[Сергей812]

Сообщение от kp+ Корректное прерывание команды на "копипаст", и потом корректное ее продолжение - задача, наверное, решаемая, но уже посложнее.

В NetApi это достаточно несложно реализуется через JIG. Это есть скорее всего в ObjectARX, а вот в lisp - не видел подобного

[ity]

что то не работает ( Не видит куда вставлять (((

[kp+]

значения атрибутов не должны быть пустыми, там должны быть какие-то "заменители" типа *, . или еще чего-нибудь. Т.е. в описании атрибута надо заполнить чем-нибудь поле "значение".

[Alan]

По рабоче-крестьянски...
Добавил в блок vyn_block контролируемый атрибут PER (переменная часть).
Тексты стоят на чертеже, черт. на котором проверял во вложении
Вызов команды
(vyn_ins)

Код:

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

(defun vyn_ins ( / txt)
		   (command
		    "_.INSERT"
		    "vyn_block"
		    (getpoint
		      "\n Введите  точку вставки"
		    )
		    1
		    1
		    0
		    (setq txt (cdr (assoc 1 (entget (car (entsel "Выберите текст"))))))
		    ""
		   )
  (princ)
)

Естественно без проверок на ошибку указания и Esc...
Не знаю насколько это ускоряет выполнение чертежа, ведь тексты надо тоже писать на чертеж.
Но у каждого свои тараканы

[kp+]

Сообщение от Alan Не знаю насколько это ускоряет выполнение чертежа, ведь тексты надо тоже писать на чертеж.

Судя по всему, они уже написаны заранее.