社区 › Auto Lisp › 有人能帮我写字吗

jim_archi4 发表于 2022-7-6 08:46:27

有人能帮我写字吗

我正在使用AutoCad 2009，我以前使用before（命令“open”）来调用open命令，但现在它不起作用了，我看到了许多使用open但特定于文件名的visual lisp例程。我不想打开特定文件我想通过AutoCad open命令对话框选择文件。
 
有人能帮我吗？

jim_archi4 发表于 2022-7-6 08:59:45

我正在使用AutoCad 2009，我以前使用before（命令“open”）来调用open命令，但现在它不起作用了，我看到了许多使用open但特定于文件名的visual lisp例程。我不想打开特定文件我想通过AutoCad open命令对话框选择文件。
 
有人能帮我吗？

pBe 发表于 2022-7-6 09:01:31

检查此值
命令：SDI

jim_archi4 发表于 2022-7-6 09:10:59

SDI的值=0我希望能够一次打开多个图形。
谢谢

pBe 发表于 2022-7-6 09:16:14

先调用一个对话框，然后将值传递给vla open，怎么样
 
（setq filename（getfield“选择要打开的文件名：”“dwg”8）
 
 
顺便问一下：这和你开始的另一个线程有关吗？

jim_archi4 发表于 2022-7-6 09:24:46

你好，pBe，
 
谢谢，但我对via open一无所知。你能告诉我代码是什么样子吗
 
谢谢

jim_archi4 发表于 2022-7-6 09:26:33

是的，确实如此

pBe 发表于 2022-7-6 09:37:51

(defun c:test4u()
(setq filename (getfiled "Select file to open read-only" "" "dwg" 4))
          (vla-activate
            (vla-open (vla-get-documents (vlax-get-acad-object)) filename :vlax-false))))

jim_archi4 发表于 2022-7-6 09:45:19

我想定义自己的open的原因是我想包含另一个线程中名为（diary）的子程序，该子程序记录我每次打开文件时处理的每个作业（绘图）的所有时间。
 
我知道“Getfile”命令是一种方式，但在我插入（日记）子例程之前，有没有办法调用普通的AutoCAD“OPEN”。
 
谢谢

pBe 发表于 2022-7-6 09:50:19

我建议版主将此帖子与您发布的第二个帖子合并：
然后我们在那里取表。
 

查看完整版本: 有人能帮我写字吗