没有营养的贴砖越来越多了，（在当前CAD打开CAD文件）

sniper1111

;5.打开文件
(defun QYD:opendwg (fn / name File_new);;;fn带路径的文件名。
        (setq name (vl-filename-mktemp "open" nil ".scr"))
        (setq File_new (open name "w"))
        (write-line  (strcat "open" (chr 32) fn ) File_new)
        (close File_new)
        (command"script" name)  
)

最近搞了一个在当前CAD窗口打开dwg文件。只是不能删除生成的临时文件很苦恼。
还有最近发现没营养的贴太多，甚至有的人玩起来双簧，这个发帖下面有人留言让你看更不相干的贴。珍惜希望大家保持平台互帮互助，高效的风格。

lxl217114

谢谢大佬分享

不一样地设计

感谢楼主分享

Andyhon

http://bbs.mjtd.com/thread-29775-2-1.html

ghgh0130

感谢楼主分享

sniper1111

Andyhon 发表于 2023-11-17 22:18
http://bbs.mjtd.com/thread-29775-2-1.html

大佬，之前也跟您学习过用这个。也很好用，但是这个是在最新打开的CAD中打开dwg。我这个是在当前CAD窗口打开dwg文件