[LISP程序]：如何更改块名。

gchen · 发表于 2003-3-22 14:40:25

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

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

×

我有两个内容是一样的块，我需要不同的块名。但我又不想定义两次，有没有好的方法直接更改我选择的块的名称?
在使用entmod这个函数的时候，要求块名事先定义，该如何事先定义呢？

aeo · 发表于 2003-4-1 21:27:13

最苯的办法
假定原来名字为"abc,"新名为"abcde"
(defun c:rn( / ss)
(command "insert" "abc" '(0 0) "1""1" "0")
(command"explode"(entlast) "")
(setq ss(ssget "P"))
(command"-block" "abcde" '(0 0) ss "")
)
有属性时要适当改一下,insert后还要一个""
名称有可交互.

1300555555 · 发表于 2003-4-1 22:45:46

双击要改的,OK

eachy · 发表于 2003-4-2 00:46:50

最初由 gchen 发布
[B]我有两个内容是一样的块，我需要不同的块名。但我又不想定义两次，有没有好的方法直接更改我选择的块的名称?
在使用entmod这个函数的时候，要求块名事先定义，该如何事先定义呢？ [/B]

用 vla-put-name 可以改块名，还可以改成匿名块。

gchen · 发表于 2003-4-2 18:32:10

楼上的可以说清楚一点吗？我试了一下，不成功。帮助里是这么说的。
BlockRef: A block reference can only be assigned the name of a valid block definition in the drawing. Assigning a block reference a unique name will not automatically create a new block definition. To create a new block definition, use the Add method to add a new Block object to the Blocks collection
然而用ADD方法，不知道如何加入图元。能否指点。
如果修改block，则和rename命令是一样的了，全部块都都修改了块名。

aeo · 发表于 2003-4-2 22:31:49

最初由 eachy 发布
用 vla-put-name 可以改块名，还可以改成匿名块。

他要保留原来的!

其实有时用"command"也是很好的.
vla-put-name 是autodisk提供command也是autodesk提供,一样的.

eachy · 发表于 2003-4-3 00:30:38

理解错误。
我想既然都是块，块2做成个嵌套块（引用块1）更好，这样改1时2也同时改了。

gchen · 发表于 2003-4-4 11:23:07

多谢个位指点了，我自己写了个小程序。

(defun c:nb (/ old-cmdecho ents new_name insert_point)
(setq old-cmdecho (getvaf "cmdecho"))
(setvar "cmdecho" 0)
(ai_undo_push)
(setq ents (entsel "\nSelect block to change name :"))
(while (or (not ents)
(/= (cdr (assoc 0 (entget (car ents)))) "INSERT")
)
(princ "Nothing selected or object selected is not block.")
(setq ents (entsel "\nSelect block to change name :"))
)
(setq insert_point (cdr (assoc 10 (entget (car ents))))
new_name (getstring "\nInput new block name :")
)
(if (and (not (tblsearch "block" new_name)) (/= "" new_name))
(progn
(command "_.explode" ents)
(command "_.block" new_name insert_point "p" "")
(command "_.insert" new_name insert_point "" "" "")
)
(princ "\nInvalid block name or block name exist.")
)
(ai_undo_pop)
(setvar "cmdecho" old-cmdecho)
(princ)
)

(defun c:nb (/ old-cmdecho ents new_name insert_point) 
  (setq old-cmdecho (getvaf "cmdecho")) 
  (setvar "cmdecho" 0) 
  (ai_undo_push) 
  (setq ents (entsel "\nSelect block to change name :")) 
  (while (or (not ents) 
             (/= (cdr (assoc 0 (entget (car ents)))) "INSERT") 
             ) 
    (princ "Nothing selected or object selected is not block.") 
    (setq ents (entsel "\nSelect block to change name :")) 
    ) 
  (setq insert_point (cdr (assoc 10 (entget (car ents)))) 
        new_name     (getstring "\nInput new block name :") 
        ) 
  (if (and (not (tblsearch "block" new_name)) (/=  "" new_name)) 
    (progn 
      (command "_.explode" ents) 
      (command "_.block" new_name insert_point "p" "") 
      (command "_.insert" new_name insert_point "" "" "") 
      ) 
    (princ "\nInvalid block name or block name exist.") 
    ) 
  (ai_undo_pop) 
  (setvar "cmdecho" old-cmdecho) 
  (princ) 
  )

aeo · 发表于 2003-4-4 22:38:05

还是用command了
其实用copy paste会很简单的.

gchen · 发表于 2003-4-6 09:15:45

我确实有点不喜欢用command，因为所有的工作都交给AutoCAD去做了，不知道做了什么改变，不过既然自己无能为力了，也就只好这样了。：(
用copy paste不是原样复制吗？如何起到更名的作用呢？还请指点？

江南十笑 · 发表于 2018-10-18 15:38:06

gchen 发表于 2003-4-4 11:23
多谢个位指点了，我自己写了个小程序。

03年的代码了现在CAD2012不能用了

xink · 发表于 2018-11-29 20:37:53

GET 到了有用的东西，谢谢！

pengfei2010 · 发表于 2018-12-7 23:27:55

这个帖子也太老了吧，15年前的

杨张张 · 发表于 2020-2-28 21:27:46

没有更新啊，有点老了

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

[LISP程序]：如何更改块名。

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

相关帖子

Re: [LISP程序]：如何更改块名。

Re: Re: [LISP程序]：如何更改块名。