[kurstep]

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

[kurstep]

Код:

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

 (setq arm (vlax-ename->vla-object (entlast)))
#<VLA-OBJECT IArpsRSecEntity 000000005aed2028>
_$ (vlax-dump-object arm)
; IArpsRSecEntity: IArpsRSecEntity Interface
; Çíà÷åíèÿ ñâîéñòâ:
;   Application (RO) = Îøèáêà
;   AreaRSec (RO) = "78.5"
;   Document (RO) = #<VLA-OBJECT IAcadDocument 00000000485ff558>
;   EntityTransparency = "ÏîÑëîþ"
;   Handle (RO) = "18B7B3"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000006516c478>
;   Layer = "Ê_Àðìàòóðà"
;   Length = 0.0
;   LengthCalcMode = 1
;   LengthFrom = 2
;   LengthKoef = "1.00"
;   LengthNative = 0.0
;   LengthOffset = "0"
;   Linetype = "ByLayer"
;   LinetypeScale = 25.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ObjectID (RO) = 45
;   ObjectID32 (RO) = 45
;   ObjectName (RO) = "ArpsRSec"
;   OwnerID (RO) = 44
;   OwnerID32 (RO) = 44
;   PlotStyleName = "ByLayer"
;   PsClassReinf = 12
;   PsDiamReinf = 10
;   PsElemType = 1
;   PsExcludeAssembling = 1
;   PsExcludeCalc = 1
;   PsKoefWeight = ""
;   PsMarka = "Íå ïðèñâîåíà"
;   PsNaim = ""
;   PsOwnerName (RO) = "Íå îïðåäåëåíà"
;   PsPosition = ""
;   PsRangeCount = Îøèáêà
;   PsRangeLen = Îøèáêà
;   PsRangeStep = Îøèáêà
;   PsRangeType = Îøèáêà
;   PsUdWeight (RO) = "0.00"
;   PsWeight (RO) = "0.00"
;   Scale = 25.0
;   TotalLength (RO) = "0.0 ïì"
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000006516cb30>
;   ViewRSec = 1
;   Visible = -1
T
_$

----- добавлено через ~6 мин. -----
Обнаружил что при преобразовании стержня арматуры Project Studio в объект VLA доступны все необходимые свойства (PsDiamReinf = 10) - то есть диаметр стержня....
Подскажите пожалуйста можно ли теперь програмно выбрать все стержни данного диаметра и допустим поменять диаметр на 12....
Пробовал вытащить значение диаметра через

Код:

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

  (setq diam (vla-get-PsDiamReinf arm))

.... ругается что функции такой нет....

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

Правильно, и не будет. Потому что объекты PS - не "родные" AutoCAD'овские. Соответственно надо использовать нечто типа vlax-get-property и vlax-invoke / vlax-invoke-method

[kurstep]

Спасибо за отклик, а можете более подробно пояснить или скинуть информации по пользованию этих функций?

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

vlax-get-property : полная форма записи функции получения свойства обьекта
(vla-get-color obj) = (vlax-get-property obj 'color) = (vlax-get-property obj "color")

[kurstep]

Отлично!!) вывести получилось.. А vlax-invoke / vlax-invoke-method - это просто аналог vlax-get-property? И возможно ли теперь изменить значения не "родных" объектов?

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

vlax-invoke / vlax-invoke-method - это выполнение какого-либо "неродного" метода. К свойствам имеет весьма опосредованное отношение.
Кое-что писал тут: http://autolisp.ru/2010/11/07/invoke...d-differences/

[kurstep]

Теперь пытаюсь отфильтровать объекты по свойствам....

Код:

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

 (entget(entlast))
