关于部份对像输出....

HGQ8888 · 发表于 2014-7-4 23:09:30

(defun C:X (/ path dwgname)
  (setq path "C:\\")
  (setq dwgname (getstring "\n 档名:"))
  (while (findfile (strcat path dwgname ".dwg"))
(prompt (strcat "\n 档名 " dwgname ".dwg 已经存在!"))
(setq dwgname (getstring " 重新命名: "))
  )
  (setq p (getpoint "\n 插入点:"))
  (setq ss (ssget))
  (var)
  (command "undo" "m")
  (command "-wblock" (strcat path dwgname) "" p ss "" "oops")
)
缺陷之一是导出的图形不在视口中心,河边草 V3有导出DXF格外的功能.但它导出的件很大.不利于文件发送(不压缩),那位高手知到还有什么方法导出部分物体的涵数?

自贡黄明儒 · 发表于 2014-7-4 23:22:20

没缺陷，你在输出前加几句就可以了

HGQ8888 · 发表于 2014-7-4 23:30:27

自贡黄明儒发表于 2014-7-4 23:22
没缺陷，你在输出前加几句就可以了

请教长老加什么语句?有的图试了N多次,打开就是看不到图形.并且创建文件的路径一定要存在.否则出错.

nzl1116 · 发表于 2014-7-5 00:22:33

HGQ8888 发表于 2014-7-4 23:30
请教长老加什么语句?有的图试了N多次,打开就是看不到图形.并且创建文件的路径一定要存在.否则出错.

(vl-mkdir path)

HGQ8888 · 发表于 2014-7-5 08:52:27

HGQ8888 发表于 2014-7-4 23:30
请教长老加什么语句?有的图试了N多次,打开就是看不到图形.并且创建文件的路径一定要存在.否则出错.

感谢两位的指点.加了(command "Zoom" "ob" ss "")及看了你的程序或作修改也不能实现.能再说明白点.

HGQ8888 · 发表于 2014-7-5 10:10:55

不会是CAD版本问题吧

账号		自动登录	找回密码
密码			注册

[提问] 关于部份对像输出....

点评

浏览过的版块