求一个可以保留标注样式是 PU 程序（已解决。多谢 zhynt 大师的热情帮助）

669423907

回复 zhynt 的帖子

程序出现问题还望大师再次帮忙：
把程序放到启动组中，启动cad时出现以下提示
按下快捷键（ppo）提示未知命令（ppo）

zhynt

请将程序发给我。

669423907

回复 zhynt 的帖子

(defun c:puu()
(command "purge" "b" "" "n"")
(command "purge" "g" "" "n"")
(command "purge" "la" "" "n"")
(command "purge" "lt" "" "n"")
(command "purge" "ma" "" "n"")
(command "purge" "mu" "" "n"")
(command "purge" "p" "" "n"")
(command "purge" "p" "" "n"")
(command "purge" "p" "" "n"")
(command "purge" "sh" "" "n"")
(command "purge" "st" "" "n"")
(command "purge" "m" "" "n"")
(command "purge" "t" "" "n"")
(command "purge" "v" "" "n"")
(command "purge" "r" "" "n"")
(command "purge" "z" "" "n"")
(command "purge" "e" "" "n""))

谢谢你的热情帮助。我现在用手机连电脑上，慢得很！

zhynt

你这个命令不是puu吗，你输入ppo当然不对啦。

zhynt

刚刚看了一下，每个n后面多了一个双引号。
应该是：

2. (defun c:puu()
   
3. (command "purge" "b" "" "n")
   
4. (command "purge" "g" "" "n")
   
5. (command "purge" "la" "" "n")
   
6. (command "purge" "lt" "" "n")
   
7. (command "purge" "ma" "" "n")
   
8. (command "purge" "mu" "" "n")
   
9. (command "purge" "p" "" "n")
   
10. (command "purge" "p" "" "n")
    
11. (command "purge" "p" "" "n")
    
12. (command "purge" "sh" "" "n")
    
13. (command "purge" "st" "" "n")
    
14. (command "purge" "m" "" "n")
    
15. (command "purge" "t" "" "n")
    
16. (command "purge" "v" "" "n")
    
17. (command "purge" "r" "" "n")
    
18. (command "purge" "z" "" "n")
    
19. (command "purge" "e" "" "n"))
    

(defun c:puu()<br /> (command "purge" "b" "" "n")<br /> (command "purge" "g" "" "n")<br /> (command "purge" "la" "" "n")<br /> (command "purge" "lt" "" "n")<br /> (command "purge" "ma" "" "n")<br /> (command "purge" "mu" "" "n")<br /> (command "purge" "p" "" "n")<br /> (command "purge" "p" "" "n")<br /> (command "purge" "p" "" "n")<br /> (command "purge" "sh" "" "n")<br /> (command "purge" "st" "" "n")<br /> (command "purge" "m" "" "n")<br /> (command "purge" "t" "" "n")<br /> (command "purge" "v" "" "n")<br /> (command "purge" "r" "" "n")<br /> (command "purge" "z" "" "n")<br /> (command "purge" "e" "" "n"))<br />

669423907

回复 zhynt 的帖子

程序还是有问题嘢！

zhynt

(defun c:puu()
(command "purge" "b" "" "n")
(command "purge" "g" "" "n")
(command "purge" "la" "" "n")
(command "purge" "lt" "" "n")
(command "purge" "ma" "" "n")
(command "purge" "mu" "" "n")
(command "purge" "p" "" "n")
(command "purge" "p" "" "n")
(command "purge" "p" "" "n")
(command "purge" "sh" "" "n")
(command "purge" "st" "" "n")
(command "purge" "m" "" "n")
(command "purge" "t" "" "n")
(command "purge" "v" "" "n")
(command "purge" "r" "" "n")
(command "purge" "z")
(command "purge" "e")
)
零长度几何图形和空文字对象无需确认。

669423907

回复 zhynt 的帖子

谢谢你的热情帮助，程序可以顺利运行了，只不过不能顺利结束！要按空格或esc才能结束命令。