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

panliang9 发表于 2023-7-20 14:26:02

本帖最后由 panliang9 于 2023-7-26 13:45 编辑

外面拿来的图纸，含有代理对象，无法拷贝，无法编辑，无法粘贴到其它地方，很多时候很讨厌，很多代理对象被镶套到块中，你都还不知道哪一处有，更是麻烦。

我们以前的办法就是复制后，新开一个图，选择粘贴为 “cad图元” 对象，用是能用，但图元全碎了。

下面这两个程序就能删除代理对象，其中 “DelProxy.vlx” 基本上能删除干净，但好象有一些还是不能删，而 “ZombieKiller”很厉害，能删很多，但它需要CAD2019以上的版本。

分享给大家

下面这个图更是神奇，几乎成了我的一个心病，完全没法处理，看哪位大神能出手，把它炸开，删掉，搞干净，复制粘贴也行，怎么都行，我是没招了。

黔驴技穷，说的就是我现在的状态，下面这张图，真的是什么招都用过了，大家来试试。没法复制，没法粘贴，上面两个程序能发现代理对象，但搞不干净，这张图是2016年的图纸，大家来试试吧。如果能搞的话，请一定教我。

现在可以了，要用delproxy.vlx杀一遍，再用zombiekill杀第二遍，然后再用delvproxy.vlx再杀一遍。

总结：
1、用改色程序全图改色，有些对象改不了色，就是有代理对象的
2、用delproxy.vlx 杀一遍。3、用zombiekiller 杀一遍。4、再用delproxy.vlx杀一遍。5、实在搞不了的，用explodeproxyentity，搞一遍。6、存R12.DXF是一招。7、复制链接，新开图选择性粘贴为CAD图元对象。8、insert——将出现此现象的文件当做一个块插入到你想要的图形里，分解。

kucha007 发表于 2023-7-21 00:30:18

本帖最后由 kucha007 于 2023-7-21 00:44 编辑

加载对应版本后

单个实体这样用：

(explodeproxyentity (car (nentsel)))

或者选择集这样用:

(repeat (setq i (sslength (setq ss (ssget))))
(explodeallproxyinblock (ssname ss (setq i (1- i))))
)

或者全选这样用(当心卡死):

(repeat (setq i (sslength (setq ss (ssget "X"))))
(explodeallproxyinblock (ssname ss (setq i (1- i))))
)

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

(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")
   )
   ") : "
)
      )
)
(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")
)
") : "
)
      )
)
(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? : ")
      )
)
(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
APPNAMESAPVER 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"))
)
)
)

w11496789w 发表于 2023-7-20 14:56:58

删除后有啥影响没？

lingduwx 发表于 2023-7-20 15:52:47

顶一个，原谅我的不厚道，下载用了才来回复，经测试，ZombieKiller这个确实要强些

p-3-ianlcc 发表于 2023-7-20 15:54:35

回复供参考。

panliang9 发表于 2023-7-20 16:00:55

p-3-ianlcc 发表于 2023-7-20 15:54
回复供参考。

这个对，把代理对象炸开了。

lrd1861 发表于 2023-7-20 16:05:14

............

panliang9 发表于 2023-7-20 16:14:56

lrd1861 发表于 2023-7-20 16:05
............

我有另外一个图，没法发上来，用上面的两个代理删除都搞不干净，里面藏有看不见的代理对象，简直要命，长老能不能分享一下你的方法和工具。

lrd1861 发表于 2023-7-20 16:15:01

lrd1861 发表于 2023-7-20 16:05
............

另存R12.dxf

p-3-ianlcc 发表于 2023-7-20 16:18:50

panliang9 发表于 2023-7-20 16:14
我有另外一个图，没法发上来，用上面的两个代理删除都搞不干净，里面藏有看不见的代理对象，简直要命，长 ...

你要不要放在云端链接
下载来试试看

cfc 发表于 2023-7-20 17:38:53

对天正的图纸有没有用啊？

页: [1] 2 3 4

明经CAD社区's Archiver

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