[Volodich]

Здравствуйте.
При работе с динамическими блоками в 2006-2008 автокадах (у нас на работе такие) заметил пару пакостей.
При вставке блока через буфер обмена из одного чертежа в другой у него вдруг пропадают ручки настройки. Долго не мог понять в чем дело, потом понял. Что-то сбивается с масштабом блока. Когда вручную в свойствах блока вбиваешь те же самые цифры масштабов, ручки вдруг волшебным образом появляются. Но когда блоков много это мучение.
Сделайте, пожалуйста, кто-нибудь программку, которая бы сама вбивала эти масштабы заново. Как вариант можно "тыкать" мышкой в нужный блок, чтобы программка выбирала в чертеже только эти блоки и не шарилась по всем остальным нормальным. Но можно и все, если это не сильно повлияет на длительность работы.
Для примера кладу файл с таким блоком.

[Do$]

Быстрый выбор - свойства, не?

[Дима_]

на скорую руку:

Код:

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

 (vl-load-com)
(defun c:upblock()
  (mapcar '(lambda (obj)
     (vla-put-yscalefactor obj (vla-get-xscalefactor obj))
     (vla-put-zscalefactor obj (vla-get-xscalefactor obj)))
    (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex(ssget)))))))

[Volodich]

Быстрый выбор - свойства, не?

Если масштабы у всех блоков одинаковые - действует!
Но есть блок где-то отражен (бывает и такое), то у него один из масштабов с минусом. Хотя можно, конечно, сделать еще раз быстрый выбор из выбранного.
А вообще спасибо за идею.

Дима_, спасибо!

Мне нужно что-то вроде этого:

Код:

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

 (defun c:upblock()
  (mapcar '(lambda (obj)
     (vla-put-xscalefactor obj (vla-get-xscalefactor obj))
     (vla-put-yscalefactor obj (vla-get-yscalefactor obj))
     (vla-put-zscalefactor obj (vla-get-zscalefactor obj))
  )
    (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex(ssget)))))))

Но почему-то это не срабатывает. И блоки, по которым "прошелся" такой код возвращаются к жизни только если сначала все их масштабы сделать "1", а потом уже любые. Поэтому может код сделать так?

Код:

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

  (vl-load-com)
(defun c:upblock()
  (mapcar '(lambda (obj)
     (set a (vla-get-xscalefactor obj))     
     (set b (vla-get-yscalefactor obj))     
     (set c (vla-get-zscalefactor obj))     

     (vla-put-xscalefactor obj 1)
     (vla-put-yscalefactor obj 1)
     (vla-put-zscalefactor obj 1)

     (vla-put-xscalefactor obj a)
     (vla-put-yscalefactor obj b)
     (vla-put-zscalefactor obj c)

     )
    (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex(ssget)))))))

Где a, b и c - внутренние переменные функции. Проблема в том что я не знаю какой командой присвоить им значение и как потом его "достать" из переменной.

[Do$]

Вместо set напишите setq. И в строчке:

Код:

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

lambda (obj)

добавьте переменные:

Код:

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

lambda (obj / a b c)

Динблоки прячут ручки, если масштабы по модулю неодинаковы. Если есть отрицательные значения, значит нужно еще их отдельно обрабатывать. Или отзеркаленность не нужно сохранять?

[Volodich]

Нужно конечно. Поэтому я и ушел от варианта, где мы масштаб X записываем в масштаб Y и масштаб Z.
Вот сделал как Вы сказали:

Код:

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

  (vl-load-com)
(defun c:upblock()
  (mapcar '(lambda (obj / a b c)
     (setq a (vla-get-xscalefactor obj))     
     (setq b (vla-get-yscalefactor obj))     
     (setq c (vla-get-zscalefactor obj))     

     (vla-put-xscalefactor obj 1)
     (vla-put-yscalefactor obj 1)
     (vla-put-zscalefactor obj 1)

     (vla-put-xscalefactor obj a)
     (vla-put-yscalefactor obj b)
     (vla-put-zscalefactor obj c)
     )
    (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex(ssget)))))))

Но почему-то не работает. После "выберите объекты" говорит "(nil nil nil nil)" и ничего не делает.
Хотя если убрать строчки:

