找回密码
 加入BIM Studio

QQ登录

只需一步,快速开始

导出的多个dwg在autocad里复制粘贴

2013-9-15 08:58:55 · ArchiCAD 综合讨论

早点注册攒积分吧

您需要 登录 才可以下载或查看,没有账号?加入BIM Studio

x
如图,粘贴时都散了
搜狗截图_2013-04-13_19-56-16.jpg
评论·
·举报
http://www.bimst.com/bbs/forum.p ... ;pre_pos=1&ext=
这里有一样的问题,看来导dwg不是正道。。。。
2013-4-13 20:01:50
请勿使用 复制粘贴,尝试使用参照 绑定的方法 可以解决这些问题。

或者导出时使用导出到模型视图 然后按照比例放大,这样不会散架
2013-4-14 12:46:20
把图炸开 再复制粘贴就可以了
2013-9-9 14:58:19
还有这个问题啊,这是导出dwg同名块造成的,互相插入的时候,同名块会被替换掉。我的书《ArchiCAD施工图技术》最后一章专门讲到这个问题,提供了一个lisp文件处理dwg,我把代码贴到这里好了:

(defun c:RBK()
  (command "_undo" "be")
  (setq blk (assoc 2 (tblnext "block" 0)))
  (while (/= blk nil)
     (setq ss (ssget "X" (list (cons 0 "INSERT") blk)))
     (if (/= ss nil)
       (progn
         (setq blkn (cdr blk))
         (setq len (strlen blkn))
         (setq cd (rtos (getvar "CDATE") 2 8))
         (if (> len 2)
             (setq sub (substr blkn (- len 2)))
             (setq sub blkn)
         )
         (if (/= sub "xrk")
             (command "-rename" "b" blkn (strcat blkn "_" (substr cd 14) "xrk"))
         )
         (setq blk (assoc 2 (tblnext "block")))
      )
      (setq blk (assoc 2 (tblnext "block")))
    )
  )
(prompt "---所有图块重命名完毕---")
(command "_undo" "e")
)

将上面的代码用记事本存成“图块重命名.lsp”,拖到AutoCAD绘图区,输入rbk,即可。
2013-9-11 23:13:53
惊现C版~{:soso_e103:}
2013-9-12 09:43:11
好像不行呀,方法不对吗
2013-9-14 08:13:59
评论·
·举报
并且考贝后粘贴为空白
2013-9-14 21:15:37
shashixiaochen 发表于 2013-9-14 21:15
并且考贝后粘贴为空白

可以的话,请将你转出来的两个dwg传上来看看。或者截个图,最好把你的dwg转换器设置截下来。
2013-9-15 08:20:24
2013-9-15 08:58:55

早点注册攒积分吧

您需要 登录 才可以下载或查看,没有账号?加入BIM Studio

x
如图,粘贴时都散了
搜狗截图_2013-04-13_19-56-16.jpg
评论·
·举报
http://www.bimst.com/bbs/forum.p ... ;pre_pos=1&ext=
这里有一样的问题,看来导dwg不是正道。。。。
2013-4-13 20:01:50
请勿使用 复制粘贴,尝试使用参照 绑定的方法 可以解决这些问题。

或者导出时使用导出到模型视图 然后按照比例放大,这样不会散架
2013-4-14 12:46:20
把图炸开 再复制粘贴就可以了
2013-9-9 14:58:19
还有这个问题啊,这是导出dwg同名块造成的,互相插入的时候,同名块会被替换掉。我的书《ArchiCAD施工图技术》最后一章专门讲到这个问题,提供了一个lisp文件处理dwg,我把代码贴到这里好了:

(defun c:RBK()
  (command "_undo" "be")
  (setq blk (assoc 2 (tblnext "block" 0)))
  (while (/= blk nil)
     (setq ss (ssget "X" (list (cons 0 "INSERT") blk)))
     (if (/= ss nil)
       (progn
         (setq blkn (cdr blk))
         (setq len (strlen blkn))
         (setq cd (rtos (getvar "CDATE") 2 8))
         (if (> len 2)
             (setq sub (substr blkn (- len 2)))
             (setq sub blkn)
         )
         (if (/= sub "xrk")
             (command "-rename" "b" blkn (strcat blkn "_" (substr cd 14) "xrk"))
         )
         (setq blk (assoc 2 (tblnext "block")))
      )
      (setq blk (assoc 2 (tblnext "block")))
    )
  )
(prompt "---所有图块重命名完毕---")
(command "_undo" "e")
)

将上面的代码用记事本存成“图块重命名.lsp”,拖到AutoCAD绘图区,输入rbk,即可。
2013-9-11 23:13:53
惊现C版~{:soso_e103:}
2013-9-12 09:43:11
好像不行呀,方法不对吗
2013-9-14 08:13:59
评论·
·举报
并且考贝后粘贴为空白
2013-9-14 21:15:37
shashixiaochen 发表于 2013-9-14 21:15
并且考贝后粘贴为空白

可以的话,请将你转出来的两个dwg传上来看看。或者截个图,最好把你的dwg转换器设置截下来。
2013-9-15 08:20:24
2013-9-15 08:58:55
12下一页
懒得打字嘛,点击右侧快捷回复
您需要登录后才可以回帖 立即登录
说说你的想法......
0
13
0
返回顶部