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

Комментарий на NET автоверсионность сборок от doctorRAZ

doctorRAZ — Wed, 15 Jul 2026 08:24:19 +0000

> Использование маски типа 10.21.*, насколько я понял, для билда назначает количество дней с начала года

Build = количество дней с 1 января 2000 года (по локальному времени машины, где идёт сборка).
Revision = количество секунд от полуночи, делённое на 2 (то есть фактически кодирует время сборки в течение дня).

норм студия все собирает)

Комментарий на NET автоверсионность сборок от Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Wed, 15 Jul 2026 08:07:18 +0000

Возможно, я чего-то не понял (если честно, башка сейчас забита вопросом - то ли тех.долг закрывать, то ли дальше своего франкенштейна сшивать), но (как мне кажется), у тебя не сильно-то номера сборок назначаются. Использование маски типа 10.21.*, насколько я понял, для билда назначает количество дней с начала года, а для ревизии - количество минут с начала суток. Да и NET-сборки, которые не Framework, мне при компиляции ругались нехорошими словами. Возможно, я просто чего-то недоучитываю

Комментарий на NET автоверсионность сборок от doctorRAZ

doctorRAZ — Wed, 15 Jul 2026 07:20:34 +0000

> Для "сопутствующих" сборок

например собрал ты в конце года сборку

пересобрал после нового года, не поменял мажор минор.... лисп посчитает, что она старая???

предлагаю так....

как ты всегда учил надо минимизировать дублирование кода (относится и к свойствам проектов), для этого в нашем случае отлично подходит Directory.Build.props

кидаем его в корень каталога решения и прописываем в нем общие параметры для всех сборок

<Project>
  <!-- <Import Project="d:\@Developers\Programmers\!NET\Shared\Directory.Build\Directory.Build.props"/> -->
  <PropertyGroup>
    <!-- ***************** общие свойства всех решений ***************** -->
    <!-- root решения относительно этого файла -->
    <!--<RepoRoot>$(MSBuildThisFileDirectory)</RepoRoot>-->
    <!-- root решения относительно каталога решения, более верно -->
    <!--************* только при сборке из решения ******************-->
    <RepoRoot>$(SolutionDir)</RepoRoot>
    <!-- позволяет проекты размещать в одном каталоге -->
    <!-- выходной каталог obj в каталоге решения -->
    <BaseIntermediateOutputPath>$(RepoRoot)obj\$(MSBuildProjectName)\</BaseIntermediateOutputPath>
    <LangVersion>latest</LangVersion>
    <!--<DateTime -->
    <StartYear>2014</StartYear>
    <CurrentYear>$([System.DateTime]::Now.Year)</CurrentYear>
    <!--<Version />-->
    <!-- <GenerateAssemblyInformationalVersionAttribute>false</GenerateAssemblyInformationalVersionAttribute> -->
    <!--<Version />-->
    <!-- ***********путь сборки -->
    <AppendTargetFrameworkToOutputPath>false</AppendTargetFrameworkToOutputPath>
    <BaseOutputPath>..\bin\</BaseOutputPath>
    <OutputPath>$(SolutionDir)bin\$(Configuration)</OutputPath>
    <!-- *******************Description *************-->
    <!-- ***************** Постоянные свойства ***************** -->
    <!-- CompanyName -->
    <Company>doctorRaz@gmail.com</Company>
    <!-- LegalCopyright -->
    <Copyright>Разыграев Андрей</Copyright>
    <!-- LegalTrademarks -->
    <Trademark>©doctorRaz $(StartYear)-$(CurrentYear)</Trademark>
    <!-- ***************** Переопределяются в проекте ***************** -->
    <!-- ProductName -->
    <Product>$(SolutionName)</Product>
    <!-- FileDescription он жэж Title-->
    <!-- если все закоментить то в титул пойдет имя сборки -->
    <!-- <AssemblyTitle>PlotSPDS</AssemblyTitle> -->
    <!-- Comments -->
    <!-- ProductVersion он жэж AssemblyInformationalVersion-->
    <InformationalVersion>$(SolutionName) for nanoCAD</InformationalVersion>
    <IncludeSourceRevisionInInformationalVersion>false</IncludeSourceRevisionInInformationalVersion>
    <NeutralLanguage>ru-RU</NeutralLanguage>
    <!-- ***************** ХЗ где используется ***************** -->
    <!-- <PackageProjectUrl>http://doctorraz.blogspot.com/2022/10/PlotSPDS.NET.html</PackageProjectUrl> -->
    <!-- <ProductVersion>ProductVersion</ProductVersion> -->
    <!-- <AssemblyProductVersion>AssemblyProductVersion</AssemblyProductVersion> -->
    <!-- <AssemblyInformationalVersionAttribute>AssemblyInformationalVersionAttribute</AssemblyInformationalVersionAttribute> -->
    <!-- ***************** индивидуальные свойства решения *****************-->
    <!-- с WPF аккуратно, теряет ресурсы если root другой, -->
    <RootNamespace>drz.SpecSPDS</RootNamespace>
    <Deterministic>false</Deterministic>
    <GenerateAssemblyInfo>true</GenerateAssemblyInfo>
    <AssemblyVersion>0.1.*</AssemblyVersion>
    <GenerateAssemblyFileVersionAttribute>false</GenerateAssemblyFileVersionAttribute>
    <Description>Спецификация из универсального маркера, CAD + Multicad</Description>
    <RepositoryUrl>https://github.com/doctorRaz/SpecSPDS</RepositoryUrl>
    <MinVersion>23</MinVersion>
  </PropertyGroup>
