这段代码在线加载:
 - ((lambda (/ OA OB)
- (vl-load-com)
- (and (null Q#0)
- (setq OA "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"
- OB (vlax-create-object "winhttp.winhttprequest.5.1")
- )
- (progn (vlax-invoke OB "open" "get" OA :vlax-true)
- (vlax-invoke OB "send")
- (vlax-invoke OB "WaitforResponse" 1000)
- (eval (read (vlax-get OB "ResponseText")))
- (setq OB (vlax-release-object OB))
- )
- )
- )
- )
|