本帖最后由 kucha007 于 2023-7-21 10:18 编辑
panliang9 发表于 2023-7-21 09:00
试试能不能搞干净我最后发的那一张图 “完全没有办法_2023年7月21日.dwg ”
你全选，取消选择你需要的，然后把不用的东西删掉。
剩下的简单了吧
andyzha 发表于 2023-7-21 08:46
需要把以上代码加到启动项里吗？
我是直接拉到黑框里加载
kucha007 发表于 2023-7-21 10:17
我是直接拉到黑框里加载
那是不是，我加到启动组里，每次开图就直接清理多余的代理对象了？
(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.|Pkaz(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 pkazem 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"))
)
)
)
感谢分享，下载保存
感谢分享，收藏备用
我看了这个，很好解决，删除块内属性就能复制粘贴了
谢谢楼主分享{:1_1:}
panliang9 发表于 2023-7-21 09:00
试试能不能搞干净我最后发的那一张图 “完全没有办法_2023年7月21日.dwg ”
消除复制时\"无法复制到剪贴板\"弹窗
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=186272&fromuid=410342
(出处: 明经CAD社区)
按上贴的方法测试可以解决！
中望CAD就没有这么麻烦了，修改变量就可以复制代理了
不能复制是因为图纸中含有代理对象，中望CAD里系统变量【ZWWCLONEPROXYPOLICY】控制是否可以复制代理对象
https://confluence.zwcad.com/pages/viewpage.action?pageId=22320995
★★中望CAD为什么复制时提示“无法复制到剪切板”