adc 发表于 2015-8-31 13:08:28

本帖最后由 adc 于 2015-8-31 13:13 编辑

(defun c:dkgm (/ e en j new old ss)
(defun dxf (a b) (cdr (assoc a b)))
(command "undo" "group")
(if
    (and (setq ss (ssget '((0 . "INSERT"))))
       (setq new (getstring "\n输入的块新名称:"))
       (not (tblsearch "block" new))
    )
   (progn (setq old (dxf 2 (entget (ssname ss 0))))
          (command "-insert" old '(0 0) "1" "1" 0)
          (command "explode" (entlast))
          (command "-block" new '(0 0) "P" "")
          (setq j 0)
          (repeat (sslength ss)
              (setq e(ssname ss j)
                  en (entget
                       e
                     )
                  en (subst (cons 2 new) (assoc 2 en) en)
              )
              (entmod en)
              (setq j (1+ j))
          )
   )
)
(command "undo" "end")
(princ)
)

lm344437673 发表于 2015-9-4 01:54:03

运行显示 ; 错误: no function definition: _BLOCKNEWNAME

ckss 发表于 2015-9-5 14:29:53

ddddddddddddd

liu475693830 发表于 2015-10-11 01:28:35

没图没真相，我要看图

奋斗的研究生 发表于 2015-10-11 18:37:50

楼主强大啊

cshimao 发表于 2015-10-23 17:48:56

我菜鸟，来学习啦。

czcxxx 发表于 2015-10-24 11:53:45

谢谢分享！！！！！！！！！！！

wsj249201 发表于 2015-10-24 12:31:46

看看这个内容被

culiang10086 发表于 2015-10-24 18:34:51

感谢分享。。。。。。

panliang9 发表于 2015-10-24 21:22:11

这我没下过吗，看一下！
页: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17
查看完整版本: 选择的部分块更名