Комментарии для AutoLISP / VisualLISP

Комментарий на Как погасить сообщения nanoCAD при загрузке lsp? от EdwardSt

EdwardSt — Tue, 24 Feb 2026 16:11:05 +0000

Неважно, сколько функций определено в файле. Каждая из (defun возвращает имя определяемой функции. Но обертка (load в виде результата выдает только наименование последней из них.
Приведенный выше лиспец грузит файлы один за другим и без последнего оператора (princ выдал бы имя последней определенной функции в последнем из файлов, которые (load.
Вот если внутри загружаемых файлов вперемежку с определениями функций будут операторы типа (print, то такие сообщения, естественно, попадут в командную строку.

Комментарий на Показать полный путь к файлу в заголовке окна ncad от EdwardSt

EdwardSt — Wed, 18 Feb 2026 13:56:44 +0000

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

;устанавливает автоматическое отображение
;полного имени файла:
; - в заголовке окна NanoCAD
; - в плавающем окне документа
;Файл можно вставить в автозагрузку
(vl-load-com)

;Тело реактора
(defun set-doc-caption (reactor-object parameter-list / doc app cpt fn path)
(setq doc (car parameter-list)) ; активируемый документ
(setq app (vlax-get-acad-object))
(if (setq cpt (findfile (vla-get-FullName doc)))
(progn
(if (= (vla-get-Active doc) :vlax-false) ; плавающее окно
(setq path "" fn cpt)
(setq
path (strcat (vl-filename-directory cpt) "\\")
fn (strcat (vl-filename-base cpt)
(vl-filename-extension cpt))))
(vlax-put-property doc 'windowtitle fn)
(vlax-put-property app 'Caption path)
))
(prin1)
)

(defun clear-doc-caption (reactor-object parameter-list / )
(vlax-put-property (vlax-get-acad-object) 'Caption "")
(prin1)
)

;натравливаем ректор на событие

(if (not *EDw_CaptionReactor*)
(setq *EDw_CaptionReactor* (vlr-docmanager-reactor nil
'(
(:vlr-documentBecameCurrent . set-doc-caption)
(:vlr-documentToBeDeactivated . clear-doc-caption)
)
)))
(prin1)

По мотивам поста немного доработал реализацию с использованием реактора.
Для плавающего окна документа должно отображаться полное имя файла (если он уже сохранялся).
При возврате в фиксированное положение отображается имя без пути.

Комментарий на Создание LWPOLYLINE через ActiveX в NC от EdwardSt

EdwardSt — Fri, 30 Jan 2026 08:22:00 +0000

Озвученного недостатка лишено использование (entmakex ...).
Проглатывает и двухмерные, и трехмерные точки. Из них используются только первые две координаты.
По (entget...) выдаются трехмерные точки (z всегда равно 0)

Комментарий на LISP: GigaChat vs полупрограммист. Чья возьмет? от EdwardSt

EdwardSt — Mon, 12 Jan 2026 14:44:46 +0000

В приведенном кейсе меня больше всего занимает, как ИИ сумел закончить размытые формулировки ТЗ. Ведь каким-то образом он трансформировал "... какая из точек выбранной ранее полилинии ближе всего к выбранной точке ... " в " ... какая из вершин ближе всего" и "угол между отрезком и полилинией" ( у любого угла есть как минимум альтернативный +pi) и далее попытался реализовать именно такой сценарий. Т.е.. ИИ проглотил совершенно нечеткую формулировку, преобразовал ее к одной из возможных интерпретаций и продолжил молотить дальше. Честно говоря, немного жуть берет от таких вольностей. И ведь это запросто начнет вываливаться в массы

Комментарий на Программы Александра Ривилиса от Евгений

Евгений — Fri, 14 Nov 2025 08:57:34 +0000

DWGConvert - шик, блеск, шоколад.

Александру благодарность!

Комментарий на Пакетная обработка файлов в NCAD 23.1 и монитор системных переменных от Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 10 Sep 2025 17:51:50 +0000

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

Комментарий на Пакетная обработка файлов в NCAD 23.1 и монитор системных переменных от drz

drz — Wed, 10 Sep 2025 13:39:37 +0000

Чего там..
Прочитал подраздел , если есть
Запомнил
Закрыл монитор
Сделал дело открыл

Комментарий на Пакетная обработка файлов в NCAD 23.1 и монитор системных переменных от Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 10 Sep 2025 12:48:15 +0000

Я искренне полагал, что уж где-где, а в startup должны быть вещи, вызываемые на старте приложения. С другой стороны, удаление реестра не приводит к закрытию монитора (в принципе, предсказуемо). Придется все же командами обходиться (((
Спасибо

Комментарий на Пакетная обработка файлов в NCAD 23.1 и монитор системных переменных от drz

drz — Wed, 10 Sep 2025 12:39:40 +0000

> Быстрый поиск по реестру ничего не показал; системной переменной, отвечающей за отображение монитора, нет;

Слишком быстро искал

SysVarMonitor

открыт: подраздел есть

HKEY_CURRENT_USER\SOFTWARE\Nanosoft\nanoCAD x64\23.1\Profiles\SPDS\Startup\SysVarMonitor

подраздела нет

HKEY_CURRENT_USER\SOFTWARE\Nanosoft\nanoCAD x64\23.1\Profiles\SPDS\Startup

нанодевы такие затейники

регорганайзер форевер

Комментарий на Пакетная обработка файлов в NCAD 23.1 и монитор системных переменных от Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 10 Sep 2025 10:49:55 +0000

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