选择对象以 CAD→Creo 为名输出到桌面

669423907

由于近段时间经常要用到旧CAD图转proe，想请大师帮忙写一个小程序：
1：将已选择的对象以 CAD→Creo 为名，输出到桌面，
2：如果桌面已有 CAD→Creo 存在，则覆盖

谢谢各位了！

x_s_s_1

如果你的桌面不是C:\\Documents and Settings\\Administrator\\桌面\\自己改改

2. (defun c:test1 (/ ss pt)
   
3.   (setvar "cmdecho" 0)
   
4.   (prompt "\n选择输出图元：")
   
5.   (setq        ss (ssget)
   
6.         pt (getpoint "\n拾取输出点：")
   
7.   )
   
8.   (if
   
9.     (findfile
   
10.       "C:\\Documents and Settings\\Administrator\\桌面\\CAD→Creo.dwg"
    
11.     )
    
12.      (command
    
13.        "-WBLOCK"
    
14.        "C:\\Documents and Settings\\Administrator\\桌面\\CAD→Creo.dwg"
    
15.        "y"
    
16.        ""
    
17.        pt
    
18.        ss
    
19.        ""
    
20.       )
    
21.      (command
    
22.        "-WBLOCK"
    
23.        "C:\\Documents and Settings\\Administrator\\桌面\\CAD→Creo.dwg"
    
24.        ""
    
25.        pt
    
26.        ss
    
27.        ""
    
28.       )
    
29.   )
    
30.   (command ".oops")
    
31.   (setvar "cmdecho" 1)
    
32.   (princ)
    
33. )

(defun c:test1 (/ ss pt)<br />   (setvar "cmdecho" 0)<br />   (prompt "\n选择输出图元：")<br />   (setq        ss (ssget)<br />         pt (getpoint "\n拾取输出点：")<br />   )<br />   (if<br />     (findfile<br />       "C:\\Documents and Settings\\Administrator\\桌面\\CAD→Creo.dwg"<br />     )<br />      (command<br />        "-WBLOCK"<br />        "C:\\Documents and Settings\\Administrator\\桌面\\CAD→Creo.dwg"<br />        "y"<br />        ""<br />        pt<br />        ss<br />        ""<br />       )<br />      (command<br />        "-WBLOCK"<br />        "C:\\Documents and Settings\\Administrator\\桌面\\CAD→Creo.dwg"<br />        ""<br />        pt<br />        ss<br />        ""<br />       )<br />   )<br />   (command ".oops")<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

669423907

x_s_s_1 发表于 2013-4-27 01:00
如果你的桌面不是C:\\Documents and Settings\\Administrator\\桌面\\自己改改

非常感谢你的帮助，程序很好用！
这样也可以：
；pt (getpoint "\n拾取输出点：")

""
       0
       ss
........................

""
       0
       ss

haoryh

这个很实用，谢谢分享！