(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))))

(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.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

;; @lisp 函数库帮助与支持，查询的函数均以 ui:confirm1 为示例 (fun:list) ;; 列出所有@lisp函数 (fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码 (fun:search "ui:");; 搜索函数库中 ui: 相关的函数 (fun:run-example funname) ;; 如果函数有示例代码，则运行示例 (fun:e.g funname) ;; 如果函数有示例代码，则运行示例 ;; 调用示例 (require 'ui:confirm1) ;; 加载用户确认对话框函数 (ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

svg:export

说明：将选择的图元生成SVG, ss 选择集,path 输出文件路径。当前只支持二维多段线和线段

用法：

 (svg:export ss path)

参数：1 ss : 选择集;2 path : 文件路径;

返回值：

示例：

(svg:export (ssget) "C:/example.svg")

(defun svg:export (ss path / i out lst-ss color w h ox oy)
  "将选择的图元生成SVG, ss 选择集,path 输出文件路径。当前只支持二维多段线和线段"
  ""
  "(svg:export (ssget)
    \"C:/example.svg\")"
  (setq lst-ss (pickset:to-list ss))
  (setq box (pickset:getbox ss 1))
  (setq w (- (car (cadr box))
      (car (car box))))
  (setq h (- (cadr (cadr box))
      (cadr (car box))))
  (setq ox (car (car box)))
  (setq oy (cadr (car box)))
  (setq out (open path "w"))
  (write-line "<?xml version=\"1.0\"
    encoding=\"utf-8\"
    standalone=\"no\"?>"
    out)
  (write-line (strcat "<svg width=\"256\"
      height=\"256\"
      viewBox=\"0 0 "
      (rtos w 2 1)
      "
      "
      (rtos h 2 1)
      "\"
      version=\"1.1\"
      xmlns=\"http://www.w3.org/2000/svg\"
      xmlns:xlink=\"http://www.w3.org/1999/xlink\">")
    out)
  (foreach curve lst-ss (setq color (color:rgb2css (entity:get-truecolor curve)))
    (setq bold (entity:getdxf curve 43))
    (if (or (null bold)
        (and bold (= 0 bold)))
      (setq bold 1))
    (cond ((wcmatch (entity:getdxf curve 0)
          "LWPOLYLINE,LINE")
        (write-line (strcat "<polyline points=\""
            (string:from-list (mapcar (quote (lambda (x)
                    (strcat (rtos (- (car x)
                          ox)
                        2 3)
                      ","
                      (rtos (- h (- (cadr x)
                            oy))
                        2 3))))
                (progn (setq pts (curve:get-points curve))
                  (if (and (setq closed (entity:getdxf curve 70))
                      (= 1 closed))
                    (setq pts (append pts (list (car pts))))
                    pts)))
              "
              ")
            "\"
            style=\"fill:none;stroke:"
            color ";stroke-width:"
            (rtos bold 2 3)
            "\"
            />")
          out))
      ((wcmatch (entity:getdxf curve 0)
          "CIRCLE")
        (setq x (entity:getdxf curve 10))
        (write-line (strcat "<circle cx=\""
            (rtos (- (car x)
                ox)
              2 3)
            "\"
            "
            "cy=\""
            (rtos (- h (- (cadr x)
                  oy))
              2 3)
            "\"
            "
            "r=\""
            (rtos (entity:getdxf curve 40)
              2 3)
            "\"
            "
            "stroke=\""
            color "\"
            "
            "stroke-width=\""
            (rtos bold 2 3)
            "\"
            "
            "fill=\"white\"
            />")
          out))))
  (write-line "</svg>"
    out)
  (close out)
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

svg:export

上传记录