[bivis333]

Всем добрый день!
Имеется такая задача: есть координты точки. Необходимо проверить, есть ли в этой точке блок (точка вставки блока совпадает с исходной - то T, если нет - F). Далее необходимо получить угол поворота данного блока.
В Лиспе я начинающий, поэтому решил обратится на форум за помощью... Поиск тем ничего не дал...

[bivis333]

А да, товарищи, небольшое, но, думаю, важное дополнение. Выбираемые блоки - с именами "nv*", где * - номера от 00 до 99.

[Евгений А.]

Можно так:

Код:

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

 ; пример вызова (fff '(0 0 0) "nv##" 1.0) или (fff '(0 0 0) "nv*" 1.0)
(DEFUN fff (xyz ; 	координаты проверяемой точки 
	    templete ;	шаблон имени блока "nv##" ("*" - все блоки)
	    +- ; 	погрешность координаты при поиске 
	    / tab_ins tab_ins_eq mspace	str)
  (setq	tab_ins	 '()
	templete (strcase templete)
	mspace	 (vla-get-ModelSpace
		   (vla-get-ActiveDocument (vlax-get-acad-object))
		   ) ;_ конец vla-get-ModelSpace
	) ;_ конец setq
  (vlax-for item mspace
    (if	(and (= (vla-get-ObjectName item) "AcDbBlockReference")
	     (wcmatch (strcase (vla-get-name item)) templete)
	     ) ;_ конец and
      (setq tab_ins (cons (list (vlax-get item "InsertionPoint") item) tab_ins))
      ) ;_ конец it
    ) ;_ конец vlax-for
  (if (setq tab_ins_eq (VL-REMOVE-IF-NOT
			 (FUNCTION
			   (LAMBDA (la)
			     (equal (car la) xyz +-)
			     ) ;_ конец LAMBDA
			   ) ;_ конец FUNCTION
			 tab_ins
			 ) ;_ конец VL-REMOVE-IF-NOT
	    ) ;_ конец setq
    (foreach str tab_ins_eq
      (princ "\nT: ")
      (princ (car str))
      (princ "\t insert name \t\"")
      (princ (vla-get-name (cadr str)))
      (princ "\"  \trotation = ")
      (princ (rtos (vla-get-Rotation (cadr str)) 2 3))
      ) ;_ конец foreach
    (progn
      (princ "\nF: ")
      (princ xyz)
      (princ " - no insert ")
      (princ templete)
      ) ;_ конец progn
    ) ;_ конец if
  ) ;_ конец DEFUN

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

ИМХО надо просто смотреть на фильтры (ssget) - этого зачастую достаточно.