[Nikilin]

Здравствуйте.
Возникла задача выбрать объекты на нескольких слоях "l1, l2" и присвоить всем объектам в слое тип линии и толщину 1.
Пытался что то найти но все без результата.
Я так понимаю решения в параметрах
(vla-put-LineType obj "ByLayer")
(vla-put-LineWeight obj -1)
но как сделать выбор всех объектов на 2 слоях через ActiveX я не понимаю.
Обработчики включен или выключен слой не нужен. Я их уже принудительно включил ранее по коду.

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

А обязательно через ActiveX? Ты что, собираешься работать в неактивном документе?

[Nikilin]

Необязательно. lisp должен работать только в активном файле. Просто к командам через ActiveX привязался так как несведущий в данных вопросах. Нуб редкостный. Через простые пути не получилось решить, стал усложнять.
_chprop не работал на тестах
вполне возможно из за неверного выбора через
(setq sl (ssget "_X" '((8 . "l1"))))

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

Не советую использовать командные методы. А так, в качестве первой прикидки:

Код:

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

 (defun t1 (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for ent (vla-get-modelspace adoc)
    (if (wcmatch (strcase (vla-get-layer ent)) "LAYER1*,*1")
      (progn
        (vla-put-lineweight ent aclnwtbylayer)
        (vla-put-color ent 1)
        (vla-put-linetype ent "bylayer")
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
) ;_ end of defun

По идее надо еще отслеживать состояние слоев, писать обработку ошибок - но мне пока что лениво

[Nikilin]

Все отлично работает. Спасибо. Но как всегда бывают моменты.
При изменения кода

Код:

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

 (if (wcmatch (strcase (vla-get-layer ent)) "1*,*2")

к примеру на

Код:

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

 (if (wcmatch (strcase (vla-get-layer ent)) "ИИ ЛИНИИ ТОНКИЕ СПЛОШНЫЕ*,*ИИ ЛИНИИ ТОЛСТЫЕ ПУНКТИРНЫЕ")

Код перестает работать. Ошибок Автокад не показывает. Кодировка ANSI.
С чем связано не пойму. Если слой на английском или цифрами то все работает

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

Советую посмотреть на описание функции wcmatch и все что с нею связано.

[Nikilin]

Сообщение от Кулик Алексей aka kpblc Советую посмотреть на описание функции wcmatch и все что с нею связано.

Спасибо. Хоть и с трудом но разобрался. Примеров мало нашел, может плохо искал.
Код работает шикарно. Мои задачи выполнил полностью.

[Nikilin]

Опять уперся в стену. Не могу додуматься как выделить не все объекты в слоях а только мултилинии и блоки
если оставить строчку
(if (wcmatch (strcase (vla-get-layer ent)) "ПП*"))

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

Проверяй vla-get-objectname

----- добавлено через ~8 мин. -----
Offtop: Есть еще один вариант, но тебе он не понравится: понадобится всю мою библиотеку таскать.
Если работать в текущем документе:

Код:

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

 (setq layer_status (_kpblc-layer-status-save-by-list nil nil nil))
(foreach ent (_kpblc-conv-selset-to-vla (ssget "_X" '((67 . 0) (0 . "INSERT,MLINE"))))
  (vla-put-lineweight ent aclnwtbylayer)
  (vla-put-color ent 1)
  (vla-put-linetype ent "bylayer")
) ;_ end of foreach
(_kpblc-layer-status-restore-by-list nil nil layer_status)

Если не в текущем (doc - указатель на документ):

Код:

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

 (setq layer_status (_kpblc-layer-status-save-by-list doc nil nil))
(vlax-for ent (vla-get-modelspace doc)
  (vla-put-lineweight ent aclnwtbylayer)
  (vla-put-color ent 1)
  (vla-put-linetype ent "bylayer")
) ;_ end of foreach
(_kpblc-layer-status-restore-by-list doc nil layer_status)

[Nikilin]

Сообщение от Кулик Алексей aka kpblc vla-get-objectname

Если честно не понял как поможет. В учебниках по этой функции очень мало информации.
Да и скорей всего я опять не верно поставил задачу.
По сути хочу оставить этот код

Код:

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

 (defun t1 (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for ent (vla-get-modelspace adoc)
    (if (wcmatch (strcase (vla-get-layer ent)) "LAYER1*,*1")
      (progn
                   (vla-put-XScaleFactor ent 1)
                   (vla-put-YScaleFactor ent 1)
                   (vla-put-ZScaleFactor ent 1)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
) ;_ end of defun

Но выбирать в слоях только блоки после чего задать масштаб по Х Y Z =1

По сути хочу задать Лиспом масштаб "1" для блоков в слоях с определённым прификсом.

----- добавлено через ~22 мин. -----
Если я правильно понял то vla-get-objectname позволяет сравнивать имена объектов.

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

Сообщение от Nikilin Но выбирать в слоях только блоки

(and <...> (= (vla-get-objectname ent) "AcDbBlockReference")))
Как пример. Пишу без ACAD'a

[koMon]

Код:

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

 (setq block_sset (ssget "_x" '((0 . "insert") (8 . "LAYER1*,*1"))))
(while (not (zerop (sslength block_sset)))
  	(vla-put-XScaleFactor (setq block_object (vlax-ename->vla-object (setq block_entity (ssname block_sset 0)))) 1)
  	(vla-put-YScaleFactor block_object 1)
  	(vla-put-ZScaleFactor block_object 1)
  	(ssdel block_entity block_sset) 
)  

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

Offtop: Последнее время не люблю работать с pickset'ами без крайней на то необходимости. С чего, почему - не знаю.

[koMon]

Offtop: необъяснимая неприязнь?
как-то лучше, чем молотить всю базу

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

Сообщение от koMon Offtop: необъяснимая неприязнь? как-то лучше, чем молотить всю базу

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

[Nikilin]

в процессе пришел к такому варианту.

Код:

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

  (defun c:blockscale05 (/ ss i sn obj)
  (vl-load-com)
  (if (setq ss (ssget "_X" '((0 . "insert") (8 . "ПП*"))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq obj (vlax-ename->vla-object sn))
             (vla-put-XScaleFactor obj 0.5)
             (vla-put-YScaleFactor obj 0.5)
             (vla-put-ZScaleFactor obj 0.5)
    )
  )
  (princ)
) 

Но появилась новая идея и опять стена из за недостатка знаний.
Можно ли вытащить значение из масштаба аннотации ???
Допустим стоит масштаб 1:500 где соотношение 1:0.5 и необходимо вытащить и присвоить переменной именно 0.5???

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

Можно, наверное. А кто мешает изначально использовать аннотативные объекты?

[Nikilin]

Подскажите на сколько сложно извлечь переменную? Если сложно то плюну на все и буду использовать аннотативные блоки.
А мешает по сути увеличение блоков.
Конкретно при передачи чертежей заказчику и получая его обратно, не раз обращал внимание на то, что часто они некорректно работают с чертежами.
Чаще всего его масштабируют на 1000, потом добавляют аннотацию 1:1000 и получился блок в 1000 раз больше нужного. Короче лучшая защита от дурака с ручным масштабированием, это если блоки не аннотативны.

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

Пишу без acad'a:

Код:

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

(mapcar
 (function
   (lambda(x)
    (setq x (entget x))
    (mapcar (function (lambda(a) (cdr(assoc a x))) '(300 140 141))
   )
  )
(vl-remove-if-not (function (lambda(x) (=(car x)350))) (dictsearch(nameobjdict)"acad_scalelist"))

Плюс-минус так. Если я правильно понял вопрос

[koMon]

namedobjdict