[Gretech89]

Всем доброе время суток!

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

Код:

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

 (defun c:DelText (/ ht ss eo blst bcol b)
 ;; ввод текста
 (setq ht (getint "\nВведите высоту текста: "))
 ;; выбор блоков
 (if (ssget "_:L" '((0 . "INSERT")))
 (progn
 (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
 (vlax-for eo ss
 (if (not (vl-position (vla-get-EffectiveName eo) blst))
 (setq blst (cons (vla-get-EffectiveName eo) blst))
 )
 )
 (vla-Delete ss)
 )
 )
 ;; проход по определениям блоков и удаление текста внутри
 (setq bcol (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
 (foreach ss blst
 (setq b (vla-Item bcol ss))
 (if (and
 (eq :vlax-false (vla-get-isxref b))
 (eq :vlax-false (vla-get-islayout b))
 )
 (vlax-for eo b
 (if (and (wcmatch (vla-get-ObjectName eo) "AcDbText,AcDbMText")
	  (wcmatch (vla-get-TextHeight eo) ht) ; здесь затык
 )
 (vla-Delete eo)
 )
 )
 )
 )
 (vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acAllViewports)
 (princ)
)

[koMon]

Gretech89,
надо заменить это

Код:

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

 (wcmatch (vla-get-TextHeight eo) ht) ; здесь затык

на это

Код:

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

 (= (vla-get-Height eo) ht)

потому как wcmatch проверяет входимость подстроки в строку, а высота текста это число.

[Gretech89]

koMon, спасибо большое!