[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

_____________________________________________________________________________________________________________

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

[Woron]

Попробовал вставить кусок из примера.
Отработатл вроде нормально (линию построил), но со смещением.
Вот если я использую

_line "0,0" "20,20"

отрезок строится с точки (0,0,0) до точки (20,20,0).

А если из VB вызываю

ptStart(0) = 0: ptStart(1) = 0: ptStart(2) = 0 ptEnd(0) = 20: ptEnd(1) = 20: ptEnd(2) = 0 .AddLine ptStart, ptEnd

то отрезок строится с точки (-2089.8883,-3269.5897,0) до точки (-2069.8883,-3249.5897,0).

[ashas-]

Что за размерный стиль?

(getvar "osmode") и (getvar "orthomode"), сделал просто потому что видел что их пишут, решил тоже написать... ).
Если после "Введите № позиции <1> " ввести ESC то программа закончит свою работы, да еще и не в лучшем виде.
(command "_.clayer") использовал потому что делал программу только под себя, и не планировалось что бы она у кого то еще работала, и если она не вернется в прежнее значение, это не на что не повлияет.
"Укажите точку № позиции " - некорректно я здесь поставил подсказку. Имелось введу где должен находиться кружок с позицией.
Поменял osmode что бы ничего лишнего не цеплялось, дальше рисуеться сплайн и маленький кружок. Если стоит привязка "конточка" (если не ошибаюсь) то центр маленького круга и сплайн почему то не совпадают... Что делает "_none"??
Все опции на русском, потому что у меня русифицированная версия, и я не долга мучаясь написал по русски что б можно было хотя бы проверить работоспособность.
Орто возвращается обратно в "1", потому что у меня всегда орто включено...
(command "_.hpname" <>) изменение этой переменной и не возвращение ее обратно тоже не несет для меня никакой проблемы, я бы сказал, наоборот, если ее восстановить то понесет...
ToolPalettes - как ее применить? Что именно ты подразумеваешь? Стандартная выноска меня не устраивает.

Вопрос кстати, так и остался открытым, можно как нибудь ескейп обойти?

И еще: как после команды entget вытащить определенную точечную пару, или изменить ее?

[Лиспер]

Сообщение от ashas- Что за размерный стиль?

ashas-, по полной аналогии с тем, что я показывал чуть ранее.

Сообщение от ashas- сделал просто потому что видел что их пишут, решил тоже написать... )

Не стоит так делать. Надо обрабатывать только те системные переменные, которые необходимы программе - не больше и не меньше.

Сообщение от ashas- (command "_.clayer") использовал потому что делал программу только под себя, и не планировалось что бы она у кого то еще работала, и если она не вернется в прежнее значение, это не на что не повлияет.

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

Сообщение от ashas- Что делает "_none"

Временно отключает привязку при указании точки. Можно попробовать, это не страшно

Сообщение от ashas- ToolPalettes - как ее применить? Что именно ты подразумеваешь? Стандартная выноска меня не устраивает.

Почему не устраивает? По-моему, настроить выноску не сложно.

Сообщение от ashas- можно как нибудь ескейп обойти?

Можно. Например, так:

Код:

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

(if (= (type (setq pt (vl-catch-all-apply (function (lamdba() (getpoint "\nУкажите точку <Отмена> : ")))))) 'list)
(princ "\nТочка указана")
(princ "\nЛибо нажат Enter, либо Esc"))
(princ)

Сообщение от ashas- как после команды entget вытащить определенную точечную пару

См.функцию assoc

Сообщение от ashas- изменить ее

См. subst

[ashas-]

Спасибо, за подробные разъяснения! Буду разбираться.

В стандартной мультивыноске мне не нравится что она постоянно сплайн с боку цепляет ...
Кулик Алексей aka kpblc, скинул мне два файла, я че то там сделал и он (сплайн) стал цепляться как надо (хаотично, в зависимости с какой стороны ведешь). Но потом че то снова сделал и теперь не могу понять как это сделать снова! Как то так... : )))
И еще мне не нравится что нельзя цвет текста поменять (можно только вместе с кружком).

Да и вообще сейчас написание мультивыноски стало как способ изучения автолиспа )

