[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

_____________________________________________________________________________________________________________

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

[skkkk]

Сообщение от Кулик Алексей aka kpblc Средствами lisp'a - нереально.

Сообщение от Дима_ Крайне сложно - в теории лисп вобще не факт что откуда-то загружен

Ну если имя файла доподлинно и заранее неизвестно, тогда я прогнал.

[kha]

Спасибо за ответы.

Сообщение от skkkk Код: [Выделить все] (setq path (findfile "Lisp.lsp")) и далее с помощью функций обработки строк приводить к нужному виду. Не то?

Насколько я понял, findfile ищет по путям поиска файлов, а мне нужно, чтобы этот лисп нашёл из какой папки он запущен и прописался в пути доступа.

Хотел сделать миниустановщик, как в VetCAD. Чтобы установить VetCAD, нужно загрузить файл "SetupVetCAD_XXXX.arx".
Он тут же запускается и прописывает нужные пути доступа. Но насколько я понял, это уже средствами arx нужно делать.

Хорошо, средствами LISP не получится. В какую тогда сторону смотреть? net или arx?

[Дима_]

Сообщение от kha В какую тогда сторону смотреть? net или arx?

Не принципиально, можно еще COM, а еще можно установщиком вначале записать в самом лиспе (в реестре) путь к нему-же. Я обычно ставлю установщиком в %appdata%...

[kha]

Дима_, пока что прописываю пути явно. В начале накидал переменных с путями.

Кулик Алексей aka kpblc, нашёл твою тему по этому поводу: http://www.caduser.ru/forum/index.ph...#message127730

по прочтению темы придумал, как можно быстро побороться с возможным переименованием имени сервера. Прописываю имя сервера в переменную в начале лиспа, нужные пути получаю strcat'ом

[kha]

Нашёл, в каком месте взять путь к каталогу, из которого произведена последняя загрузка лиспа через диалог _appload.

После загрузки приложения AutoCAD прописывает путь в реестр:

[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXXX\ACAD-AXXX:XXX\Profiles\[имя профиля]\Dialogs\Appload]

параметр MainDialog

Появился ещё один вопрос - как сделать так, чтобы лисп запустился автоматически после его загрузки через диалог _appload?

[skkkk]

Сообщение от kha как сделать так, чтобы лисп запустился автоматически после его загрузки через диалог _appload?

В самом теле лиспа после закрывающей скобки defun прописать на исполнение определенную в этом лиспе команду или функцию.
Например:

Код:

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

(defun C:TEST ()
	...........
	...........

)
(C:TEST)

[kha]

skkkk, первым делом попробовал, но что-то пошло не так.

Сейчас получилось, благодарю

UPD: понял. Я писал (test), а надо было (c:test)

круто! теперь можно делать макросы для кнопок чуток попроще.

вместо ^C^C(load "test") test
можно писать ^C^C(load "test")

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

Сообщение от kha как сделать так, чтобы лисп запустился автоматически после его загрузки через диалог _appload?

Добавить самовызов функции.

[skkkk]

Сообщение от Кулик Алексей aka kpblc Добавить самовызов функции.

Алексей, а это как? Не так ли, как я толковал в #2221? Offtop: Подозреваю, что ты не заметил еще одну страницу темы

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

Сообщение от skkkk Не так ли, как я толковал в #2221?

Да, так

Сообщение от skkkk Подозреваю, что ты не заметил, что есть еще одна страница темы

Учитывая, что отвечал я с телефона, думаю - мне простительно

----- добавлено через 21 сек. -----
Только что сел за комп...

[gomer]

Фигней страдаете, господа писатели. Есть нормальный способ загрузки, придуманный автодеском давным давно. Сейчас это выглядит как связка CUIX и MNL. Это самый простой вариант, в котором есть и меню и панели инструментов с иконками. Причем команды подгружаются из строго определенного места. Более того, в cuix можно прописать нужные лиспы и они будут подгружаться автоматически. Хотя ИМХО это уже лишнее. Из mnl все что нужно и так прекрасно подгружается

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

gomer, http://adn-cis.org/posledovatelnost-...v-autocad.html и http://adn-cis.org/autocad-autoload-security.html видел? И потом, вопрос был совсем не про это

[gomer]

Сообщение от Кулик Алексей aka kpblc видел?

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

Код:

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

 (strcat (getenv "PROGRAMFILES") "\\" "MySuperPuperApp2014")

[skkkk]

Сообщение от kha вместо ^C^C(load "test") test можно писать ^C^C(load "test")

С этой стороны не все ли равно, где прописать слово test: в макросе на кнопку или в теле файла *.lsp?
И зачем же каждый раз подгружать лисп? Я вижу, правда два оправданных варианта:
1. Тестирование и отладка кода происходит не во встроенном VLIDE, а в блокноте. Тогда нажатие на кнопку будет каждый раз подгружать измененный код и запускать его на исполнение.
2. Запуск функции необходим при старте Автокада. Дабы не лезть в acad.lsp или acaddoc20XX.lsp, добавляем файл в автозагрузку - и он грузится при старте и тут же исполняется (например, создаются слои, стили размеров, вставляются форматки и т.д.)
В случае с кнопкой для рядового пользователя подгружать лисп стоит лишь в том случае, если он еще не загружен. Конечно, загрузка происходит очень быстро и незаметно, но это как-то плохо, не по Фен-Шую что ли...

[kha]

skkkk, чтобы было по Фен-Шую можно поставить проверку на загрузку лиспа: ^C^C(if (= c:test nil) (Load (findfile "test.lsp")) (c:test)).

Хотя да, смысл теряется. Макрос проще выглядит без автозапуска лиспа:

^C^C(if (= c:test nil) (Load (findfile "test.lsp"))) test

Как только появляется молоток, сразу же всё вокруг кажется гвоздями

Сообщение от skkkk 2. Запуск функции необходим при старте Автокада. Дабы не лезть в acad.lsp или acaddoc20XX.lsp, добавляем файл в автозагрузку - и он грузится при старте и тут же исполняется (например, создаются слои, стили размеров, вставляются форматки и т.д.)

За это спасибо, всё голову ломал, как бы от редактирования acaddoc20XX.lsp уйти.

[Vladimir_Sergeevich]

Прошу критики и помидоров, дабы понять, в том ли направлении мыслю в целом.

Код:

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

 (defun c:pk ( / pt pt1 pt2 pk oldcmd adoc *mspace*)
(vl-load-com)
       (defun *error* (msg)
	(if oldcmd (setvar "CMDECHO" oldcmd))
        (princ msg)
	(princ)
	);end error
(setq oldcmd (getvar "CMDECHO")) (setvar "CMDECHO" 0)
(setq adoc (vla-get-activedocument (vlax-get-acad-object))
      *mspace* (vla-get-ModelSpace adoc))
(if (null curve-os)
(setq curve-os (car (entsel "\nУкажите ось: ")))
);if
(initget "Другая ось")
(setq pt (getpoint "\nУкажите точку: [Другая ось]"))
(cond 
((= pt "Другая")
(setq curve-os (car (entsel "\nУкажите другую ось: ")))
(setq pt (getpoint "\nУкажите точку: "))
)
(t nil);t
);cond
(setq pk (vlax-curve-getDistAtPoint curve-os (vlax-curve-getClosestPointTo curve-os pt))
      pt1 (getpoint "\nУкажите положение текста: ")
      pt2 (getpoint pt1 "\nУкажите поворот текста: ")
)
    (vla-put-Rotation
	(vla-addText *mspace* 
	(strcat "+" (rtos (rem pk 100) 2 1)) 
	(vlax-3d-point pt1) 
	(getvar "textsize"))
    (angle pt1 pt2)
    )
(princ (strcat "\nПоложение точки отностительно оси: " (rtos pk 2 2)))

(setvar "CMDECHO" oldcmd)
(princ) 
);end defun

собственно должна выдавать привязки точек относительно оси с возможностью смены оси

[gomer]

Сообщение от Vladimir_Sergeevich Прошу критики и помидоров

1. Зачем CMDECHO ??? Где OSMODE?
2. Что будет если ось удалена после выполнения программы?
3. Что будет если активна не модель?
4. (t nil) ?

[Vladimir_Sergeevich]

1. почему не надо отключать эхо? привзку отключать тут не надо
2. как то не приходило в голову, что у кого то рука поднимется на такое кощунство
3. все привязки делаются только в модели ибо там же и ось и вся ситуация
4. слизано с полещука - что бы функция возвращала nil в случае когда условие не выполняется. перечитал, подумал, наверно соглашусь, лишее...

з.ы. проверил 2:
Укажите точку: [Другая ось]неверное значение аргумента: AcDbCurve 2130622808
можно спокойно задать другую ось и продолжать ваять

[gomer]

Сообщение от Vladimir_Sergeevich почему не надо отключать эхо? привзку отключать тут не надо

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

[Vladimir_Sergeevich]

Идею понял, но... кроме entsel в самом начале и getpoint 3 раза пользователь ничего не вводит, ему на координаты что ли смотреть?
кстати, ради интереса закомментил - разницы никакой не обнаружил, значит можно совсем убрать