Восстановление некоторых окон nanoCAD

Автор: | Дата: 30 Апрель 2025 · Прокомментировать 

На основании https://doctorraz.blogspot.com/2024/06/nanocad.html нарисовал вот такое чудовище

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
(vl-load-com)
((lambda (/ hive)
   (setq hive (strcat "HKEY_CURRENT_USER\"
                      (vlax-product-key)
                      "\\Profiles\"
                      (getvar "cprofile")
                      "\\Commands\\Plot"
              )
   )
   (vl-registry-delete hive "CPageSetupDlg Size")

   (setq hive (strcat "HKEY_CURRENT_USER\"
                      (vlax-product-key)
                      "\"
                      (cond
                        ((= (getvar "cconfiguration") "")
                         "nCAD"
                        )
                        (t (getvar "cconfiguration"))
                      )
                      "\\MechCtl"
              )
   )
   (vl-registry-delete hive "ObjectSearcher_FindReplaceDialog")

   (princ)
 )
)

Ну и собственно файл: restore-nano-windows

P.S. После восстановления окон крайне желательно перезапустить NC.

Размещено в nanoCAD, Код LISP, Функции LISP · Метки: , , ,



Поделитесь своим мнением


Я не робот.