Комментарии на: В продолжение “почти прокси” https://autolisp.ru/2014/02/12/seems-like-proxy-2/ LISP для AutoCAD Tue, 24 Feb 2026 16:11:05 +0000 hourly 1 http://wordpress.org/?v=4.0 От: Кулик Алексей aka kpblc https://autolisp.ru/2014/02/12/seems-like-proxy-2/comment-page-1/#comment-60987 Fri, 01 Apr 2016 17:49:19 +0000 http://autolisp.ru/?p=1646#comment-60987 Благодаря сообщению VVA выяснилось, что (цитирую):
"Начиная с 2013 версии вместо acwipeout.arx нужно грузить acismui.arx "

]]> От: Кулик Алексей aka kpblc https://autolisp.ru/2014/02/12/seems-like-proxy-2/comment-page-1/#comment-52299 Tue, 24 Jun 2014 12:44:55 +0000 http://autolisp.ru/?p=1646#comment-52299 В продолжение...
Задумал я тут внимательнее посмотреть, где и как хранятся модули, отвечающие за маскировку. Нарисовал код

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
(vl-load-com)

(defun get-wipeout-loader (/ res key)

  (foreach reghive
     (setq res '(("HKEY_LOCAL_MACHINE") ("HKEY_CURRENT_USER")))
    (foreach item
       (cond
         ((vl-remove-if-not
      (function
        (lambda (x) (wcmatch (strcase x) "*WIPEOUT*"))
      )
      (vl-registry-descendents
        (strcat (car reghive)
          "\"
          (vlax-product-key)
          "\\Applications"
        )
        nil
      )
    ) ;_ end of vl-remove-if-not
         )
         (t
    (vl-remove-if-not
      (function
        (lambda (x) (wcmatch (strcase x) "*WIPEOUT*"))
      )
      (vl-registry-descendents
        (strcat
          (car reghive)
          "\"
          (substr (vlax-product-key)
            1
            (vl-string-search ":" (vlax-product-key))
          )
          "\\Applications"
        ) ;_ end of strcat
        nil
      ) ;_ end of vl-registry-descendents
    ) ;_ end of vl-remove-if-not
         )
       ) ;_ end of vl-remove-if-not
      (if (or
      (setq key (vl-registry-read
      (strcat (car reghive)
        "\"
        (vlax-product-key)
        "\\Applications\"
        item
      )
      "LOADER"
          ) ;_ end of vl-registry-read
      ) ;_ end of setq
      (setq
        key (vl-registry-read
        (strcat
          (car reghive)
          "\"
          (substr (vlax-product-key)
            1
            (vl-string-search ":" (vlax-product-key))
          )
          "\\Applications\"
          item
        ) ;_ end of strcat
        "LOADER"
      ) ;_ end of vl-registry-read
      ) ;_ end of setq
    ) ;_ end of or
  (setq res
         (subst
     (cons
       (car reghive)
       (cons (cons item key) (cdr (assoc (car reghive) res)))
     )
     (assoc (car reghive) res)
     res
         ) ;_ end of subst
  ) ;_ end of setq
      ) ;_ end of if
    ) ;_ end of foreach
  ) ;_ end of foreach
  res
) ;_ end of defun

И в результате получил:

Версия AutoCAD Результат выполнения (get-wipeout-loader)
2009
1
2
3
4
5
6
'(("HKEY_LOCAL_MACHINE"
   ("AcWipeoutUI" . "C:\\Program Files\\AutoCAD Architecture 2009\\AcWipeout.arx")
   ("WipeOut" . "AcWipeoutObj17.dbx")
   )
  ("HKEY_CURRENT_USER")
  )
2013
1
2
3
'(("HKEY_LOCAL_MACHINE" ("WipeOut" . "acismobj19.dbx"))
  ("HKEY_CURRENT_USER")
  )
2014
1
2
3
'(("HKEY_LOCAL_MACHINE" ("WipeOut" . "acismobj19.dbx"))
  ("HKEY_CURRENT_USER")
  )
2015
1
2
3
'(("HKEY_LOCAL_MACHINE" ("WipeOut" . "acismobj20.dbx"))
  ("HKEY_CURRENT_USER")
 )

Получается, что можно аналогичным образом получить каждый dbx/arx и его загружать, что ли?

]]> От: Кулик Алексей aka kpblc https://autolisp.ru/2014/02/12/seems-like-proxy-2/comment-page-1/#comment-51258 Thu, 13 Feb 2014 15:50:30 +0000 http://autolisp.ru/?p=1646#comment-51258 Пока плюнул разбираться, rss снес

]]> От: Кулик Алексей aka kpblc https://autolisp.ru/2014/02/12/seems-like-proxy-2/comment-page-1/#comment-51257 Thu, 13 Feb 2014 05:08:16 +0000 http://autolisp.ru/?p=1646#comment-51257 Я видел, но сейчас нет времени разбираться.

]]> От: Георгий https://autolisp.ru/2014/02/12/seems-like-proxy-2/comment-page-1/#comment-51256 Thu, 13 Feb 2014 04:13:26 +0000 http://autolisp.ru/?p=1646#comment-51256 Алексей, в блоке, что справа "Форум dwg.ru" все ссылки отображаются со знаками вопроса.

]]>