Код:

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

 (vla-put-xscalefactor obj a)
     (vla-put-yscalefactor obj b)
     (vla-put-zscalefactor obj c)

То масштабы 1 устанавливает без проблем. Странно.

[Дима_]

Нет не верно - у тебя блоки получаються "неактивные" из-за того, что ты что взял, то и кладешь (а видимо при переносе точность дробного числа "плывет" - которую ты и дублируешь) - тебе надо привести все к 1 масштабу - вот вариант с учетом отрицательных значений:

Код:

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

 (defun c:upblock()
  ((lambda (lst doc)
    (vla-startundomark doc)
    (mapcar '(lambda (obj)
       ((lambda (x y z)
           (vla-put-yscalefactor obj (* x (if (> (* x y) 0) 1 -1)))
           (vla-put-zscalefactor obj (* x (if (> (* x z) 0) 1 -1))))
         (vla-get-xscalefactor obj)
         (vla-get-yscalefactor obj)
         (vla-get-zscalefactor obj)))
       lst)
     (vla-endundomark doc))
  (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex(ssget '((0 . "INSERT")))))))
  (vla-get-activedocument (vlax-get-acad-object))))

[Do$]

Странно. Может попробовать менять не ScaleFactor а EffectiveScaleFactor? Типа (vla-put-xeffectivescalefactor obj a) и т.п.
Тьфу ты Дима_ прав

[Volodich]

Сработало! Спасибо большое!
Потестирую еще на реальных файлах и если что отпишусь!
Кстати, а можешь пояснить в чем проблема? Почему блоки "сбиваются" ?

[Дима_]

По симптомам похоже на проблему чисел с плавающей точкой - которая, видимо, не учтенна при сравнении масштабов, а сбиваться они могут при какой-либо конвертации (в тот-же буфер обмена).

[Astartes]

Дима_, У меня почему то не срабатывает ваша программа на динамическом блоке.
В модели есть заготовка детали масштабом 1:1, образмеренная.
Если нужно поменять масштаб детали, делаю это через видовой экран. Масштаб видового экрана ставлю 1:2, командой _chspace размеры и блоки перекидываю из модели в лист. У блока масштабы становятся по 0,5. Применяю к блоку вашу программу и ничего.

[Дима_]

Я ничего не понял - в приложенном файле дин блок "рабочий".

[Volodich]

Astartes, мне кажется вы не правильно поняли суть программы. Напишите что вы хотите от программы.

[Astartes]

Дима_, Volodich, Да, блоки у меня рабочие. Не сбитые. Я просто хотел чтобы масштабы указанных мной блоков, стали равны 1.

[Volodich]

Дима_, возникла проблема с твоей программой в акаде 2008.
В моем 2006 все работает нормально, а в 2008 выдает такой текст:

Команда: upblock Выберите объекты: найдено: 1 Выберите объекты: ; ошибка: no function definition: nil

И в результате ничего не делает.
Помоги, пожалуйста, решить проблему!

[kp+]

Сообщение от Volodich В моем 2006 все работает нормально, а в 2008 выдает такой текст:

Если других ЛИСП-приложений на этом акаде нет, надо не забыть vl-load-com Пардон, в #6 все есть
Добавлено: в 2010 работает. С учетом #7, где vl-load-com нет, проверьте, чтобы был загружен.

[Volodich]

Спасибо за совет.
Добавил. Хоть убейте, та же фигня! Хотя лисп перезагрузил заново, запустил заново...
Как еще можно узнать в чем дело?

[kp+]

А что говорит пошаговое выполнение? На каком именно месте сбой?

[Volodich]

Я не программист. Я не знаю, как сделать пошаговое выполнение. Где можно почитать про него? Или если несложно, может объясните, как его сделать?

Добавлено: покопался по форуму, уже нашел "Сервис - AutoLISP - Редактор Visual LISP" - запустил в акаде. В редакторе сделал "открыть файл" - открыл "upblick.lsp". Текст файла открылся в редакторе. А вот что дальше делать не пойму. Не вижу запуска программы.

[crosandr]

Ставите точки останова. Почитать можно тут