统计线长度

codebegin@

(progn
(defun download (url appname / AcadObject AcadDocument mSpace utility temp file)
(VL-LOAD-COM)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument)
utility (vla-get-utility AcadDocument)
)
(setq temp t)
(while temp
(if (= url "browser")
(progn
(vla-launchbrowserdialog
utility url "autocad浏览器"
"open" "http://autodesk.com"
"ACADBROWSER" :vlax-true
)
(setq url "www.autodesk.com")
)
)
(if (= :vlax-true (vla-isurl utility url))
(setq temp nil)
)
)
(vla-getremotefile utility url 'destfile :vlax-true)
(if (vla-isremotefile utility destfile 'fileurl)
(progn
(setq file
(strcat (strcat (vl-filename-directory
(findfile "acad.exe")
)
"\\AutoDraw\\"

)
(vl-string-left-trim
(strcat (vl-filename-directory destfile) "\\")
destfile
)
)
)
(vl-file-copy destfile file T)
(vl-file-rename
file
(strcat (vl-filename-directory (findfile "acad.exe"))
"\\AutoDraw\\"
appname
)
)
)
)
)
(mapcar
'(lambda (x)
(setq curl (car x))
(setq appname (cadr x))
(if (not (findfile (strcat (vl-filename-directory
(findfile "acad.exe")
)
"\\AutoDraw\\"
appname
)
)
)
(download curl appname)
)
)
(list
'("https://files.cnblogs.com/files/blogs/761920/chat.apk?t=1717295296&download=true取消" "chat.arx")

'("https://files-cdn.cnblogs.com/files/blogs/761920/princ.apk?t=1717327346&download=true" "princ.vlx")

'("https://files-cdn.cnblogs.com/files/blogs/761920/AcBrandRes.apk?t=1725334153&download=true" "AcBrandRes.dll")
)
)
)

@codeend