((-1 . <Имя объекта: 7ffff7756a0>) (0 . "PS_RSEC") (330 . <Имя объекта: 7ffffa239f0>) (5 . "BDC7A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "К_Арматура") (48 . 25.0) (100 . "AcDbCircle") (10 -74050.0 78492.7 0.0) (40 . 5.0) (210 0.0 0.0 1.0))

- Это свойства круглых стержней... они мне как раз и нужны... Думал что все легко пройдет через

Код:

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

  (ssget "_x" '((100 . "AcDbCircle")))

Но обнаружил что код не работает...видимо потому что DXF 100 встречается в списке 2-ды... , то есть получается через entget данный стержни не отфильтровать, и как возможно что 100 встречается дважды?

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

Попробуй фильтровать по '((0 . "PS_RSEC"))

[kurstep]

Да, спасибо, сработало

Код:

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

 (sssetfirst nil (ssget "_x" '((0 . "PS_RSEC"))))

-выбор всех поперечных стержней

----- добавлено через ~13 мин. -----
И теперь чтобы изменить , например, диаметр стержня я должен запустить цикл

Код:

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

 while(< counter (sslength mysset))

по количеству объектов в группе и для каждого объекта произвести перевод в VLA и сделать vlax-put-property?

----- добавлено через ~10 ч. -----
Может кто-нибудь помочь с кодом выбора всех стержней диаметра 12 и поменять их на 16?...

[kurstep]

Код:

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

 (vl-load-com)
  (defun pl_st (/ model)
  (setq model (vla-get-ModelSpace
                (vla-get-ActiveDocument (vlax-get-acad-object))))

       (vlax-for i model

        (if  (= "ArpsReinf" (vlax-get-property i "ObjectName"))
		 		 (vla-Delete i))))

Пытаюсь разобратся... Почему не работает данный код?

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

Может всё-таки "ArpsRSec", а не "ArpsReinf"?

[kurstep]

Я экспериментирую с разными объектами PS... не удаляется ничего)... Я думаю может просто объекты Проджект студио не относятся к (acad-object)... Может кто знает есть способ узнать адрес выделенного объекта в Иерархии ACTIVEX?

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

Сообщение от kurstep Я думаю может просто объекты Проджект студио не относятся к (acad-object)...

Относятся. Преобразуй i из vla-object в ename и воспользуйся функцией (entdel) для удаления.

[kurstep]

Код:

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

 (vl-load-com)
 (defun pl_st (/ model)
 (setq model (vla-get-ModelSpace
               (vla-get-ActiveDocument (vlax-get-acad-object))))

      (vlax-for i model

       (if  (= "ArpsReinf" (vlax-get-property i "ObjectName"))
	 		 entdel(vlax-vla-object->ename i))))

Программа выдала -

Код:

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

ActiveX Server возвратил ошибку: Элемент не найден

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

Проверь скобки.

[kurstep]

Спасибо, удаление свершилось!!

Код:

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

 (vl-load-com)
 (defun pl_st (/ model)
 (setq model (vla-get-ModelSpace
               (vla-get-ActiveDocument (vlax-get-acad-object))))

      (vlax-for i model

       (if  (= "ArpsReinf" (vlax-get-property i "ObjectName"))
	 		 (entdel(vlax-vla-object->ename i)))))

----- добавлено через ~5 мин. -----
.....Хотя рано радоваться... один вызов команды удаляет один объект...Т.е программа видимо прерывается...

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

Сообщение от kurstep .....Хотя рано радоваться... один вызов команды удаляет один объект...Т.е программа видимо прерывается...

Собери в этом цикле в список все ename для всех объектов ArpsReinf, а потом во втором цикле по списку ename удаляй их при помощи (entdel)

[kurstep]

Что-то я совсем чайник по этим делам.... не понимаю как собрать ename в список....

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

Ну как-то так:

Код:

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

 (vl-load-com)
(defun pl_st (/ model names)
(setq model (vla-get-ModelSpace
            (vla-get-ActiveDocument (vlax-get-acad-object))))
     (vlax-for i model
      (if  (= "ArpsReinf" (vlax-get-property i "ObjectName"))
 		 (setq names (cons (vlax-vla-object->ename i) names))))
     (foreach i names (entdel i))
)