[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

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

[Frigate]

Доброе время суток!

Прошу помощи:

что надо "скормить" функции
(command "-refedit" <объект>)

нужно подставить указатель на динблок, но ename

Код:

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

(setq ent (car (entsel)))
(vl-cmdf "-REFEDIT" ent "_o" "_o" "_a" "_n")

не принимает:

Код:

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

Команда: (vl-cmdf "-REFEDIT" ent ent "_o" "_o" "_a" "_n")
-REFEDIT Выберите вхождение:   Ссылка не найдена.
Выберите вхождение:   Ссылка не найдена.
Выберите вхождение: _o
 
*Неверный выбор*
Требуется один объект.
Выберите вхождение: _o
 
*Неверный выбор*
Требуется один объект.
Выберите вхождение: _a
 
*Неверный выбор*
Требуется один объект.
Выберите вхождение: _n
 
*Неверный выбор*
Требуется один объект.
nil
Выберите вхождение: *Прервано*

Что можно сделать?

А без refedit не сделать контекстного редактирования блока и преобразование динблока в блок. Если вручную выделять блок (по совету Супермакса) - то все Ок, но это не то, нужно автоматом разбивать.
Функции типа U2B и тп пробовал - не подходят.

[Лиспер]

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

[Дима_]

"Накрутил" с refedit'ом AutoDesk что-то но выход есть:

Код:

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

(sssetfirst nil (ssadd (car (entsel))))
(vl-cmdf "_refedit"...)

[Frigate]

Лиспер,

это нужно, чтобы сильно замороченные блоки разбивать, почему-то у меня и знакомого они не разбиваются программно, как у VVA:

http://forum.dwg.ru/showthread.php?p...d=1#post711939

Код:

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

(defun C:test (/ ;blk_ref attr_list)
        )
  (setq
    blk_ref (vlax-ename->vla-object (car (entsel "\nВыбери блок: ")))
    ) ;_ end of setq
  
  (setq attr_list (vlax-safearray->list
      (vlax-variant-value (vla-GetAttributes blk_ref))
      ) ;_ end of vlax-safearray->list
 ) ;_ end of setq
  
  (mapcar
    (function
      (lambda (x / txt)
 (setq txt (vla-get-textstring x))
 (vla-put-textstring x "")
 (vla-put-textstring x txt)
 ) ;_ end of lambda
      ) ;_ end of function
    attr_list
    ) ;_ end of mapcar
  
  (setq ent (vlax-vla-object->ename blk_ref))
  (sssetfirst nil (ssadd ent))
  (vl-cmdf "-REFEDIT" "_o" "_o" "_a" "_n")
  (vl-cmdf "_REFCLOSE" "_s")
  
  
  (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport) ;_ end of vla-regen
  
  ) ;_ end of defun

теперь осталось только кусок проги дописать, чтобы после explode содержимое текстов было идентично значению атрибутов до explode. Но это уже не сложно должно быть.

Дима_,

большое спасибо :-)

Интересный ход!

Да уж, автодеск - еще тот перец )))

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

[Дима_]

Сообщение от Frigate Последнее время при углубленном изучении автокада все чаще попадаются глюки

Если "слезешь" с командных методов - глюков станет в разы меньше.

[ShaggyDoc]

к той же команде _refedit - на русском автокад "не понимает", только оригинальные опции надо вводить

Так это элементарное правило, относящееся ко всем командам - имена команд и опций только оригинальные, с префиксом "_". Для имен команд еще лучше префикс "_."

[VVA]

Сообщение от Frigate почему-то у меня и знакомого они не разбиваются программно, как у VVA:

Ответил в теме

Сообщение от Frigate как например опции к той же команде _refedit - на русском автокад "не понимает", только оригинальные опции надо вводить

Читать как минимум 1-й абзац

[Frigate]

VVA,

я об опциях понимаю, что их надо на англ. писать, просто в руссифицированном автокаде с переведенными командами всегда можно было вводить опции и по русски - не в программе, а непосредственно при черчении, а с некоторыми командами, типа refedit (или ССЫЛРЕД) этого нельзя - не до конца переведена команда.

ДИМА,

благодаря VVA удалось обойтись без командных методов. Вместо refedit заменил масштаб по Z на 1.001 - и вставка блока утрачивает динамику (как проекция динблока). А все остальное - дело техники.

[gnostic]

Всем крепкого здравия! Спасибо Вам всем за форум.
Но к делу:
Если стандартными средствами вызвать окошко свойств такого примитива как box,то там черным по белому(при стандартных цветовых настройках :-)) можно узнать его Length Width и Heigth. Пробую получить те же параметры с помощью кода:

