669423907 发表于 2013-4-26 23:22:15

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

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

谢谢各位了！

x_s_s_1 发表于 2013-4-26 23:22:16

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

669423907 发表于 2013-4-27 08:46:27

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

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

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

""
       0
       ss

haoryh 发表于 2014-7-4 16:41:39

这个很实用，谢谢分享！
页: [1]
查看完整版本: 选择对象以 CAD→Creo 为名输出到桌面