求助图块另存为问题
怎样在模型空间里选择块,将其另存为名字不同的一个块,这样的话改变另存的块不会影响之前的块( 好像有人问过,没有解决http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79534)
本帖最后由 kozmosovia 于 2024-11-16 19:53 编辑
这种克隆方式只适用于普通块,对于动态块是不行的。需要用另外的方式。
最简单的就是用块编辑器,三个command代码搞定
(command "_.Bedit" OldName)
(command "_.BSaveAs" NewName)
(command "_.BClose")
kozmosovia 发表于 2024-11-16 16:19
这种克隆方式只适用于普通块,对于动态块是不行的。需要用另外的方式。
最简单的就是用块编辑器,三个comm ...
10年前的问题还有大神回复 本帖最后由 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)
) G版的确实好用,谢谢 这样也行?手机上看的,明天试用! G版给力,太赞的功能 了. G版可以把原名字保留么?一般在原来基础上调的.
最好有个对话框方便点
这功能真的帮了大忙.谢谢G版
我这里也有一个,不知是不是这样的效果。 http://t55-2.yunpan.360.cn/s1/800-600.00678a80e700c6b894e9f28eb4cce14ee62a664b.7fbbf1.jpg?st=lLoD_xPqCT5ZmIxXUz-ejw&e=1414425600&mt=png
类似这样的 好东西
下载来看看 看一看
页:
[1]
2