Код:

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

 (setq dxf_CBOICTBA (entget(car(entsel))))

- ничего подобного, даже близко! Если, конечно, не принимать во внимание длиннющий хвост, увы недоступной, но присутствующей информации.
Тот же запрос, но вид сбоку:

Код:

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

 (setq bokc (car (entsel)))
(vl-load-com)
(vlax-dump-object (vlax-ename->vla-object bokc))

- уже теплее, но все равно, без танцев с бубном получит прямой результат ниЗЯЯЯЯЯ :-(
Вопрос к клубу Знатоков - мож кто знает заветных три слова? - Поделитесь пожалуйста!
P.S. "Иди на - не педлагать!" - Unknown command

[Дима_]

Посмотри сюда

[gnostic]

Блииин! Я так признателен и мне так стыдно за то что не удосужился поискать на форуме!
Спасибо огромнейшее!
И еще раз извините за разгильдяйский подход к поиску ответа на вопрос.
Те 8 строк из #10 поста -просто волшебство!


Честно искал по форуму, но пока все еще у разбитого корыта.
Исходные условия - куча примитивов "разбросанных" на группе слоев (скажем dt[ 1-20])
Хочу создать набор только из тех, что лежат на слоях из требуемого диапазона индексов, например dt3-dt7.
Царапаю код:

Код:

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

 (setq nabor (ssget "_X" '((8 . "dt[3-7]"))))
(vl-cmdf "erase" nabor "")

(ластик просто для наглядности).
Все в шоколоде! Но... стоит слегка изменить значение фильтра :

Код:

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

 (setq nabor (ssget "_X" '((8 . "dt[3-10]"))))
(vl-cmdf "erase" nabor "")

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

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

Замени (ssget "_X" '((8 . "dt[3-10]"))) на нечто типа (ssget "_X" '((8 . "dt[3-9],dt10")))

[gnostic]

Не, ну так не честно жеже!
Но тем не менее - спасибо.

[gomer]

Сообщение от gnostic Не, ну так не честно жеже!

учите матчасть, все честно...

[gnostic]

Не сочтите за труд - ткните носом.
(Спустя пару минут)
В силу того, что очень не люблю неоднозначность, решил уточнить некоторые моменты.
Перевести на LISP схему создания фильтра, от которого он (LISP) не срыгнет - как бы в вопросах не числится!
Если есть какие то основополагающие моменты (даже из школьного курса математики), о которых я не догадываюсь(говорю честно), то буду очень признателен за то что обратите на них внимание. А так, по принципу :
"Вы, товарищ студент, дурак! - А Я мост Патона строил!"
либо
"Не плюйте рядом с членом Масонской ложи!" по меньшей мере, на этом ресурсе выглядит комично.

[gomer]

Сообщение от gnostic Не сочтите за труд - ткните носом

Сообщение от gnostic (setq nabor (ssget "_X" '((8 . "dt[3-10]"))))

строка - это последовательность символов, 9 это 1 символ, 10 - это уже 2... такая конструкция работать "правильно" по определению не будет...

[gnostic]

Признаться, никогда бы в жизни не додумался!
Очень очень Вам благодарен! Спасибо!

[Aminka]

Доброго времени суток!

Столкнулась с такой вот непоняткой:

Код:

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

 
(setq selection (ssget '((-4 . "<OR")(0 . "polyline")(0 . "lwpolyline")(-4 . "OR>") ))); end setq
(setq sel_length(sslength selection))
 (setq spisok_dlin2 (ssnamex selection));;получили список, элемнты которого в свою очередь - списки
     (setq s1 (length (ssnamex selection)))

Так вот, при пошаговой отладке выяснилось что длина списка s1 и "длина" набора sel_length не совпадают. Выбираю прямоугольником в пространстве модели 3 полилинии, sel_length=3, s1 = 4.

Господа, не сочтите за труд, помогите -откуда может появляеться лишний элемент списка?

[gomer]

Сообщение от Aminka Так вот, при пошаговой отладке выяснилось что длина списка s1 и "длина" набора sel_length не совпадают. Выбираю прямоугольником в пространстве модели 3 полилинии, sel_length=3, s1 = 4.

Код:

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

 (vl-remove-if 'listp (mapcar 'cadr (ssnamex selection)))

Смотришь в книгу... видишь...

[Лиспер]

<...> Удалено, показано более удачное решение.