[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

_____________________________________________________________________________________________________________

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

[Сет]

удалено

[Fedorino]

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

Код:

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

 (setq obj (vla-get-PaperSpace actdoc))
(while (/= nil (setq pnt (getpoint "Начертите контур: ")))
					(setq spln1 (vla-AddTorus obj (vlax-3D-point pnt) 0.3 0.3))
					(setq spln1_lst (cons spln1 spln1_lst))
					(setq pnt_msv (cons pnt pnt_msv))
					(setq pnt_lst (append pnt pnt_lst))
)

[vik74]

Сообщение от TararykovDG Redj, попробуй так (Используется реактор)

Этот код сохранить как .lsp?
А как запустить?

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

http://dwg.ru/pub/9

[vik74]

Сообщение от Кулик Алексей aka kpblc Обращение ко мне - на "ты". Все, что сказано - личное мнение.

Я эту статью читал не раз. но в этот раз не получается, вот и спросил.
Что не так я делаю?
Вот команды:
Команда: _appload Numer.lsp успешно загружено.


Команда: ; ошибка: считан неверный символ (восьмеричный): 0

Команда:
Команда: (objectAppended)
; ошибка: no function definition: OBJECTAPPENDED

Команда: (vl-load-com)

Команда: (objectAppended)
; ошибка: no function definition: OBJECTAPPENDED

Сам lisp прикреплен

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

Не знаю почему, но в файле нарушена кодировка. Должна быть Windows-1251

[vik74]

Сообщение от Кулик Алексей aka kpblc Не знаю почему, но в файле нарушена кодировка. Должна быть Windows-1251

.
Вот, это уже дельный ответ!!! Если не секрет, как это определил?
Спасибо Алексей!
p.s. код скопирован с форума и вставлен в notepad++, буду разбираться, где напутал

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

Открыл в VLIDE, а там вместо гарантированно русских символов чертовщина какая-то. Открыл в Notepad++ и там преобразовал в Windows-1251. Все получилось нормально вроде бы )

[vik74]

Сообщение от Кулик Алексей aka kpblc Открыл в VLIDE, а там вместо гарантированно русских символов чертовщина какая-то. Открыл в Notepad++ и там преобразовал в Windows-1251. Все получилось нормально вроде бы )

Все равно не получается запустить.
Код с форума http://forum.dwg.ru/showthread.php?p=814881&#post814881
пост 1655.

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

Так код-то будет срабатывать только при копировании мультивыноски, насколько я вижу.

[vik74]

но как заставить автоматом менять нумерацию?

[Nike]

Товарищи, подскажите пожалуйста!

Заменяю в строке символы /,*? с помощью (vl-string-translate "/,*?"

Как бы в этот список еще кавычку " внедрить? Она ведь синтаксис функции ломает..

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

Попробуй использовать

Код:

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

\"

[Inferi]

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

----- добавлено через ~2 ч. -----

Сообщение от Inferi Всем привет, может кто подскажет как получить число стрелок мультивыноски?

вроде разобрался:

Код:

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

(setq mleader (vlax-ename->vla-object (car (entsel)))
      leaderLineIndexes (vla-getLeaderLineIndexes mleader 0)
      indexList (vlax-safearray->list (variant-value leaderLineIndexes))
      quantity (length indexList)
)

[Neo]

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

Код:

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

 (mapcar	(function (lambda (x)
		    (vla-SetColumnWidth comp_list_tbl (car x) (cadr x))
		    ) ;_ end of lambda
		  ) ;_ end of function
	'((0 20) (1 25) (2 35) (3 110) (4 115) (5 15) (6 15) (7 60))
	) ;_ end of mapcar

Что не нравится: mapcar возвращает список, а мне это не нужно
может лучше это сделать через foreach? или еще как

[Дима_]

"По лисповски" или по автолисповски? ИХМО - если не уверен, что написал ты раз и навсегда - лучше используй mapcar с игнорированием результатов - они конечно добавляют работы GC, но эта та мелочь которая вряд-ли будет практически заметна, но зато если понадобится, что-то добавить, что возвращает результат - то не надо будет ломать структуру.
Если совсем по лисповски - то vla-SetColumnWidth - это "обертка" не из его парадигмы (в функциональном варианте она-бы возвращала новый объект таблицы с измененным столбцом - который надо-бы было обрабатывать через "свертку" списка).
з.ы. в данном примере можно рассмотреть вариант (apply 'vla-SetColumnWidth (cons comp_list_tbl x))

[gomer]

Сообщение от Дима_ (cons comp_list_tbl x)

действительно ?

[Neo]

подскажите как выделить только те объекты xref, которые остались после clip.
В чертеж вставлены xref на другие чертежи, и обрезаны clip. Составляю перечень элементов: все блоки текущего чертежа + видимые блоки xref-ов. Ко всем блокам xref-ов добрался, а как выбрать только те, что видно на чертеже?

[Vladimir_Sergeevich]

Возник один вопрос. Сейчас собирал программку автоматической настройки среды для отдела.
Уперся в один момент: у нас есть пара программок, которые лежат в автозагрузке "Сервис-приложения-автозагрузка".
Сколько не искал по форуму - было единственное предложение дописывать в acaddoc.lsp, чего делать не хочется (уж проще руками их добавить через окна).
Расковыривая объектную модель, тоже ничего похожего на правду не нашел.
Есть ли, все таки, способ добраться до списка этих приложений через AutoLisp или дело совсем гиблое?

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

http://adn-cis.org/posledovatelnost-...v-autocad.html
http://adn-cis.org/autocad-autoload-security.html