[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

_____________________________________________________________________________________________________________

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

[Дима_]

Сообщение от seregabs Не разобрался как обратиться сразу к нужному свойству по имени, сделал перебором всех, сработало.

Никак - только можно перебирать не все, а до совпадения, либо до конца - хотя в данном случае можно не париться.

Сообщение от seregabs Как бы это упростить?

Да по сути никак - только что лишние переменные создаете (вполне можно применять функции друг к другу) - вот копия с Вашего поста:

Код:

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

(vla-load-com)
(foreach Prop (vlax-Invoke (vlax-ename->vla-object (entlast)) 'GetDynamicBlockProperties)
  (if (= (vla-get-PropertyName Prop) "PosQuan")
    (vlax-put Prop 'Value "11 pos")))

[Wolkodaw]

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

[VVA]

http://lee-mac.com/dialogposition.html
там и пример диалога, и его загрузки

[crux]

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

[Дима_]

Сообщение от crux В лиспе новичок, но если подскажите где копать, буду очень признателен

В объектной модели автокада - конкретно в классе AcadTable.

[WhiteShark]

Не кидайте помидорами! Лучше подскажите почему не работает такой код

Код:

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

 (defun foo (f x)
  (f x))
(foo 'car '(1 2 3))

Почему error: bad function: CAR ?

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

Код:

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

 (defun foo (f x)
 (apply f (list x))
 ) ;_ end of defun
(foo 'car '(1 2 3))

[WhiteShark]

Алексей, спасибо, конечно! Но я пример с car привел просто так. То есть функция передаваемая в качестве параметра в foo должна быть любой и агрумент любой. Тут всё таки вопрос глубже. В теории видимо дело. Правильно ли я понимаю, что при связывании формальных параметров (f x) превращается в (car '(1 2 3))? Должно же быть так? Почему тогда car не находится системой и выдаётся ошибка error: bad function ?

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

Потому что в твоем случае функцию надо применить (т.е. apply) к списку аргументов. Мне так каэцца
P.S. А в чем более общая задача-то состоит?

[WhiteShark]

Общая задача состоит в том, чтобы работал функционал ) То есть функция (foo), одним из параметров которой является функция, передаваемая как параметр. К примеру (foo '+ '(1 2 3)) уже в твоем варианте работать не будет. Я хочу понять, почему правильная синтаксически с точки зрения языка конструкция выдаёт ошибку. Особенность ли это реализации именно AutoLISP'a. Вот тут http://homelisp.ru/help/classic_funct.html#FUNCTION приведен точно такой же пример и он почему то работает. Подозреваю, что _Дима знает ответ )

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

См. в "Библиотеке" функцию dwgru-error-catch и примеры ее использования.

[gomer]

Сообщение от WhiteShark конечно!

По хорошему тут следовало бы разобраться что такое квота, функция и символ. Правильно не работает, потому что символ - не функция
Работает так

Код:

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

 (defun foo (f x)
  (f x)
)
(foo car '(1 2 3))

[Дима_]

Сообщение от WhiteShark Подозреваю, что _Дима знает ответ

Друзья я приболел - и не заглядывал в интернеты, gomer ответил все верно. Первопричина разночтений лежит глубже. Есть два принципиальных отличия в различных диалектах лиспа - это наличие или отсутствие (ну или отсутствия по умолчанию) т.н. замыканий - проще говоря какие значения имен будут использоваться во время выполнения функции - которые заданы на момент ее выполнения, либо которые заданы на момент определения функции (естественно только "внутренних" имен, а не аргументов). У каждого из них свои плюсы и минусы - я однозначный сторонник замыканий, (которые к моему сожалению не поддерживает автолисп), но это только мое мнение. Для того, чтоб частично устранить проблему отсутствия замыканий, там где без них "тяжко" используют "стандартный" прием - передают функцию как символ - которую принимающая функция выполнит посредством (apply ...), но если ей будет необходимо - она сможет ее "замкнуть" посредством парсинга и "подмены" имен на необходимые значения. Этот прием практически не используеться в автолиспе (по крайней мере в сегменте dwg.ru - я не встречал, ну я от безисходности пару раз делал - если не понимать для чего они (замыкания) нужны, то и алгоритм планируешь без них - парадокс Блаба - а испорченным различными знаниями головам - это информация мешает "творить нормально" - извращаются). Отсюда и разница в синтаксисе например CommonLisp и Scheme (mapcar 'fn lst) против (map fn lst).

[WhiteShark]

Ну вот ) Мои подозрения в кастирорванности нашего любимого AutoLISPa оправдались (
Спасибо нашему больному Диме_ за ответ! (Чтоб мы все так даже в бреду владели! )

[Wolkodaw]

Прошу подсказать опытных форумчан как с помощью active x можно изменять свойства динамических блоков (в частности нужно менять длину блока).

[kakt00z]

Код:

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

 (defun getbdyn (bl prop /)
  (car
    (vl-remove-if-not '(lambda (x) (= prop (vla-get-PropertyName x)))
      (vlax-safearray->list (vlax-variant-value(vla-GetDynamicBlockProperties bl)))
      )
    )
  );defun
(vla-put-value (getbdyn bl_name prop_name) prop_value)

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

Wolkodaw, пять минут:
http://forum.dwg.ru/showthread.php?t=20823

[mkung]

Код:

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

 (vl-cmdf "_.PSPACE")

Подскажите, пожалуйста - как сделать то же самое через vla-put-... (для видового экрана)

[Vladimir_Sergeevich]

Помогите дураку пожалуйста!
надо сжатие арибутов поменять у блоков. написал так:

Код:

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

 (setq BlkRef (vlax-ename->vla-object (car (entsel "Выбери блок:"))))
(foreach item (vlax-safearray->list  (vlax-variant-value (vla-GetAttributes BlkRef))) (vla-put-ScaleFactor item 0.75))

а этот шедевр меняет только во вхождении блока. Как то же самое сделать в описании блока?

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

mkung, а чем не нравится (setvar "ctab")?
Vladimir_Sergeevich, так ты сначала получи указатель на описание блока...

Код:

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

 (defun tt (/ blkref blkdef)
  (if (and (setq blkref (car (entsel "Выбери блок:")))
           (setq
             blkdef (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                              (if (vlax-property-available-p (setq blkref (vlax-ename->vla-object blkref)) 'effectivename)
                                (vla-get-effectivename blkref)
                                (vla-get-name blkref)
                                ) ;_ end of if
                              ) ;_ end of vla-item
             ) ;_ end of setq
           ) ;_ end of and
    (vlax-for ent blkdef
      (if (and (wcmatch (strcase (vla-get-objectname ent) "*ATTR*"))
               (vlax-property-available-p ent 'scalefactor)
               ) ;_ end of and
        (vla-put-scalefactor ent 0.75)
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of if
  ) ;_ end of defun