（国外搬运）全图删除所有代理对象

kucha007 · 发表于 2023-7-21 10:16

本帖最后由 kucha007 于 2023-7-21 10:18 编辑

panliang9 发表于 2023-7-21 09:00
试试能不能搞干净我最后发的那一张图 “完全没有办法_2023年7月21日.dwg ”

你全选，取消选择你需要的，然后把不用的东西删掉。
剩下的简单了吧

kucha007 · 发表于 2023-7-21 10:17

andyzha 发表于 2023-7-21 08:46
需要把以上代码加到启动项里吗？

我是直接拉到黑框里加载

andyzha · 发表于 2023-7-21 11:28

kucha007 发表于 2023-7-21 10:17
我是直接拉到黑框里加载

那是不是，我加到启动组里，每次开图就直接清理多余的代理对象了？

Sring65 · 发表于 2023-7-21 16:47

(VL-LOAD-COM)
(setq XANADU-WEBUPDATE-TEMPVER 1.98)
(if (NOT XANADU-APPS)
(PROGN (setq XANADU-APPS (LIST)))
)
(setq XANADU-CHECK-INTERVAL
(VL-REGISTRY-READ
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"CheckI"
)
)
(if (= (TYPE XANADU-CHECK-INTERVAL) 'STR)
(PROGN
(setq XANADU-CHECK-INTERVAL (ATOF XANADU-CHECK-INTERVAL))
)
)
(if (NOT XANADU-CHECK-INTERVAL)
(PROGN (setq XANADU-CHECK-INTERVAL 7.0))
)
(setq XANADU-SUPPRESS-AUTOLOAD-CHECK
(VL-REGISTRY-READ
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"LoadCheckSup"
)
)
(setq XANADU-SUPPRESS-AUTOLOAD-CHECK
(= XANADU-SUPPRESS-AUTOLOAD-CHECK "1")
)
(if (= (VL-REGISTRY-READ
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"NoCheck"
)
"1"
)
(PROGN (setq XANADU-NOCHECK T))
)
(if (NOT XANADU-COMM-TIMEOUT)
(PROGN (setq XANADU-COMM-TIMEOUT 2000))
)
(if (OR (NOT XANADU-WEBUPDATE-VER)
(< XANADU-WEBUPDATE-VER XANADU-WEBUPDATE-TEMPVER)
)
(PROGN
(if (NOT (WCMATCH (vlax-product-key) "*Autodesk*"))
(PROGN (ALERT "Incompatible CAD software!"))
)
(setq XANADU-WEBUPDATE-VER XANADU-WEBUPDATE-TEMPVER)
(vl-ACAD-defun
(DEFUN C:CADSTUDIOOPTIONS () (C:XANADUOPTIONS) (PRINC))
)
(vl-ACAD-defun
(DEFUN C:XANADUOPTIONS (/ AUX)
(PRINC (STRCAT "CAD Studio web update utility (V"
(RTOS XANADU-WEBUPDATE-VER 2 2)
" "
(if ISINCZ
(PROGN "c")
(PROGN (if ISINHU
(PROGN "h")
(PROGN "e")
)
)
)
")"
)
)
(INITGET "Yes No")
(setq AUX
(GETKWORD
(STRCAT
"\nCheck auto-loading of applications in \"CADSTUDIO\"? (currently "
(if XANADU-SUPPRESS-AUTOLOAD-CHECK
(PROGN "OFF")
(PROGN "ON")
)
") [No/<Yes>]: "
)
)
)
(setq XANADU-SUPPRESS-AUTOLOAD-CHECK (= AUX "No"))
(VL-REGISTRY-WRITE
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"LoadCheckSup"
(if XANADU-SUPPRESS-AUTOLOAD-CHECK
(PROGN "1")
(PROGN "0")
)
)
(INITGET "Yes No")
(setq
AUX (GETKWORD (STRCAT "\nPerform online checks? (currently "
(if XANADU-NOCHECK
(PROGN "OFF")
(PROGN "ON")
)
") [No/<Yes>]: "
)
)
)
(setq XANADU-NOCHECK (= AUX "No"))
(VL-REGISTRY-WRITE
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"NoCheck"
(if XANADU-NOCHECK
(PROGN "1")
(PROGN "0")
)
)
(if (NOT XANADU-NOCHECK)
(PROGN (setq
AUX (GETREAL (STRCAT "\nOnline check interval in days <"
(RTOS XANADU-CHECK-INTERVAL 2 2)
">: "
)
)
)
(if AUX
(PROGN (setq XANADU-CHECK-INTERVAL AUX)
(setq AUX
(VL-REGISTRY-WRITE
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"CheckI"
(RTOS XANADU-CHECK-INTERVAL 2 2)
)
)
)
)
)
)
(INITGET "Yes No")
(setq AUX
(GETKWORD (STRCAT "\nForce online check NOW? [Yes/<No>]: ")
)
)
(if (= AUX "Yes")
(PROGN (setq XANADU-TEMPFORCECHECK T) (XANADUUPDATE))
)
(PRINC)
)
)
(vl-ACAD-defun (DEFUN C:CADSTUDIO () (C:XANADU) (PRINC)))
(vl-ACAD-defun
(DEFUN C:XANADU (/ X INCZ INHU)
(DEFUN STRCATSP (L / RES)
(setq RES "")
(FOREACH N L (setq RES (STRCAT RES N " ")))
RES
)
(DEFUN S8 (S LL)
(SUBSTR (STRCAT S " ") 1 LL)
)
(setq INCZ (ISINCZ))
(if INCZ
(PROGN (PRINC "Na鑤en?LISP aplikace fy CAD Studio:\n"))
(PROGN (PRINC "Loaded LISP applications by CAD Studio:\n"))
)
(PRINC
"-----------+----+----------------------+---------------------------------------"
)
(if INCZ
(PROGN
(PRINC "\nN醶ev |Ver.|Pkaz(y) |Popis\n")
)
(PROGN
(PRINC
"\nName |Ver.|Command(s) |Description\n"
)
)
)
(PRINC
"-----------+----+----------------------+---------------------------------------"
)
(FOREACH X XANADU-APPS
(PRINC (STRCAT "\n"
(S8 (CAR X) 11)
"|"
(S8 (CADR X) 4)
"|"
(S8 (STRCATSP (CADDR X)) 22)
"|"
(CADDDR X)
)
)
)
(PRINC
"\n-----------+----+----------------------+---------------------------------------"
)
(if XANADU_ANYLMS
(PROGN
(if INCZ
(PROGN
(PRINC
"\nTrial verze LISP utilit firmy CAD Studio autorizujete pkazem CADSTUDIOREG\n"
)
)
(PROGN
(PRINC
"\nThe CADSTUDIOREG command authorizes trial versions of CAD Studio LISP utilities\n"
)
)
)
)
)
(if (NOT XANADU-SUPPRESS-AUTOLOAD-CHECK)
(PROGN (XANADUAUTOLOADCHECK))
)
(if INCZ
(PROGN
(PRINC
"\nDal氻 CAD aplikace najdete na webu firmy CAD Studio s.r.o. - www.cadstudio.cz"
)
)
(PROGN
(PRINC
"\nYou can find more CAD applications on www.cadstudio.cz or www.cadforum.cz"
)
)
)
(TEXTSCR)
(PRINC)
)
)
(DEFUN XANADUAUTOLOADCHECK (/ APPLIST A APP NLAPPS)
(setq
APPLIST (VL-REGISTRY-DESCENDENTS
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
"UpdateStamp*"
)
)
(setq NLAPPS "")
(FOREACH A APPLIST
(if (WCMATCH A "UpdateStamp-*")
(PROGN (setq APP (SUBSTR A 13))
(if (NOT (ASSOC A1 XANADU-APPS))
(PROGN (setq NLAPPS (STRCAT NLAPPS "," APP)))
)
)
)
)
(if (> NLAPPS "")
(PROGN
(if INCZ
(PROGN
(PRINC
(STRCAT
"\nZat韒 nem醫e na鑤eny n醩leduj韈?LISP aplikace (pou瀒jte aktovku v APL萒I):\n"
(SUBSTR NLAPPS 2)
"\n"
)
)
)
(PROGN
(PRINC
(STRCAT
"\nYou have not yet loaded the following applications (use briefcase in APPLOAD):\n"
(SUBSTR NLAPPS 2)
"\n"
)
)
)
)
)
)
)
(DEFUN XANADUADDAPP (APPNAME VERZ CMD DESCRIPTION / APP1 CMDS)
(if (NOT XANADU-APPS)
(PROGN (setq XANADU-APPS (LIST)))
)
(if (setq APP1 (ASSOC APPNAME XANADU-APPS))
(PROGN (setq XANADU-APPS (VL-REMOVE APP1 XANADU-APPS)))
)
(setq CMDS CMD)
(if (= (TYPE CMD) 'STR)
(PROGN (setq CMDS (LIST CMD)))
)
(if (/= (TYPE CMDS) 'LIST)
(PROGN (setq CMDS (LIST)))
)
(setq XANADU-APPS
(CONS (LIST APPNAME VERZ CMDS DESCRIPTION)
XANADU-APPS
)
)
(XANADUUPDATE)
)
(DEFUN XANADUADD$APP
(APPNAME VERZ CMD DESCRIPTION LMS MAJORVERDIFF / APP1 CMDS)
(if (NOT XANADU-APPS)
(PROGN (setq XANADU-APPS (LIST)))
)
(if (setq APP1 (ASSOC APPNAME XANADU-APPS))
(PROGN (setq XANADU-APPS (VL-REMOVE APP1 XANADU-APPS)))
)
(setq CMDS CMD)
(if (= (TYPE CMD) 'STR)
(PROGN (setq CMDS (LIST CMD)))
)
(if (/= (TYPE CMDS) 'LIST)
(PROGN (setq CMDS (LIST)))
)
(setq XANADU-APPS
(CONS (LIST APPNAME VERZ CMDS
DESCRIPTION LMS MAJORVERDIFF
)
XANADU-APPS
)
)
(if LMS
(PROGN (setq XANADU_ANYLMS T))
)
(XANADUUPDATE)
)
(DEFUN ISINCZ (/ LISPVER I KBD CZ)
(if (= (SUBSTR (GETVAR "LOCALE") 1 2) "CS")
(PROGN (setq CZ T))
(PROGN
(setq LISPVER (VER))
(if (= (SUBSTR LISPVER (- (STRLEN LISPVER) 2) 2) "cs")
(PROGN (setq CZ T))
(PROGN (setq I 1)
(while (and (< I 5))
(setq
KBD (VL-REGISTRY-READ
"HKEY_CURRENT_USER\\Keyboard Layout\\Preload"
(ITOA I)
)
)
(if (OR (= KBD "00000405") (= KBD "0000041b"))
(PROGN (setq CZ T) (setq I 99))
)
(setq I (1+ I))
)
)
)
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (if CZ
(PROGN (PRINT "In CZ"))
(PROGN (PRINT "In non-CZ"))
)
)
)
CZ
)
(DEFUN ISINHU (/ LISPVER I KBD HH HU)
(if (= (SUBSTR (GETVAR "LOCALE") 1 2) "HU")
(PROGN (setq HU T))
(PROGN
(setq LISPVER (VER))
(setq HH (SUBSTR LISPVER (- (STRLEN LISPVER) 2) 2))
(if (OR (= HH "hu") (= HH "ol"))
(PROGN (setq HU T))
(PROGN (setq I 1)
(while (and (< I 5))
(setq
KBD (VL-REGISTRY-READ
"HKEY_CURRENT_USER\\Keyboard Layout\\Preload"
(ITOA I)
)
)
(if (= KBD "0000040e")
(PROGN (setq HU T) (setq I 99))
)
(setq I (1+ I))
)
)
)
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (if HU
(PROGN (PRINT "In HU"))
(PROGN (PRINT "In non-HU"))
)
)
)
HU
)
(DEFUN XANADUUPDATE (/ X__SN X__LN X__OR
X__DE X__NA X__NL X__PK
X__INF X__ENC X__ENC2 X__I
INCZ INHU TS0 TSFIRST
TSTAMP APPC AJAXRESULT
AJAXRESLIST AUXLIST APPIDS
APPNAMES APVER N
)
(DEFUN ODD (N) (= (REM N 2) 1))
(DEFUN TT (TXT) (VL-STRING-TRANSLATE " " "_" TXT))
(DEFUN X__ENCR (X)
(STRCAT ""
(SUBSTR (DECTOHEX (+ X
(if (ODD X)
(PROGN -31)
(PROGN 83)
)
)
)
3
)
)
)
(DEFUN DECTOHEX (DEC / HEX VALUE HEXCHAR)
(if (< DEC 65536)
(PROGN (setq HEX "")
(REPEAT 4
(setq VALUE (REM DEC 16))
(setq DEC (/ DEC 16))
(setq HEXCHAR (if (< VALUE 10)
(PROGN (ITOA VALUE))
(PROGN (CADR (ASSOC VALUE
'((10 "A")
(11 "B")
(12 "C")
(13 "D")
(14 "E")
(15 "F")
)
)
)
)
)
)
(setq HEX (STRCAT HEXCHAR HEX))
)
)
)
HEX
)
(DEFUN STR2LIST (STR PAT / I J N LST)
(COND ((/= (TYPE STR) (TYPE PAT) 'STR))
((= STR PAT) '(""))
(T
(setq I 0)
(setq N (STRLEN PAT))
(while (and (setq J (VL-STRING-SEARCH PAT STR I)))
(setq LST (CONS (SUBSTR STR (1+ I) (- J I)) LST))
(setq I (+ J N))
)
(REVERSE (CONS (SUBSTR STR (1+ I)) LST))
)
)
)
(DEFUN X-AJAX (/ XMLHTTP RESPONSE ISTART ISTART1 CDA RS)
(setq XMLHTTP (vlax-get-or-create-object
"winhttp.winhttprequest.5.1"
)
)
(if (NOT XMLHTTP)
(PROGN
(setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP.6.0"))
)
)
(if (NOT XMLHTTP)
(PROGN (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP")))
)
(if (NOT XMLHTTP)
(PROGN
(setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP"))
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT "*HTTP created"))
)
(if (AND XMLHTTP
(vlax-method-applicable-p XMLHTTP "open")
(vlax-method-applicable-p XMLHTTP "send")
(vlax-method-applicable-p XMLHTTP "SetTimeouts")
)
(PROGN
(vlax-invoke
XMLHTTP "SetTimeouts"
XANADU-COMM-TIMEOUT XANADU-COMM-TIMEOUT
XANADU-COMM-TIMEOUT XANADU-COMM-TIMEOUT
)
(vlax-invoke
XMLHTTP
"open"
"POST"
"http://www.cadstudio.cz/_sys_/updatever.asp"
)
(vlax-invoke
XMLHTTP
"setRequestHeader"
"Content-Type"
"application/x-www-form-urlencoded"
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT (STRCAT "CALLING: cv="
(RTOS XANADU-WEBUPDATE-VER 2 2)
"&ver="
X__ENC2
)
)
)
)
(if (NOT (VL-CATCH-ALL-ERROR-P
(VL-CATCH-ALL-APPLY
'vlax-invoke
(LIST XMLHTTP
"send"
(STRCAT "cv="
(RTOS XANADU-WEBUPDATE-VER 2 2)
"&ver="
X__ENC2
)
)
)
)
)
(PROGN (setq RS (vlax-get-property XMLHTTP 'STATUS))
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT RS))
)
(setq RESPONSE "")
(if (= RS 200)
(PROGN (setq RESPONSE
(vlax-get-property XMLHTTP 'RESPONSETEXT)
)
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT RESPONSE))
)
)
(PROGN (setq RESPONSE ""))
)
)
(PROGN (setq RESPONSE ""))
)
(vlax-release-object XMLHTTP)
RESPONSE
)
(setq TSTAMP nil)
(FOREACH N XANADU-APPS
(setq TS0 (VL-REGISTRY-READ
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
(STRCAT "UpdateStamp-" (CAR N))
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT (STRCAT (CAR N)
"="
(if TS0
(PROGN TS0)
(PROGN "nil")
)
)
)
)
)
(if (NOT TS0)
(PROGN (setq TSTAMP T))
(PROGN
(if
(> (- (GETVAR "CDATE") (READ TS0)) XANADU-CHECK-INTERVAL)
(PROGN (setq TSTAMP T))
)
)
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (if TSTAMP
(PROGN (PRINT "TimeStamp GO"))
(PROGN (PRINT "TimeStamp STOP"))
)
)
)
(if (OR XANADU-FORCECHECK
XANADU-TEMPFORCECHECK
(AND (> (LENGTH XANADU-APPS) 0)
(NOT XANADU-NOCHECK)
(NOT XANADU-CHECKOK)
TSTAMP
)
)
(PROGN
(setq XANADU-TEMPFORCECHECK nil)
(setq INCZ (ISINCZ))
(setq INHU (ISINHU))
(if (AND (OR INCZ INHU) (NOT XANADU-SHORTCHECK))
(PROGN (if XANADU-UPDATE-DEBUG
(PROGN (PRINT "Update FULLCHECK"))
)
(setq X__SN (GETVAR "*_PKSER"))
(setq X__NL (GETVAR "_LINFO"))
(setq X__NL (if X__NL
(PROGN (if (WCMATCH X__NL "*Network*")
(PROGN "1")
(PROGN "0")
)
)
(PROGN "0")
)
)
(setq X__LN (GETVAR "LOGINNAME"))
(setq X__DE (VL-REGISTRY-READ
(STRCAT "HKEY_LOCAL_MACHINE\\"
(vlax-product-key)
)
"Dealer"
)
)
(if (NOT X__DE)
(PROGN (setq X__DE ""))
)
(setq X__NA (VL-REGISTRY-READ
(STRCAT "HKEY_LOCAL_MACHINE\\"
(vlax-product-key)
)
"LastName"
)
)
(if (NOT X__NA)
(PROGN (setq X__NA ""))
)
(setq X__OR (VL-REGISTRY-READ
(STRCAT "HKEY_LOCAL_MACHINE\\"
(vlax-product-key)
)
"Organization"
)
)
(if (NOT X__OR)
(PROGN (setq X__OR ""))
)
(setq X__PK (SUBSTR (vlax-product-key)
(- (STRLEN (vlax-product-key)) 7)
)
)
(setq X__SN (SUBSTR X__SN (- (STRLEN X__SN) 3)))
(setq X__LN (SUBSTR X__LN 1 3))
(setq X__NA (SUBSTR X__NA 1 4))
(setq X__OR (SUBSTR X__OR 1 12))
(setq X__DE (SUBSTR X__DE 1 8))
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT X__NL))
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT "strcat>"))
)
(setq X__INF (STRCAT "PK="
(TT X__PK)
" SN="
(TT X__SN)
" NL="
X__NL
" OR="
(TT X__OR)
" LN="
(TT X__LN)
" NA="
(TT X__NA)
" DE="
(TT X__DE)
" "
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT X__INF))
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT "<strcat"))
)
)
(PROGN (setq X__INF ""))
)
(setq APPC (LENGTH XANADU-APPS))
(setq X__INF (STRCAT X__INF "NN=" (ITOA APPC)))
(while (and (> APPC 0))
(setq APVER (CADR (NTH (1- APPC) XANADU-APPS)))
(if (NTH 4 (NTH (1- APPC) XANADU-APPS))
(PROGN (if (= (XANADUISAUTHORIZED
(CAR (NTH (1- APPC) XANADU-APPS))
(CHALLENGE)
)
(APPNAMECRC XANADUCHALL)
)
(PROGN (setq APVER (STRCAT "-" APVER)))
)
)
)
(setq
X__INF (STRCAT X__INF
" A"
(ITOA APPC)
"="
(TT (CAR (NTH (1- APPC) XANADU-APPS)))
)
)
(setq X__INF (STRCAT X__INF " V" (ITOA APPC) "=" APVER))
(setq APPC (1- APPC))
)
(setq X__INF (VL-STRING->LIST X__INF))
(setq
X__ENC (STRCAT "8A4"
(APPLY 'STRCAT (MAPCAR 'X__ENCR X__INF))
)
)
(setq X__I 1)
(setq X__ENC2 "")
(while (and (> (setq X__SUB (SUBSTR X__ENC X__I 8)) ""))
(setq X__ENC2 (STRCAT X__ENC2 X__SUB "-"))
(setq X__I (+ X__I 8))
)
(if (= (SUBSTR X__ENC2 (STRLEN X__ENC2) 1) "-")
(PROGN
(setq X__ENC2 (SUBSTR X__ENC2 1 (1- (STRLEN X__ENC2))))
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT "Calling AJAX"))
)
(setq AJAXRESULT (X-AJAX))
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT (STRCAT "AJAX result: " AJAXRESULT)))
)
(setq AJAXRESLIST (STR2LIST AJAXRESULT "|"))
(setq RESAPPLIST (STR2LIST AJAXRESULT "\n"))
(setq RESALLAPPS nil)
(FOREACH N RESAPPLIST
(setq AUXLIST (STR2LIST N "|"))
(if (> (LENGTH AUXLIST) 1)
(PROGN (setq RESALLAPPS (CONS AUXLIST RESALLAPPS)))
)
)
(if XANADU-UPDATE-DEBUG
(PROGN (PRINT AJAXRESULT))
)
(if (> AJAXRESULT "")
(PROGN (FOREACH N XANADU-APPS
(VL-REGISTRY-WRITE
"HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps"
(STRCAT "UpdateStamp-" (CAR N))
(RTOS (GETVAR "CDATE") 2 16)
)
)
(setq XANADU-CHECKOK T)
)
(PROGN
(PRINC
"\nCannot check online updates now (use CADSTUDIOOPTIONS to disable checking) "
)
)
)
(if (> (LENGTH AJAXRESLIST) 2)
(PROGN
(VLR-beep-reaction)
(setq APPIDS "")
(setq APPNAMES "")
(FOREACH N RESALLAPPS
(setq APPIDS (STRCAT APPIDS (CADR N) "|"))
(setq APPNAMES (STRCAT APPNAMES (CAR N) " "))
)
(if INCZ
(PROGN
(PRINC (STRCAT
"\n\nNalezeny nov?verze aplikac?CAD Studia:\n"
APPNAMES
"(viz okno web prohl頌e鑕) "
)
)
)
(PROGN
(PRINC
(STRCAT
"\n\nNew versions found for CAD Studio applications:\n"
APPNAMES
"(see the web browser window) "
)
)
)
)
(setq AUXLIST (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(if INCZ
(PROGN (setq N ""))
(PROGN (setq N "en/"))
)
(command "._BROWSER")
(command (STRCAT "http://www.cadstudio.cz/"
N
"download?files="
APPIDS
)
)
(SETVAR "CMDECHO" AUXLIST)
)
)
)
(PROGN (if XANADU-UPDATE-DEBUG
(PROGN (PRINT "Skipping update"))
)
)
)
(PRINC)
)
)
(PROGN (if XANADU-UPDATE-DEBUG
(PROGN (PRINT "ALL DEFINITIONS SKIPPED"))
)
)
)

