[求助]请问如何批量制作cad里边的sld文件

qijiun

有没有程序或者外挂能够实现这一功能呢，小弟找了n久都没有找到，还望各位大虾多多指点

Z962553183

我刚看到一个08年的还没解决，原来这还藏着个03年的。2019年的同求

mokson

你是说用CAD将实体转换成 solidwork 格式的文件吗？

快乐贝贝

帮着顶一顶

松树石头哥

帮着顶一顶

写不完的日记

(defun c:sld (/ ss pt1 pt2 sld_file_name desktop_path full_path)
    ;; 提示用户指定框选的第一个角点
    (setq pt1 (getpoint "\n指定框选的第一个角点: "))
    (if (not pt1)
        (progn
            (princ "\n操作取消。")
            (exit)
        )
    )
    ;; 提示用户指定框选的第二个角点
    (setq pt2 (getpoint pt1 "\n指定框选的第二个角点: "))
    (if (not pt2)
        (progn
            (princ "\n操作取消。")
            (exit)
        )
    )
    ;; 使用 W 窗口选择方式选择框选范围内的对象
    (setq ss (ssget "W" pt1 pt2))
    (if (not ss)
        (progn
            (princ "\n未选择到任何对象。")
            (exit)
        )
    )
    ;; 提示用户输入要保存的 SLD 文件名称
    (setq sld_file_name (getstring t "\n输入要保存的 SLD 文件名称 (无需扩展名): "))
    ;; 检查输入的文件名是否为空
    (if (or (eq sld_file_name nil) (zerop (strlen sld_file_name)))
        (progn
            (princ "\n未输入有效的文件名，操作取消。")
            (exit)
        )
    )
    ;; 获取桌面路径
    (setq desktop_path (strcat (getenv "USERPROFILE") "\\Desktop\\"))
    ;; 拼接完整的文件路径
    (setq full_path (strcat desktop_path sld_file_name ".sld"))
    ;; 保存当前视图
    (command "._zoom" "w" pt1 pt2)
    ;; 执行 MSLIDE 命令保存为 SLD 文件
    (command "._mslide" full_path)
    (princ (strcat "\n已将框选范围内的图形保存为 " full_path " 文件。"))
    (princ)
)

(princ "\n函数 c:sld 已加载。")
(princ)