С функцией "subst" и "assoc" вроде разобрался... внес изменения в весть список примитива, до этого названный с помощью setq (в моем случае это круг)), но эти изменения не применились к примитиву. Почему? Как правильно это делается ?

Вот что я делал:

Код:

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

 (setq cir (entlast))
(setq q (entget cir))
(setq para (assoc 8 q))
(setq nov (subst '(8 . "os") '(8 . "h") q))

[Michael!]

Доброго времени суток!
Знающие люди, подскажите пожалуйста, как проверить в лиспе есть ли слой с данным именем в файле чертежа? И если он есть, его свойства на данный момент времени - скрыт-не скрыт, заморожен-разморожен, заблокирован-разблокирован.

спасибо!

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

(tblobjname "layer" ИмяСлоя) вернет nil, если слоя не существует. Если есть - возвращает ename-указатель на него. А дальше - DXF Reference в руки

[gomer]

Сообщение от Michael! роверить в лиспе есть ли слой с данным именем в файле чертежа? И если он есть, его свойства на данный момент времени - скрыт-не скрыт, заморожен-разморожен, заблокирован-разблокирован.

Как-то так, если не изменяет память:

Код:

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

 (setq lyr_nam "0")
(setq ent_lyr (tblsearch "LAYER" lyr_name))
(vla-get-Freeze (vlax-ename->vla-object ent_lyr))
(vla-get-Lock (vlax-ename->vla-object ent_lyr))

[Michael!]

вот спасибо!!! выручили.

[Michael!]

Доброго времени суток!
Еще вопросик возник:
Есть 2D замкнутая полилиния, образованная отрезками и дугами. Как найти самые удаленные точки по оси Х и по Y (максимальный размер по Х и по Y)
Спасибо!

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

Сообщение от Michael! самые удаленные точки

От чего самые удаленные? И в какую сторону? И в какой системе координат?

[Michael!]

самые удаленные друг от друга по оси Х и по оси Y в World системе координат. (как бы это сказать - самую минимальную координату Х, самую максимальную координату Х, самую минимальную координату Y, самую максимальную координату Y которые принадлежат этой фигуре (замкнутой полилинии)).

[gomer]

vla-getboundingbox

[Michael!]

спасибо!!! разобрался.

[Frigate]

ashas-,

угу, все верно

а теперь смотри функцию entmode

[alex8888]

Frigate, entmode? или entmod

[Frigate]

alex8888,

ну да, конечно entmod

в любом случае в справке найдется поиском нужная комнада )))

[ashas-]

Frigate, спасибо!

[Frigate]

Как программно узнать, что выделенный примитив (напр., по entsel) входит группу? И как определить, в какую группу он входит?


Всегда ли группа (GROUP) в entget-списке находится после пары 102 AcadReactors

(102 . "{ACAD_REACTORS") (330 . <Имя объекта: 7ef0cd10>) (102 . "}")

?

Если я прав, тогда эта функция поможет определить, входит ли указанный примитив в группу:

Код:

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

(defun adv-groups-get-group-of-entity (ent)
;функция возвращает vla-указатель на группу, к которой принадлежит примитив
(IF (equal (cdr (assoc 0 (entget (cdr (assoc 330 (entget ent)))))) "GROUP")
(PROGN
(PRINC "\nИмя группы: ")
(PRINC (vla-get-name (vlax-ename->vla-object (cdr (assoc 330 (entget ent))))))
(PRINC "\n")
(cdr (assoc 330 (entget ent)))
) ; _ end of PROGN
(PROGN
(PRINC "\nВыбранный примитив не входит ни в одну группу.")
nil
) ; _ end of PROGN
) ; _ end of IF
) ; _ end of defun

[gizmo_zx]

Добрый день.
Есть желание написать програмку для операции с буфером обмена.
На VBA все понятно ( получить буфер обмена в текстовую переменную, заменить "/P" на пробел, передать обратно в буфер)
Суть программы: сбросить форматирование текста, и убрать деление на строки (в мультитексте) если такое есть.
Вопрос как это на Lisp`e сделать?

[Do$]

Сообщение от gizmo_zx Суть программы: сбросить форматирование текста, и убрать деление на строки (в мультитексте) если такое есть. Вопрос как это на Lisp`e сделать?

В поиск по форуму - по словам mtext и unformat.