[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

_____________________________________________________________________________________________________________

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

[Vladimir_Sergeevich]

Кулик Алексей aka kpblc, судя по описанию переменной, её надо будет менять во всех кроме того, куда вставлена подоснова, потому что мы её обнуляем уже в настройках текущего чертежа, Тот что дают изыскатели остается неизменным и обновляется ими же. Таким образом "главной таблицей" будет план с подосновой, или же в в других чертежах при VISRETAIN 0 "главной таблицей" останется изыскательская?
(это делается что бы все линии топоосновы были с весом 0, а топографы в своем отчете кромку асфальта делаю 0,3 и еще всякие мелочи бывают)

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

Vladimir_Sergeevich, добро пожаловать в тему "Подготовка подосновы".

[trushev]

Добрый день! Встретил (ssget "X" ((-4 . "<OR") (0 . "TEXT") (0 . "MTEXT") (-4 . "OR>"))). Подскажите где найти подробную информацию на русском по (-4 . "<OR")?

[Дима_]

dxf reference - но насчет русского не уверен. Кстати данный пример можно заменить на (0 . "*TEXT")

[Сергей812]

Да чего вы так английского боитесь-вам же на нем не разговаривать, а просто понимать с листа)
ssget

You can also use the OR logical filter, but to do this you must inform AutoLisp first. To do this you use a special type of associative code, the -4. (setq sel1 (ssget '((-4 . "<OR")(8 . "STEEL")(8 . "PIPE")(-4 . "OR>"))))

т.е. чтобы в фильтр добавить несколько значений с одним dxf кодом - надо заключить в группы "-4".

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

Сообщение от Сергей812 чтобы в фильтр добавить несколько значений с одним dxf кодом

Кто сказал, что обязательно с одним? ))

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Кто сказал, что обязательно с одним? ))

Это был вольный перевод к приведенному примеру)

Есть, например, замечательные справочники типа "AutoLisp и VisualLisp", где выделена отдельная глава про фильтры со сложными условиями. На русском языке

[trushev]

Сообщение от Сергей812 чтобы в фильтр добавить несколько значений с одним dxf кодом - надо заключить в группы "-4".

Спасибо, хоть какое-то понимание.

Сообщение от Сергей812 Есть, например, замечательные справочники типа "AutoLisp и VisualLisp", где выделена отдельная глава на русском языке

У Полещука не нашел. Если не сложно дать информацию где найти.

[Сергей812]

Сообщение от trushev У Полещука не нашел. Если не сложно дать информацию где найти.

в издании 2006 года ищите функцию ssget.. и в этой же главе будет тема про фильтры со сложными условиями на пару страниц. Номер не скажу - книга дома осталась)

[Vladimir_Sergeevich]

1.12.14.1 фильтры со сложными условиями ... стр 124

[trushev]

Спасибо всем! Книгу вычислил:
Название: AutoLISP и Visual LISP в среде AutoCAD
Автор: Николай Полещук, Петр Лоскутов
Издательство: БХВ-Петербург
Год: 2006
ISBN: 5-94157-738-9
Вечером дома скачаю.

[Дима_]

Имей в виду - оба автора участники этого форума.

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

И не только этого )))

[trushev]

Халяву предпочитаю не использовать.
Нашел другой вариант: Э.Т. Романычева, Т.М. Сидорова, С. Ю. Сидоров AutoCad Практическое руководство Версии 12, 13, 14 "ДМК" Москва 1997
Правда от стиля авторов закипаю.

[Сергей812]

Offtop: Книжка "AutoLISP и Visual LISP в среде AutoCAD" 2006г. стоит на том же озоне меньше 500р, по объему и организации информации - 100% окупается просто за счет сокращения времени на первоначальное обучение, имхо.

[Inferi]

Добрый день! Подскажите как решить следующую задачу: вставляю блок тройника, но не знаю как проверить ориентацию (верный угол поворота блока), как лучше удлинить мультилинию до точки пересечения pp?

Код:

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

(vl-load-com)
(setq obj1 (car (entsel "\nВыбери магистраль"))
      V1 (VLax-ename->vla-object obj1)
      lst_ml1 (entget obj1)
      coor1 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) lst_ml1))
      pm11 (nth 0 coor1)
      pm12 (nth 1 coor1)
      alf1 (angle pm11 pm12)
      alf1g (/ (* alf1 180) pi)
      RazP1 (vlax-ldata-get V1 "Razmer"))
      
(setq obj2 (car (entsel "\nВыбери ответвление"))
      V2 (VLax-ename->vla-object obj2)
      lst_ml2 (entget obj2)
      coor2 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) lst_ml2))
      pm21 (nth 0 coor2)
      pm22 (nth 1 coor2)
      alf2 (angle pm21 pm22)
      alf2g (/ (* alf2 180) pi)
      RazP2 (vlax-ldata-get V2 "Razmer"))

(setq pp (inters pm11 pm12 pm21 pm22 nil))
(setq path (strcat "C:/MyLisp/КругТройник/" RazP1 "/" "Тройник " RazP1 "-" RazP2))
(command "_-insert" path "_non" pp 1 1 alf2g)

[skkkk]

Offtop:

Сообщение от trushev Халяву предпочитаю не использовать.

А в чем принципиальная разница этого и предыдущего указанного изданий? В том, что авторы второго не заходят на этот сайт? Не факт ведь, что не заходят. "Другой вариант", стало быть - тоже "халява", раз скачан бесплатно?

[trushev]

Offtop:

Сообщение от Сергей812 стоит на том же озоне меньше 500р

485р

Сообщение от skkkk "Другой вариант", стало быть - тоже "халява", раз скачан бесплатно

Приобретен еще в прошлом веке. Если не изменяет память на книжной ярмарке в Олимпийском.

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

Inferi, картинок не видно. Тебе что мешает их в пост прикрепять?

[Inferi]

Спасибо за внимание!