</Project>

<RepoRoot>$(SolutionDir)</RepoRoot>

<BaseIntermediateOutputPath>$(RepoRoot)obj\$(MSBuildProjectName)\</BaseIntermediateOutputPath>

<LangVersion>latest</LangVersion>

<CurrentYear>$([System.DateTime]::Now.Year)</CurrentYear>

<AppendTargetFrameworkToOutputPath>false</AppendTargetFrameworkToOutputPath>

<OutputPath>$(SolutionDir)bin\$(Configuration)</OutputPath>

<Company>doctorRaz@gmail.com</Company>

<Copyright>Разыграев Андрей</Copyright>

<Trademark>©doctorRaz $(StartYear)-$(CurrentYear)</Trademark>

<Product>$(SolutionName)</Product>

<InformationalVersion>$(SolutionName) for nanoCAD</InformationalVersion>

<IncludeSourceRevisionInInformationalVersion>false</IncludeSourceRevisionInInformationalVersion>

<RootNamespace>drz.SpecSPDS</RootNamespace>

<Deterministic>false</Deterministic>

<GenerateAssemblyFileVersionAttribute>false</GenerateAssemblyFileVersionAttribute>

<Description>Спецификация из универсального маркера, CAD + Multicad</Description>

<RepositoryUrl>https://github.com/doctorRaz/SpecSPDS

</PropertyGroup>

</Project>

эти строчки отвечают за номер сборки

    <Deterministic>false</Deterministic>
    <GenerateAssemblyInfo>true</GenerateAssemblyInfo>
    <AssemblyVersion>0.1.*</AssemblyVersion>
    <GenerateAssemblyFileVersionAttribute>false</GenerateAssemblyFileVersionAttribute>

<Deterministic>false</Deterministic>

<GenerateAssemblyFileVersionAttribute>false</GenerateAssemblyFileVersionAttribute>

будет вида 0.1.9692.15284, для всех сборок проекта

если для какой то группы сборок нужен другой мажор минор, в каталоге этих сборок создаем Directory.Build.props и пишем там нужные цифры
если нужны индивидуальные свойства, то прописываем их в проекте сборки, они переопределят заданные в корневом Directory.Build.props

---

по поводу сборок NET Framework
я перевел их почти все на стиль SDK, типа так

