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

Комментарий на Ускорение AutoCAD. Часть 2 от Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 02 Jul 2026 13:37:58 +0000

По идее не надо. А что, есть проблемы в работе acad?

Комментарий на Ускорение AutoCAD. Часть 2 от Андрей

Андрей — Thu, 02 Jul 2026 07:39:44 +0000

Привет! Пишу из далекого 2026го года.
На работе начались проблемы у пользователей с Автокадом. Все тормозит и долго работает.
Решил почитать данную статью и взять полезные советы.
Автокад 2024 - файл acad.exe.config имеет конфигурацию следующую.
Я так понял версию NET тут уже не указывают. А вообще на данный момент менять что-то нужно или уже не актуально?

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

<configuration>

<runtime>
<AppContextSwitchOverrides value="Switch.System.ServiceModel.DisableUsingServicePointManagerSecurityProtocols=false;Switch.System.Net.DontEnableSchUseStrongCrypto=false" />
</runtime>

--All assemblies in AutoCAD are fully trusted so there's no point generating publisher evidence-->
<runtime>
<generatePublisherEvidence enabled="false"/>

-- Microsoft.Graph.dll has a hard reference to Newtonsoft.Jon.dll 6.0.0.0.
However, Dropbox.API.DLL requires 7.0.0.0

More info:
https://github.com/microsoftgraph/msgraph-sdk-dotnet/issues/276
-->
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-11.0.0.0" newVersion="12.0.0.0" />
</dependentAssembly>
</assemblyBinding>

</runtime>

<appSettings>
<add key="EnableWindowsFormsHighDpiAutoResizing" value="true" />
</appSettings>
</configuration>

Комментарий на Как погасить сообщения 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 должны быть вещи, вызываемые на старте приложения. С другой стороны, удаление реестра не приводит к закрытию монитора (в принципе, предсказуемо). Придется все же командами обходиться (((
Спасибо