[Ingpro]

Есть лисп, который показывает имя блока в командной строке. Подскажите, пожалуйста, как имя вставить в чертёж.

Код:

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

 (defun c:EFF_NAME (/ command_interrupted entity_selected)
    (while (not command_interrupted)
        (setq entity_selected (vl-catch-all-apply 'entsel (list "\nВыберите блок: ")))
        (cond
            (
                (vl-catch-all-error-p entity_selected)
                    (setq command_interrupted t)
            )
            (
                (null entity_selected)
            )
            (
                t
                    (if (= "AcDbBlockReference" (vla-get-objectname (vlax-ename->vla-object (car entity_selected))))
                        (princ (vla-get-effectivename (vlax-ename->vla-object (car entity_selected))))
                    )
            )
        )
    )
    (princ)
)

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

Полем Ну или вместо (princ .. создавать объект текста.
Я бы предпочел первый вариант, скорее всего.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Полем Ну или вместо (princ .. создавать объект текста.

Нет, полем не надо, просто текст, как это добавить в лисп, я не справлюсь...

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

Ну как создаются текстовые объекты - знаешь? Я про программное создание, естественно.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc как создаются текстовые объекты - знаешь? Я про программное создание

Совсем не в теме, поэтому прошу помощи у профи...

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

Дык ета... Попробуй сначала командными методами, а потом - великий и узасный гугел https://www.google.com/search?q=auto...BA%D1%81%D1%82 покажет массу примеров. Попробуй разобраться.
Offtop: Можешь найти в глубинах форума книгу "САПР на базе" - там где-то в самом начале вроде были коды, показывающие, как создавать тексты. Правда, это чтение не на одну неделю.

[Ingpro]

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

Ок, Алексей...

[Ingpro]

Вот такое описание текста:
Текущий стиль текста: "Standard" Высота текста: 250
Аннотативный: Нет Выравнивание: сЛева
Угол поворота текста <0>: 0

Код:

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

  (progn 
      (if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0.0) ;_ end of =
        (progn ;; нулевая высота текста
   (setq txt_height 250)
          (vl-cmdf "_.TEXT" "0,0" txt_height 0 (rtos res 2))) ;_ end of progn
        (progn ;; фиксированнная высота
          (vl-cmdf "_.TEXT" "0,0" 0 txt (rtos res 2))) ;_ end of progn
         )
      (command "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) 
      ) ;_ end of progn 
    ) ;_ end of if 
   (princ) 
  )

А как его прикрутить к имени блока? Подскажите, плз…
Наверное, надо имя выбранного блока скопировать в буфер, а затем вставить в чертёж?

[koMon]

Сообщение от Ingpro имя вставить в чертёж

Код:

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

 
(defun c:EFF_NAME (/ command_interrupted entity_selected)
    (while (not command_interrupted)
        (setq entity_selected (vl-catch-all-apply 'entsel (list "\nВыберите блок: ")))
        (cond
            (
                (vl-catch-all-error-p entity_selected)
                    (setq command_interrupted t)
            )
            (
                (null entity_selected)
            )
            (
                t
                    (if (= "AcDbBlockReference" (vla-get-objectname (vlax-ename->vla-object (car entity_selected))))
		      		(progn
			      		(setq text_insertion_point (getpoint (setq text_string (vla-get-effectivename (vlax-ename->vla-object (car entity_selected))))))
			      		(vla-addtext (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
					    	 text_string
				  	     	(vlax-3d-point (trans text_insertion_point 1 0))
				  	    	 2.5	;	высота текста
	                         		  
	            			)
		  		)
                    )
            )
        )
    )
    (princ)
)

[Ingpro]

koMon, спасибо большое за помощь!
Имя блока вставляет, но почему-то в ком. строке странная запись:
Команда: EFF_NAME
Выберите блок: A$C755D3A91
Может опять рус-версия?
В принципе это не мешает, просто интересно...

[koMon]

ятд это неверный копипаст и это скорее всего вот такое приглашение выбрать блок)

----- добавлено через ~32 мин. -----
или сохранение кода в экзотической кодировке.

[Ingpro]

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

А этот копипаст не вредит ничему?

[koMon]

как копипаст может навредить? откройте сохранённый лисп в текстовом редакторе, убдитесь, что приглашение выбрать блок читается на русском языке и сохраните его в текстовой кодировке ansi.

[Ingpro]

Сообщение от koMon сохранение кода в экзотической кодировке

На другом компе всё нормально, без экзотики, спасибо, koMon, за программу и пояснения.

[VVA]

Сообщение от koMon ятд это неверный копипаст и это скорее всего вот такое приглашение выбрать блок)

Копируй текст с форума в буфер обмена с текущим языком - русский и будет все ок, проверено.
Похожие темы
https://forum.dwg.ru/showthread.php?t=71089
https://forum.dwg.ru/showthread.php?t=18251