菜卷鱼 发表于 2014-1-4 17:26:55

求助图块另存为问题

怎样在模型空间里选择块，将其另存为名字不同的一个块，这样的话改变另存的块不会影响之前的块
（ 好像有人问过，没有解决http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79534）


kozmosovia 发表于 2024-11-16 16:19:45

本帖最后由 kozmosovia 于 2024-11-16 19:53 编辑

这种克隆方式只适用于普通块，对于动态块是不行的。需要用另外的方式。
最简单的就是用块编辑器，三个command代码搞定

(command "_.Bedit" OldName)
(command "_.BSaveAs" NewName)
(command "_.BClose")

菜卷鱼 发表于 6 天前

kozmosovia 发表于 2024-11-16 16:19
这种克隆方式只适用于普通块，对于动态块是不行的。需要用另外的方式。
最简单的就是用块编辑器，三个comm ...

10年前的问题还有大神回复

Gu_xl 发表于 2014-1-4 19:13:49

本帖最后由 Gu_xl 于 2014-1-4 19:14 编辑

(defun c:tt (/ e l el doc blocks blkdef blkdef1)
(while (and
         (setq e (car (entsel "\n选择块:")))
         (= "INSERT" (cdr (assoc 0 (setq el (entget e)))))
         )
    (while
      (progn
      (setq name (getstring "\n新块名称:"))
      (setq name (VL-STRING-TRIM " " name))
      (TBLOBJNAME "block" name)
      )
       (princ "\n已有块名称，重新输入块名称!")
    )
    (setq blkdef (vla-add (setq      blocks (vla-get-blocks
                                       (setq doc (vla-get-ActiveDocument
                                                   (vlax-get-acad-object)
                                                   )
                                       )
                                       )
                        )
                        (vlax-3d-point '(0 0 0))
                        name
               )
    )
    (setq blkdef1 (vla-item blocks (cdr (assoc 2 el))))
    (vlax-for o blkdef1 (setq l (cons o l)))
    (vlax-invoke doc 'CopyObjects l blkdef)
    (setq el (subst (cons 2 name) (assoc 2 el) el))
    (entmod el)
    (princ (strcat "\n块已另存为：" name))
)
(princ)
)

石井鱼 发表于 2014-1-14 19:47:28

G版的确实好用，谢谢

hooboxu 发表于 2014-10-24 23:43:13

这样也行？手机上看的，明天试用！

hooboxu 发表于 2014-10-25 11:08:55

G版给力,太赞的功能 了.

hooboxu 发表于 2014-10-25 14:38:39

G版可以把原名字保留么?一般在原来基础上调的.
最好有个对话框方便点

这功能真的帮了大忙.谢谢G版

donghuidong2003 发表于 2014-10-26 12:29:38

我这里也有一个，不知是不是这样的效果。

hooboxu 发表于 2014-10-26 18:52:57

http://t55-2.yunpan.360.cn/s1/800-600.00678a80e700c6b894e9f28eb4cce14ee62a664b.7fbbf1.jpg?st=lLoD_xPqCT5ZmIxXUz-ejw&e=1414425600&mt=png
类似这样的

gooday 发表于 2018-12-11 22:44:27

好东西
下载来看看

songyujie928 发表于 2019-10-28 15:41:14

看一看
页: [1] 2
查看完整版本: 求助图块另存为问题