选择的部分块更名

迷不知途 · 发表于 2015-10-26 00:50

来学习学习！！

夕阳以西 · 发表于 2015-10-28 20:18

好东西，顶一下

石井鱼 · 发表于 2015-10-28 20:35

本帖最后由石井鱼于 2015-10-28 20:45 编辑

之前一直在用的，单个命名块，记不得哪位大师写的，非常好用，分享一下
;;;单个块重命名
(defun c:rnb (/ 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)
)

my999god · 发表于 2015-10-28 22:38

非常給力!!!

960322 · 发表于 2015-10-28 22:54

黄老师有出手了啊，好事！

cngong · 发表于 2015-10-29 23:08

看上去就很牛

wwwgaofly · 发表于 2015-11-3 19:00

谢谢分析。。。。。。。。。。。。。。

F4164789 · 发表于 2015-11-5 17:51

自己找的A3 A4图框,把名字改过来，谢谢大师们

winerfjy · 发表于 2015-11-6 08:50

感谢分享这些功能我们经常用

winerfjy · 发表于 2015-11-6 08:55

试了一下匿名块能改就好了

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

[源码] 选择的部分块更名

点评