复制块重命名，求助

13993359550 · 发表于 2017-3-3 23:27:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

当从一个图复制一个块的时候，复制到新图时，块的名字会自动加上一个原图前缀，，

newer · 发表于 2017-3-3 23:36:05

发错版块了，帮你移动到编程申请论坛了，以后要根据自己的问题选择合适的论坛，才能更快的获得帮助。

13993359550 · 发表于 2017-3-4 08:14:21

newer 发表于 2017-3-3 23:36

好的谢谢，

csharp · 发表于 2017-3-4 08:50:34

Autocad 的复制、黏贴是制作了一个临时文件，Windows剪贴板中记录了Autocad的专有信息，如果是 Insert 复制，这个临时文件的文件名就是图块名称，如果达到楼主要求，可以尝试这样
方法一：
1 获取剪贴板上该临时文件名称，修改文件名
2 执行黏贴，这时进来的块名称就是随机名称了
3 对黏贴的块进行重命名

方法二：
直接修改剪贴板信息并把临时文件重命名后执行粘贴

以上方法仅靠 A/Vlisp 都无法完成的，需要借助 ARX 完成，可以使用命令反应器监视粘贴命令进行操作，也可以自定义一个粘贴命令完成

HLCAD · 发表于 2017-3-4 11:33:08

可以这样：
先粘贴到新图中，看看有那些种类的块，
将图中这些种类的块先更名，
再删掉所粘贴的，然后再粘贴，将新粘贴的种类的块改为你所需块名
再将之前的更名恢复到原名

csharp · 发表于 2017-3-4 12:45:48

同名称的是插入当前图形的块，不是另外图形复制内容

marting · 发表于 2017-3-4 22:11:20

到剪切板上后，原图的信息就没了，其实，换个思维考虑，应该在原图里面就把复制的块改好名，加上图名前缀，然后再往别的图拷贝。

13993359550 · 发表于 2017-3-5 08:07:12

marting 发表于 2017-3-4 22:11

请见谅，因为在绘图过程中要一直复制块去修改复制的块改成另一个零件，其他的不变

13993359550 · 发表于 2017-3-5 08:08:20

csharp 发表于 2017-3-4 12:45

我想的是在同一个dwg图里面，复制（copy）一个块，然后粘贴，使得这个复制的块改变其名称，还望大大能帮忙

csharp · 发表于 2017-3-5 09:24:14

本帖最后由 csharp 于 2017-3-5 11:15 编辑

13993359550 发表于 2017-3-5 08:08

这样说就简单了

(defun c:tt (/ bn e le bname el p b)
(if (and (setq e (xdrx_entsel "\n拾取块: " '((0 . "insert"))))
(setq bn (getstring "\n前缀: "))
(not
(tblsearch "block"
(setq bname (strcat bn (cdr (assoc 2 (entget (car e))))))
)
)
)
(progn
(setq le (entlast))
(setvar "cmdecho" 1)
(vl-cmdf ".copy" e "")
(while (= (getvar "cmdnames") "COPY") (command pause))
(if (not (equal le (entlast)))
(progn
(setq el (xdrx_block_getentities (entlast))
p (cdr (assoc 10 (entget (entlast))))
el (xdrx_entity_copy el '(0.0 0.0 0.0) '(0.0 0.0 0.0))
b (xdrx_block_make bname el '(0. 0. 0.) t)
)
(xdrx_entity_move b '(0.0 0.0 0.0) p)
)
)
(setvar "cmdecho" 0)
)
)
(princ)
)

(defun c:tt (/ bn e le bname el p b) 
  (if (and (setq e (xdrx_entsel "\n拾取块: " '((0 . "insert")))) 
           (setq bn (getstring "\n前缀: ")) 
           (not 
             (tblsearch        "block" 
                        (setq bname (strcat bn (cdr (assoc 2 (entget (car e)))))) 
             ) 
           ) 
      ) 
    (progn 
      (setq le (entlast)) 
      (setvar "cmdecho" 1) 
      (vl-cmdf ".copy" e "") 
      (while (= (getvar "cmdnames") "COPY") (command pause)) 
      (if (not (equal le (entlast))) 
        (progn 
          (setq        el (xdrx_block_getentities (entlast)) 
                p  (cdr (assoc 10 (entget (entlast)))) 
                el (xdrx_entity_copy el '(0.0 0.0 0.0) '(0.0 0.0 0.0)) 
                b  (xdrx_block_make bname el '(0. 0. 0.) t) 
          ) 
          (xdrx_entity_move b '(0.0 0.0 0.0) p) 
        ) 
      ) 
      (setvar "cmdecho" 0) 
    ) 
  ) 
  (princ) 
)

13993359550 · 发表于 2017-3-5 21:45:17

csharp 发表于 2017-3-5 09:24

谢谢csharp大大，但是会报错误，还请帮忙看一下
错误: no function definition: XDRX_ENTSEL

newer · 发表于 2017-3-5 22:33:34

13993359550 发表于 2017-3-5 21:45

安装XDRX API 或者晓东工具箱

13993359550 · 发表于 2017-3-6 07:51:30

newer 发表于 2017-3-5 22:33

谢谢回复，我看看怎么样

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

[求助] 复制块重命名，求助

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

复制块重命名，求助