pt ;;块定义内坐标
pt-base ;; 块定义基点
pt-ins ;; 块引用(参照) 的插入点 inert dxf 10
ang ;; 块引用(参照) 旋转转角度
scale ;; 块引用(参照) 缩放值(目前只支持统一缩放)
运行以下代码可直接调用上面的函数,不用自己整理。
 - (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
|