[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]

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

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

Из той же оперы: http://autolisp.ru/2009/09/12/vlide-misc-02/

[Volodich]

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

По вашей ссылке показывают, какую литературу надо читать для того чтобы научиться программированию.
Я может быть что-то неправильно понял, но мне-то надо только разобраться в каком месте программа не работает.

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

Volodich, одно из двух - либо разбираешься в программировании и сам все отлавливаешь / разбираешься где и почему не работает, либо просишь и тебе (может быть) что-то сделают.

[gomer]

Сообщение от Кулик Алексей aka kpblc (может быть) что-то сделают.

за пирожок

[Volodich]

Сообщение от Кулик Алексей aka kpblc Из той же оперы: http://autolisp.ru/2009/09/12/vlide-misc-02/

Сначала написал свое прошлое сообщение, потом увидел это твое Читаю, смотрю. Я думал, запустить программу и посмотреть как она выполняется - есть какой-то простой алгоритм. Читаю твою статью, может быть пойму.
У меня во-первых по F6 никакая консоль не запускается, во-вторых по F8 никакое "пошаговое выполнение" не начинается, а слышен звук ошибки и все. Ну извините, чайник я, первый раз пытаюсь разобраться. Нам в институте что-то рассказывали про лисп, но естественно я ничего не помню кроме того, что лисп орининальный язык - сначала забивается действие, а потом в скобочках переменные через пробел

Сообщение от Кулик Алексей aka kpblc Volodich, одно из двух - либо разбираешься в программировании и сам все отлавливаешь / разбираешься где и почему не работает, либо просишь и тебе (может быть) что-то сделают

Я так понимаю, что люди рады бы помочь, да только у них все работает нормально, а у меня почему-то глючит. Текст командной строки я приводил выше. Поэтому видимо и приходится самостоятельно изучать азы.

Прикладываю картинку как выглядит редактор, до которого я смог "дойти" Обратите внимание, "пошаговое выполнение" - неактивно почему-то.

[Do$]

Сообщение от Volodich во-вторых по F8 никакое "пошаговое выполнение" не начинается

А оно и не должно начинаться. Начинать нужно запуском кода из автокада или из консоли. Из автокада - командой upblock, из консоли - (c:upblock). До этого нужно поставить точку останова в коде. Когда до точки останова дойдет, пошагово выполнять с помощью F8.

[Volodich]

аааа! Вот спасибо, добрый человек! понял теперь! Попробую!

[Дима_]

то Volodich я уверен на 99.99% что Вы не туда лезете - покажите мне лог из команд
(vl-load-com) именно в скобках и upblock

[Volodich]

Кхе Похоже, компьютер меня испугался
Дело было так. Сначала запускал программу без (vl-load-com) в первой строчке. Не работало. Потом добавил эту строчку. Файл lsp вроде в акад перезагрузил. Опять не работало.
Сегодня запускаю - работает!
Толи сам автокад заглючил, толи произошло еще что-то, связанное с перезагрузкой компьютера... Не знаю в чем дело, но работает! Надеюсь, после следующей перезагрузки так и будет работать
Огромное спасибо всем за помощь и поддержку!

[Дима_]

Сообщение от Volodich Кхе Похоже, компьютер меня испугался ...Файл lsp вроде в акад перезагрузил. Опять не работало... Толи сам автокад заглючил, толи произошло еще что-то, связанное с перезагрузкой компьютера...

У меня подозрение на другое толи

[Volodich]

Я понял на какое Но честно, файл заново в автокад загружал... Ну да ладно. Если ошибка снова всплывет, буду по Вашим советам разбираться в логах и пошаговом выполнении.