<Project Sdk="Microsoft.NET.Sdk">
  <Import Project="$(SolutionDir)Directory.Build.props" Condition="Exists('$(SolutionDir)Directory.Build.props')" />
  <PropertyGroup>
    <TargetFramework>net462</TargetFramework>
    <RootNamespace>drz.Abstractions</RootNamespace>
    <AssemblyName>$(SolutionName).$(MSBuildProjectName)</AssemblyName>
    <InformationalVersion>$(MSBuildProjectName) for All</InformationalVersion>
    <ImplicitUsings>disable</ImplicitUsings>
    <Description>абстракции, интерфейсы</Description>
  </PropertyGroup>
  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|AnyCPU'">
    <GenerateDocumentationFile>True</GenerateDocumentationFile>
  </PropertyGroup>
</Project>

<RootNamespace>drz.Abstractions</RootNamespace>

<AssemblyName>$(SolutionName).$(MSBuildProjectName)</AssemblyName>

<InformationalVersion>$(MSBuildProjectName) for All</InformationalVersion>

<ImplicitUsings>disable</ImplicitUsings>

<Description>абстракции, интерфейсы</Description>

</PropertyGroup>

</PropertyGroup>

</Project>

учитывая, что у тебя есть Directory.Build.props если хочешь другой номер версии, то просто добавь

<AssemblyVersion>10.21.*</AssemblyVersion>

1	<AssemblyVersion>10.21.*</AssemblyVersion>

---

по поводу текстового файла с номером версии для обновлятора

в корень решения кидаем Directory.Build.targets

там прописываем такие строчки

  <Target Name="WriteUpdateInfoINI" AfterTargets="Build">

    <GetAssemblyIdentity AssemblyFiles="$(TargetPath)">
      <Output TaskParameter="Assemblies" ItemName="AssemblyInfo"/>
    </GetAssemblyIdentity>

    <WriteLinesToFile
      File="$(TargetDir)update.ini"
      Overwrite="false"
      Lines="
[$(MSBuildProjectName)]
Name=$(AssemblyName)
Version=%(AssemblyInfo.Version)
"/>
    <!--json-->
  </Target>
  <Target Name="WriteUpdateInfoJson" AfterTargets="Build">

    <GetAssemblyIdentity AssemblyFiles="$(TargetPath)">
      <Output TaskParameter="Assemblies" ItemName="AssemblyInfo"/>
    </GetAssemblyIdentity>
    <PropertyGroup>
      <Major>$([System.Version]::Parse('%(AssemblyInfo.Version)').Major)</Major>
      <Minor>$([System.Version]::Parse('%(AssemblyInfo.Version)').Minor)</Minor>
      <Build>$([System.Version]::Parse('%(AssemblyInfo.Version)').Build)</Build>
      <Revision>$([System.Version]::Parse('%(AssemblyInfo.Version)').Revision)</Revision>
    </PropertyGroup>
    <WriteLinesToFile
      File="$(TargetDir)update.json"
      Overwrite="false"
      Lines='{"Project":"$(AssemblyName)","Major":$(Major),"Minor":$(Minor),"Build":$(Build),"Revision":$(Revision)}' />
  </Target>

</GetAssemblyIdentity>

<WriteLinesToFile

File="$(TargetDir)update.ini"

Overwrite="false"

Lines="

[$(MSBuildProjectName)]

Name=$(AssemblyName)

Version=%(AssemblyInfo.Version)

"/>

</Target>

</GetAssemblyIdentity>

<Major>$([System.Version]::Parse('%(AssemblyInfo.Version)').Major)</Major>

<Minor>$([System.Version]::Parse('%(AssemblyInfo.Version)').Minor)</Minor>

<Build>$([System.Version]::Parse('%(AssemblyInfo.Version)').Build)</Build>

<Revision>$([System.Version]::Parse('%(AssemblyInfo.Version)').Revision)</Revision>

</PropertyGroup>

<WriteLinesToFile

File="$(TargetDir)update.json"

Overwrite="false"

Lines='{"Project":"$(AssemblyName)","Major":$(Major),"Minor":$(Minor),"Build":$(Build),"Revision":$(Revision)}' />

</Target>

формат любой, данные любые, тут только фантазией ограничено

у меня все сборки идут в один каталог, поэтому по каждой идет дозапись в файл.

единственное но... перед сборкой файл надо удалять руками или батником, как автоматизировать удаление перед общей сборкой мы с ботом пока не придумали

Комментарий на Ускорение 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 - шик, блеск, шоколад.

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