(VL-LOAD-COM) 
(setq XANADU-WEBUPDATE-TEMPVER 1.98) 
(if (NOT XANADU-APPS) 
  (PROGN (setq XANADU-APPS (LIST))) 
) 
(setq XANADU-CHECK-INTERVAL 
       (VL-REGISTRY-READ 
         "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
         "CheckI" 
       ) 
) 
(if (= (TYPE XANADU-CHECK-INTERVAL) 'STR) 
  (PROGN 
    (setq XANADU-CHECK-INTERVAL (ATOF XANADU-CHECK-INTERVAL)) 
  ) 
) 
(if (NOT XANADU-CHECK-INTERVAL) 
  (PROGN (setq XANADU-CHECK-INTERVAL 7.0)) 
) 
(setq XANADU-SUPPRESS-AUTOLOAD-CHECK 
       (VL-REGISTRY-READ 
         "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
         "LoadCheckSup" 
       ) 
) 
(setq XANADU-SUPPRESS-AUTOLOAD-CHECK 
       (= XANADU-SUPPRESS-AUTOLOAD-CHECK "1") 
) 
(if (= (VL-REGISTRY-READ 
         "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
         "NoCheck" 
       ) 
       "1" 
    ) 
  (PROGN (setq XANADU-NOCHECK T)) 
) 
(if (NOT XANADU-COMM-TIMEOUT) 
  (PROGN (setq XANADU-COMM-TIMEOUT 2000)) 
) 
(if (OR        (NOT XANADU-WEBUPDATE-VER) 
        (< XANADU-WEBUPDATE-VER XANADU-WEBUPDATE-TEMPVER) 
    ) 
  (PROGN 
    (if        (NOT (WCMATCH (vlax-product-key) "*Autodesk*")) 
      (PROGN (ALERT "Incompatible CAD software!")) 
    ) 
    (setq XANADU-WEBUPDATE-VER XANADU-WEBUPDATE-TEMPVER) 
    (vl-ACAD-defun 
      (DEFUN C:CADSTUDIOOPTIONS () (C:XANADUOPTIONS) (PRINC)) 
    ) 
    (vl-ACAD-defun 
      (DEFUN C:XANADUOPTIONS (/ AUX) 
        (PRINC (STRCAT "CAD Studio web update utility (V" 
                       (RTOS XANADU-WEBUPDATE-VER 2 2) 
                       " " 
                       (if ISINCZ 
                         (PROGN "c") 
                         (PROGN        (if ISINHU 
                                  (PROGN "h") 
                                  (PROGN "e") 
                                ) 
                         ) 
                       ) 
                       ")" 
               ) 
        ) 
        (INITGET "Yes No") 
        (setq AUX 
               (GETKWORD 
                 (STRCAT 
                   "\nCheck auto-loading of applications in \"CADSTUDIO\"? (currently " 
                   (if XANADU-SUPPRESS-AUTOLOAD-CHECK 
                     (PROGN "OFF") 
                     (PROGN "ON") 
                   ) 
                   ") [No/<Yes>]: " 
                 ) 
               ) 
        ) 
        (setq XANADU-SUPPRESS-AUTOLOAD-CHECK (= AUX "No")) 
        (VL-REGISTRY-WRITE 
          "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
          "LoadCheckSup" 
          (if XANADU-SUPPRESS-AUTOLOAD-CHECK 
            (PROGN "1") 
            (PROGN "0") 
          ) 
        ) 
        (INITGET "Yes No") 
        (setq 
          AUX (GETKWORD        (STRCAT        "\nPerform online checks? (currently " 
                                (if XANADU-NOCHECK 
                                  (PROGN "OFF") 
                                  (PROGN "ON") 
                                ) 
                                ") [No/<Yes>]: " 
                        ) 
              ) 
        ) 
        (setq XANADU-NOCHECK (= AUX "No")) 
        (VL-REGISTRY-WRITE 
          "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
          "NoCheck" 
          (if XANADU-NOCHECK 
            (PROGN "1") 
            (PROGN "0") 
          ) 
        ) 
        (if (NOT XANADU-NOCHECK) 
          (PROGN (setq 
                   AUX (GETREAL        (STRCAT        "\nOnline check interval in days <" 
                                        (RTOS XANADU-CHECK-INTERVAL 2 2) 
                                        ">: " 
                                ) 
                       ) 
                 ) 
                 (if AUX 
                   (PROGN (setq XANADU-CHECK-INTERVAL AUX) 
                          (setq        AUX 
                                 (VL-REGISTRY-WRITE 
                                   "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
                                   "CheckI" 
                                   (RTOS XANADU-CHECK-INTERVAL 2 2) 
                                 ) 
                          ) 
                   ) 
                 ) 
          ) 
        ) 
        (INITGET "Yes No") 
        (setq AUX 
               (GETKWORD (STRCAT "\nForce online check NOW? [Yes/<No>]: ") 
               ) 
        ) 
        (if (= AUX "Yes") 
          (PROGN (setq XANADU-TEMPFORCECHECK T) (XANADUUPDATE)) 
        ) 
        (PRINC) 
      ) 
    ) 
    (vl-ACAD-defun (DEFUN C:CADSTUDIO () (C:XANADU) (PRINC))) 
    (vl-ACAD-defun 
      (DEFUN C:XANADU (/ X INCZ INHU) 
        (DEFUN STRCATSP        (L / RES) 
          (setq RES "") 
          (FOREACH N L (setq RES (STRCAT RES N " "))) 
          RES 
        ) 
        (DEFUN S8 (S LL) 
          (SUBSTR (STRCAT S "                       ") 1 LL) 
        ) 
        (setq INCZ (ISINCZ)) 
        (if INCZ 
          (PROGN (PRINC "Na鑤en?LISP aplikace fy CAD Studio:\n")) 
          (PROGN (PRINC "Loaded LISP applications by CAD Studio:\n")) 
        ) 
        (PRINC 
          "-----------+----+----------------------+---------------------------------------" 
        ) 
        (if INCZ 
          (PROGN 
            (PRINC "\nN醶ev      |Ver.|Pkaz(y)             |Popis\n") 
          ) 
          (PROGN 
            (PRINC 
              "\nName       |Ver.|Command(s)            |Description\n" 
            ) 
          ) 
        ) 
        (PRINC 
          "-----------+----+----------------------+---------------------------------------" 
        ) 
        (FOREACH X XANADU-APPS 
          (PRINC (STRCAT "\n" 
                         (S8 (CAR X) 11) 
                         "|" 
                         (S8 (CADR X) 4) 
                         "|" 
                         (S8 (STRCATSP (CADDR X)) 22) 
                         "|" 
                         (CADDDR X) 
                 ) 
          ) 
        ) 
        (PRINC 
          "\n-----------+----+----------------------+---------------------------------------" 
        ) 
        (if XANADU_ANYLMS 
          (PROGN 
            (if        INCZ 
              (PROGN 
                (PRINC 
                  "\nTrial verze LISP utilit firmy CAD Studio autorizujete pkazem CADSTUDIOREG\n" 
                ) 
              ) 
              (PROGN 
                (PRINC 
                  "\nThe CADSTUDIOREG command authorizes trial versions of CAD Studio LISP utilities\n" 
                ) 
              ) 
            ) 
          ) 
        ) 
        (if (NOT XANADU-SUPPRESS-AUTOLOAD-CHECK) 
          (PROGN (XANADUAUTOLOADCHECK)) 
        ) 
        (if INCZ 
          (PROGN 
            (PRINC 
              "\nDal氻 CAD aplikace najdete na webu firmy CAD Studio s.r.o. - <a href="http://www.cadstudio.cz" target="_blank">www.cadstudio.cz</a>" 
            ) 
          ) 
          (PROGN 
            (PRINC 
              "\nYou can find more CAD applications on <a href="http://www.cadstudio.cz" target="_blank">www.cadstudio.cz</a> or <a href="http://www.cadforum.cz" target="_blank">www.cadforum.cz</a>" 
            ) 
          ) 
        ) 
        (TEXTSCR) 
        (PRINC) 
      ) 
    ) 
    (DEFUN XANADUAUTOLOADCHECK (/ APPLIST A APP NLAPPS) 
      (setq 
        APPLIST        (VL-REGISTRY-DESCENDENTS 
                  "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
                  "UpdateStamp*" 
                ) 
      ) 
      (setq NLAPPS "") 
      (FOREACH A APPLIST 
        (if (WCMATCH A "UpdateStamp-*") 
          (PROGN (setq APP (SUBSTR A 13)) 
                 (if (NOT (ASSOC A1 XANADU-APPS)) 
                   (PROGN (setq NLAPPS (STRCAT NLAPPS "," APP))) 
                 ) 
          ) 
        ) 
      ) 
      (if (> NLAPPS "") 
        (PROGN 
          (if INCZ 
            (PROGN 
              (PRINC 
                (STRCAT 
                  "\nZat韒 nem醫e na鑤eny n醩leduj韈?LISP aplikace (pou瀒jte aktovku v APL萒I):\n" 
                  (SUBSTR NLAPPS 2) 
                  "\n" 
                ) 
              ) 
            ) 
            (PROGN 
              (PRINC 
                (STRCAT 
                  "\nYou have not yet loaded the following applications (use briefcase in APPLOAD):\n" 
                  (SUBSTR NLAPPS 2) 
                  "\n" 
                ) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
    (DEFUN XANADUADDAPP        (APPNAME VERZ CMD DESCRIPTION / APP1 CMDS) 
      (if (NOT XANADU-APPS) 
        (PROGN (setq XANADU-APPS (LIST))) 
      ) 
      (if (setq APP1 (ASSOC APPNAME XANADU-APPS)) 
        (PROGN (setq XANADU-APPS (VL-REMOVE APP1 XANADU-APPS))) 
      ) 
      (setq CMDS CMD) 
      (if (= (TYPE CMD) 'STR) 
        (PROGN (setq CMDS (LIST CMD))) 
      ) 
      (if (/= (TYPE CMDS) 'LIST) 
        (PROGN (setq CMDS (LIST))) 
      ) 
      (setq XANADU-APPS 
             (CONS (LIST APPNAME VERZ CMDS DESCRIPTION) 
                   XANADU-APPS 
             ) 
      ) 
      (XANADUUPDATE) 
    ) 
    (DEFUN XANADUADD$APP 
           (APPNAME VERZ CMD DESCRIPTION LMS MAJORVERDIFF / APP1 CMDS) 
      (if (NOT XANADU-APPS) 
        (PROGN (setq XANADU-APPS (LIST))) 
      ) 
      (if (setq APP1 (ASSOC APPNAME XANADU-APPS)) 
        (PROGN (setq XANADU-APPS (VL-REMOVE APP1 XANADU-APPS))) 
      ) 
      (setq CMDS CMD) 
      (if (= (TYPE CMD) 'STR) 
        (PROGN (setq CMDS (LIST CMD))) 
      ) 
      (if (/= (TYPE CMDS) 'LIST) 
        (PROGN (setq CMDS (LIST))) 
      ) 
      (setq XANADU-APPS 
             (CONS (LIST APPNAME     VERZ         CMDS 
                         DESCRIPTION LMS         MAJORVERDIFF 
                        ) 
                   XANADU-APPS 
             ) 
      ) 
      (if LMS 
        (PROGN (setq XANADU_ANYLMS T)) 
      ) 
      (XANADUUPDATE) 
    ) 
    (DEFUN ISINCZ (/ LISPVER I KBD CZ) 
      (if (= (SUBSTR (GETVAR "LOCALE") 1 2) "CS") 
        (PROGN (setq CZ T)) 
        (PROGN 
          (setq LISPVER (VER)) 
          (if (= (SUBSTR LISPVER (- (STRLEN LISPVER) 2) 2) "cs") 
            (PROGN (setq CZ T)) 
            (PROGN (setq I 1) 
                   (while (and (
                     (setq 
                       KBD (VL-REGISTRY-READ 
                             "HKEY_CURRENT_USER\\Keyboard Layout\\Preload" 
                             (ITOA I) 
                           ) 
                     ) 
                     (if (OR (= KBD "00000405") (= KBD "0000041b")) 
                       (PROGN (setq CZ T) (setq I 99)) 
                     ) 
                     (setq I (1+ I)) 
                   ) 
            ) 
          ) 
        ) 
      ) 
      (if XANADU-UPDATE-DEBUG 
        (PROGN (if CZ 
                 (PROGN (PRINT "In CZ")) 
                 (PROGN (PRINT "In non-CZ")) 
               ) 
        ) 
      ) 
      CZ 
    ) 
    (DEFUN ISINHU (/ LISPVER I KBD HH HU) 
      (if (= (SUBSTR (GETVAR "LOCALE") 1 2) "HU") 
        (PROGN (setq HU T)) 
        (PROGN 
          (setq LISPVER (VER)) 
          (setq HH (SUBSTR LISPVER (- (STRLEN LISPVER) 2) 2)) 
          (if (OR (= HH "hu") (= HH "ol")) 
            (PROGN (setq HU T)) 
            (PROGN (setq I 1) 
                   (while (and (
                     (setq 
                       KBD (VL-REGISTRY-READ 
                             "HKEY_CURRENT_USER\\Keyboard Layout\\Preload" 
                             (ITOA I) 
                           ) 
                     ) 
                     (if (= KBD "0000040e") 
                       (PROGN (setq HU T) (setq I 99)) 
                     ) 
                     (setq I (1+ I)) 
                   ) 
            ) 
          ) 
        ) 
      ) 
      (if XANADU-UPDATE-DEBUG 
        (PROGN (if HU 
                 (PROGN (PRINT "In HU")) 
                 (PROGN (PRINT "In non-HU")) 
               ) 
        ) 
      ) 
      HU 
    ) 
    (DEFUN XANADUUPDATE        (/           X__SN     X__LN     X__OR 
                         X__DE           X__NA     X__NL     X__PK 
                         X__INF           X__ENC    X__ENC2   X__I 
                         INCZ           INHU             TS0       TSFIRST 
                         TSTAMP           APPC             AJAXRESULT 
                         AJAXRESLIST             AUXLIST   APPIDS 
                         APPNAMES  APVER     N 
                        ) 
      (DEFUN ODD (N) (= (REM N 2) 1)) 
      (DEFUN TT (TXT) (VL-STRING-TRANSLATE " " "_" TXT)) 
      (DEFUN X__ENCR (X) 
        (STRCAT        "" 
                (SUBSTR        (DECTOHEX (+ X 
                                     (if (ODD X) 
                                       (PROGN -31) 
                                       (PROGN 83) 
                                     ) 
                                  ) 
                        ) 
                        3 
                ) 
        ) 
      ) 
      (DEFUN DECTOHEX (DEC / HEX VALUE HEXCHAR) 
        (if (< DEC 65536) 
          (PROGN (setq HEX "") 
                 (REPEAT 4 
                   (setq VALUE (REM DEC 16)) 
                   (setq DEC (/ DEC 16)) 
                   (setq HEXCHAR (if (< VALUE 10) 
                                   (PROGN (ITOA VALUE)) 
                                   (PROGN (CADR        (ASSOC VALUE 
                                                       '((10 "A") 
                                                         (11 "B") 
                                                         (12 "C") 
                                                         (13 "D") 
                                                         (14 "E") 
                                                         (15 "F") 
                                                        ) 
                                                ) 
                                          ) 
                                   ) 
                                 ) 
                   ) 
                   (setq HEX (STRCAT HEXCHAR HEX)) 
                 ) 
          ) 
        ) 
        HEX 
      ) 
      (DEFUN STR2LIST (STR PAT / I J N LST) 
        (COND ((/= (TYPE STR) (TYPE PAT) 'STR)) 
              ((= STR PAT) '("")) 
              (T 
               (setq I 0) 
               (setq N (STRLEN PAT)) 
               (while (and (setq J (VL-STRING-SEARCH PAT STR I))) 
                 (setq LST (CONS (SUBSTR STR (1+ I) (- J I)) LST)) 
                 (setq I (+ J N)) 
               ) 
               (REVERSE (CONS (SUBSTR STR (1+ I)) LST)) 
              ) 
        ) 
      ) 
      (DEFUN X-AJAX (/ XMLHTTP RESPONSE ISTART ISTART1 CDA RS) 
        (setq XMLHTTP (vlax-get-or-create-object 
                        "winhttp.winhttprequest.5.1" 
                      ) 
        ) 
        (if (NOT XMLHTTP) 
          (PROGN 
            (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP.6.0")) 
          ) 
        ) 
        (if (NOT XMLHTTP) 
          (PROGN (setq XMLHTTP (vlax-create-object "Msxml2.XMLHTTP"))) 
        ) 
        (if (NOT XMLHTTP) 
          (PROGN 
            (setq XMLHTTP (vlax-create-object "Microsoft.XMLHTTP")) 
          ) 
        ) 
        (if XANADU-UPDATE-DEBUG 
          (PROGN (PRINT "*HTTP created")) 
        ) 
        (if (AND XMLHTTP 
                 (vlax-method-applicable-p XMLHTTP "open") 
                 (vlax-method-applicable-p XMLHTTP "send") 
                 (vlax-method-applicable-p XMLHTTP "SetTimeouts") 
            ) 
          (PROGN 
            (vlax-invoke 
              XMLHTTP                       "SetTimeouts" 
              XANADU-COMM-TIMEOUT      XANADU-COMM-TIMEOUT 
              XANADU-COMM-TIMEOUT      XANADU-COMM-TIMEOUT 
             ) 
            (vlax-invoke 
              XMLHTTP 
              "open" 
              "POST" 
              "http://www.cadstudio.cz/_sys_/updatever.asp" 
            ) 
            (vlax-invoke 
              XMLHTTP 
              "setRequestHeader" 
              "Content-Type" 
              "application/x-www-form-urlencoded" 
            ) 
            (if        XANADU-UPDATE-DEBUG 
              (PROGN (PRINT (STRCAT "CALLING: cv=" 
                                    (RTOS XANADU-WEBUPDATE-VER 2 2) 
                                    "&ver=" 
                                    X__ENC2 
                            ) 
                     ) 
              ) 
            ) 
            (if        (NOT (VL-CATCH-ALL-ERROR-P 
                       (VL-CATCH-ALL-APPLY 
                         'vlax-invoke 
                         (LIST XMLHTTP 
                               "send" 
                               (STRCAT "cv=" 
                                       (RTOS XANADU-WEBUPDATE-VER 2 2) 
                                       "&ver=" 
                                       X__ENC2 
                               ) 
                         ) 
                       ) 
                     ) 
                ) 
              (PROGN (setq RS (vlax-get-property XMLHTTP 'STATUS)) 
                     (if XANADU-UPDATE-DEBUG 
                       (PROGN (PRINT RS)) 
                     ) 
                     (setq RESPONSE "") 
                     (if (= RS 200) 
                       (PROGN (setq RESPONSE 
                                     (vlax-get-property XMLHTTP 'RESPONSETEXT) 
                              ) 
                       ) 
                     ) 
                     (if XANADU-UPDATE-DEBUG 
                       (PROGN (PRINT RESPONSE)) 
                     ) 
              ) 
              (PROGN (setq RESPONSE "")) 
            ) 
          ) 
          (PROGN (setq RESPONSE "")) 
        ) 
        (vlax-release-object XMLHTTP) 
        RESPONSE 
      ) 
      (setq TSTAMP nil) 
      (FOREACH N XANADU-APPS 
        (setq TS0 (VL-REGISTRY-READ 
                    "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
                    (STRCAT "UpdateStamp-" (CAR N)) 
                  ) 
        ) 
        (if XANADU-UPDATE-DEBUG 
          (PROGN (PRINT        (STRCAT        (CAR N) 
                                "=" 
                                (if TS0 
                                  (PROGN TS0) 
                                  (PROGN "nil") 
                                ) 
                        ) 
                 ) 
          ) 
        ) 
        (if (NOT TS0) 
          (PROGN (setq TSTAMP T)) 
          (PROGN 
            (if 
              (> (- (GETVAR "CDATE") (READ TS0)) XANADU-CHECK-INTERVAL) 
               (PROGN (setq TSTAMP T)) 
            ) 
          ) 
        ) 
      ) 
      (if XANADU-UPDATE-DEBUG 
        (PROGN (if TSTAMP 
                 (PROGN (PRINT "TimeStamp GO")) 
                 (PROGN (PRINT "TimeStamp STOP")) 
               ) 
        ) 
      ) 
      (if (OR XANADU-FORCECHECK 
              XANADU-TEMPFORCECHECK 
              (AND (> (LENGTH XANADU-APPS) 0) 
                   (NOT XANADU-NOCHECK) 
                   (NOT XANADU-CHECKOK) 
                   TSTAMP 
              ) 
          ) 
        (PROGN 
          (setq XANADU-TEMPFORCECHECK nil) 
          (setq INCZ (ISINCZ)) 
          (setq INHU (ISINHU)) 
          (if (AND (OR INCZ INHU) (NOT XANADU-SHORTCHECK)) 
            (PROGN (if XANADU-UPDATE-DEBUG 
                     (PROGN (PRINT "Update FULLCHECK")) 
                   ) 
                   (setq X__SN (GETVAR "*_PKSER")) 
                   (setq X__NL (GETVAR "_LINFO")) 
                   (setq X__NL (if X__NL 
                                 (PROGN        (if (WCMATCH X__NL "*Network*") 
                                          (PROGN "1") 
                                          (PROGN "0") 
                                        ) 
                                 ) 
                                 (PROGN "0") 
                               ) 
                   ) 
                   (setq X__LN (GETVAR "LOGINNAME")) 
                   (setq X__DE (VL-REGISTRY-READ 
                                 (STRCAT "HKEY_LOCAL_MACHINE\\" 
                                         (vlax-product-key) 
                                 ) 
                                 "Dealer" 
                               ) 
                   ) 
                   (if (NOT X__DE) 
                     (PROGN (setq X__DE "")) 
                   ) 
                   (setq X__NA (VL-REGISTRY-READ 
                                 (STRCAT "HKEY_LOCAL_MACHINE\\" 
                                         (vlax-product-key) 
                                 ) 
                                 "LastName" 
                               ) 
                   ) 
                   (if (NOT X__NA) 
                     (PROGN (setq X__NA "")) 
                   ) 
                   (setq X__OR (VL-REGISTRY-READ 
                                 (STRCAT "HKEY_LOCAL_MACHINE\\" 
                                         (vlax-product-key) 
                                 ) 
                                 "Organization" 
                               ) 
                   ) 
                   (if (NOT X__OR) 
                     (PROGN (setq X__OR "")) 
                   ) 
                   (setq X__PK (SUBSTR (vlax-product-key) 
                                       (- (STRLEN (vlax-product-key)) 7) 
                               ) 
                   ) 
                   (setq X__SN (SUBSTR X__SN (- (STRLEN X__SN) 3))) 
                   (setq X__LN (SUBSTR X__LN 1 3)) 
                   (setq X__NA (SUBSTR X__NA 1 4)) 
                   (setq X__OR (SUBSTR X__OR 1 12)) 
                   (setq X__DE (SUBSTR X__DE 1 8)) 
                   (if XANADU-UPDATE-DEBUG 
                     (PROGN (PRINT X__NL)) 
                   ) 
                   (if XANADU-UPDATE-DEBUG 
                     (PROGN (PRINT "strcat>")) 
                   ) 
                   (setq X__INF        (STRCAT        "PK=" 
                                        (TT X__PK) 
                                        " SN=" 
                                        (TT X__SN) 
                                        " NL=" 
                                        X__NL 
                                        " OR=" 
                                        (TT X__OR) 
                                        " LN=" 
                                        (TT X__LN) 
                                        " NA=" 
                                        (TT X__NA) 
                                        " DE=" 
                                        (TT X__DE) 
                                        " " 
                                ) 
                   ) 
                   (if XANADU-UPDATE-DEBUG 
                     (PROGN (PRINT X__INF)) 
                   ) 
                   (if XANADU-UPDATE-DEBUG 
                     (PROGN (PRINT "<strcat")) 
                   ) 
            ) 
            (PROGN (setq X__INF "")) 
          ) 
          (setq APPC (LENGTH XANADU-APPS)) 
          (setq X__INF (STRCAT X__INF "NN=" (ITOA APPC))) 
          (while (and (> APPC 0)) 
            (setq APVER (CADR (NTH (1- APPC) XANADU-APPS))) 
            (if        (NTH 4 (NTH (1- APPC) XANADU-APPS)) 
              (PROGN (if (= (XANADUISAUTHORIZED 
                              (CAR (NTH (1- APPC) XANADU-APPS)) 
                              (CHALLENGE) 
                            ) 
                            (APPNAMECRC XANADUCHALL) 
                         ) 
                       (PROGN (setq APVER (STRCAT "-" APVER))) 
                     ) 
              ) 
            ) 
            (setq 
              X__INF (STRCAT X__INF 
                             " A" 
                             (ITOA APPC) 
                             "=" 
                             (TT (CAR (NTH (1- APPC) XANADU-APPS))) 
                     ) 
            ) 
            (setq X__INF (STRCAT X__INF " V" (ITOA APPC) "=" APVER)) 
            (setq APPC (1- APPC)) 
          ) 
          (setq X__INF (VL-STRING->LIST X__INF)) 
          (setq 
            X__ENC (STRCAT "8A4" 
                           (APPLY 'STRCAT (MAPCAR 'X__ENCR X__INF)) 
                   ) 
          ) 
          (setq X__I 1) 
          (setq X__ENC2 "") 
          (while (and (> (setq X__SUB (SUBSTR X__ENC X__I 8)) "")) 
            (setq X__ENC2 (STRCAT X__ENC2 X__SUB "-")) 
            (setq X__I (+ X__I 8)) 
          ) 
          (if (= (SUBSTR X__ENC2 (STRLEN X__ENC2) 1) "-") 
            (PROGN 
              (setq X__ENC2 (SUBSTR X__ENC2 1 (1- (STRLEN X__ENC2)))) 
            ) 
          ) 
          (if XANADU-UPDATE-DEBUG 
            (PROGN (PRINT "Calling AJAX")) 
          ) 
          (setq AJAXRESULT (X-AJAX)) 
          (if XANADU-UPDATE-DEBUG 
            (PROGN (PRINT (STRCAT "AJAX result: " AJAXRESULT))) 
          ) 
          (setq AJAXRESLIST (STR2LIST AJAXRESULT "|")) 
          (setq RESAPPLIST (STR2LIST AJAXRESULT "\n")) 
          (setq RESALLAPPS nil) 
          (FOREACH N RESAPPLIST 
            (setq AUXLIST (STR2LIST N "|")) 
            (if        (> (LENGTH AUXLIST) 1) 
              (PROGN (setq RESALLAPPS (CONS AUXLIST RESALLAPPS))) 
            ) 
          ) 
          (if XANADU-UPDATE-DEBUG 
            (PROGN (PRINT AJAXRESULT)) 
          ) 
          (if (> AJAXRESULT "") 
            (PROGN (FOREACH N XANADU-APPS 
                     (VL-REGISTRY-WRITE 
                       "HKEY_CURRENT_USER\\Software\\Xanadu\\XanaduApps" 
                       (STRCAT "UpdateStamp-" (CAR N)) 
                       (RTOS (GETVAR "CDATE") 2 16) 
                     ) 
                   ) 
                   (setq XANADU-CHECKOK T) 
            ) 
            (PROGN 
              (PRINC 
                "\nCannot check online updates now (use CADSTUDIOOPTIONS to disable checking) " 
              ) 
            ) 
          ) 
          (if (> (LENGTH AJAXRESLIST) 2) 
            (PROGN 
              (VLR-beep-reaction) 
              (setq APPIDS "") 
              (setq APPNAMES "") 
              (FOREACH N RESALLAPPS 
                (setq APPIDS (STRCAT APPIDS (CADR N) "|")) 
                (setq APPNAMES (STRCAT APPNAMES (CAR N) " ")) 
              ) 
              (if INCZ 
                (PROGN 
                  (PRINC (STRCAT 
                           "\n\nNalezeny nov?verze aplikac?CAD Studia:\n" 
                           APPNAMES 
                           "(viz okno web prohl頌e鑕) " 
                         ) 
                  ) 
                ) 
                (PROGN 
                  (PRINC 
                    (STRCAT 
                      "\n\nNew versions found for CAD Studio applications:\n" 
                      APPNAMES 
                      "(see the web browser window) " 
                    ) 
                  ) 
                ) 
              ) 
              (setq AUXLIST (GETVAR "CMDECHO")) 
              (SETVAR "CMDECHO" 0) 
              (if INCZ 
                (PROGN (setq N "")) 
                (PROGN (setq N "en/")) 
              ) 
              (command "._BROWSER") 
              (command (STRCAT "http://www.cadstudio.cz/" 
                               N 
                               "download?files=" 
                               APPIDS 
                       ) 
              ) 
              (SETVAR "CMDECHO" AUXLIST) 
            ) 
          ) 
        ) 
        (PROGN (if XANADU-UPDATE-DEBUG 
                 (PROGN (PRINT "Skipping update")) 
               ) 
        ) 
      ) 
      (PRINC) 
    ) 
  ) 
  (PROGN (if XANADU-UPDATE-DEBUG 
           (PROGN (PRINT "ALL DEFINITIONS SKIPPED")) 
         ) 
  ) 
)

lzspain · 发表于 2023-7-23 22:21

感谢分享，下载保存

LuckyClover · 发表于 2023-7-24 07:34

感谢分享，收藏备用

helloecho · 发表于 2023-7-26 12:28

我看了这个，很好解决，删除块内属性就能复制粘贴了

hzyhzjjzh · 发表于 2023-7-26 12:57

谢谢楼主分享

gaics · 发表于 2023-7-26 13:18

panliang9 发表于 2023-7-21 09:00
试试能不能搞干净我最后发的那一张图 “完全没有办法_2023年7月21日.dwg ”

消除复制时\"无法复制到剪贴板\"弹窗
http://bbs.mjtd.com/forum.php?mo ... &fromuid=410342
(出处: 明经CAD社区)

按上贴的方法测试可以解决！

429014673 · 发表于 2023-8-7 14:03

中望CAD就没有这么麻烦了，修改变量就可以复制代理了
不能复制是因为图纸中含有代理对象，中望CAD里系统变量【ZWWCLONEPROXYPOLICY】控制是否可以复制代理对象

https://confluence.zwcad.com/pages/viewpage.action?pageId=22320995
★★中望CAD为什么复制时提示“无法复制到剪切板”

账号		自动登录	找回密码
密码			注册

[资源] （国外搬运）全图删除所有代理对象

评分

评分

本帖子中包含更多资源