[kurstep]

Подскажите кто сталкивался.... Необходимо во многих чертежах удалить определенное армирование сделанное объектами Проджект студио. Через меню быстрого выбора возможно выбрать определенную арматуру нужной длины... Но как можно ускорить этот процесс... То есть осуществить процесс быстрого выбора програмно через лисп?

[kurstep]

А что за переменная names? ,почему она нигде не задается но вызыватся функцией foreach? И является головой списка "без имени"...

----- добавлено через ~11 мин. -----
То есть каким образом она стала вдруг списком нужных объектов ?)

[Александр Ривилис]

Исправил. И на старуху бывает проруха.

[kurstep]

Спасибо, все получилось)

Код:

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

  (vl-load-com)
(defun st (/ model names)
(setq model (vla-get-ModelSpace
            (vla-get-ActiveDocument (vlax-get-acad-object))))
     (vlax-for i model
      (if  (and (= "ArpsReinf" (vlax-get-property i "ObjectName"))
		 (or (= 980 (vlax-get-property i "Length"))
                     (= 700 (vlax-get-property i "Length"))
                     (= 960 (vlax-get-property i "Length"))
		     ))	
		
 		 (setq names (cons (vlax-vla-object->ename i) names))))
     (foreach i names (entdel i)));;;;;;;;Óäàëåíèå ñòåðæíåé


(defun pt (/ model names)
(setq model (vla-get-ModelSpace
            (vla-get-ActiveDocument (vlax-get-acad-object))))

  (vlax-for i model
      (if  (and (= "AcDbPolyline" (vlax-get-property i "ObjectName"))
		 (or (= 300 (vlax-get-property i "Length"))
                     (= 240 (vlax-get-property i "Length"))
                     (= 340 (vlax-get-property i "Length"))
		     ))	
		
 		 (setq names (cons (vlax-vla-object->ename i) names))))
     (foreach i names (entdel i))
 )

(defun izm (/ model names)
(setq model (vla-get-ModelSpace
            (vla-get-ActiveDocument (vlax-get-acad-object))))
     (vlax-for i model
      (if  (and (or(= "ArpsRBar" (vlax-get-property i "ObjectName"))
                   (= "ArpsRSec" (vlax-get-property i "ObjectName")))

		(= 12 (vlax-get-property i "PsClassReinf")))
         	(vlax-put-property i "PsClassReinf" 16))))

----- добавлено через ~2 мин. -----
Код удаляет или изменяет необходимые примитивы