选择的部分块更名

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

这我没下过吗，看一下！

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

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