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

来学习学习！！

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

好东西，顶一下

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

本帖最后由 石井鱼 于 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:17

非常給力!!!

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

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

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

看上去就很牛

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

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

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

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

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

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

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

试了一下匿名块能改就好了
页: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17
查看完整版本: 选择的部分块更名