[求助]：[0220]将无名图块,或以命名图块改名程序问题?

xyz518mm

[求助]：[0220]将无名图块,或以命名图块改名程序问题?
小弟写了各程序
但无法变更名称
不知道哪里出错了
(defun c:tslisp20 ()
(setq ss (car(entsel "\n 选图块:")))
(setq newname (getstring "\n 新名称:"))
(setq endata (entget ss))
(setq oldlist (assoc 2 endata))
(setq newlist (cons 2 newname))
(setq endata (subst newlist oldlist endata))
(entmod endata)
(prin1))

烦请各位高手可以解答一下
谢谢~

另外是否有人写过将 物件 剪下后,
在使用右键贴上图块时,可以随机命名图块呢?

xyp1964

应该用rename命令改图块名称。

xyz518mm

我用 rename 还是找不到图块.
请问该怎样处理呢?

lazybug

(defun c:tslisp20 ()
    (setq ss (car (entsel "\n 选图块:")))
    (setq newname (getstring "\n 新名称:"))
    (setq endata (entget ss))
    (setq oldlist (assoc 2 endata))
   

    (command "rename" "b" (cdr oldlist) newname)


    (prin1)
)

xyz518mm

命名错误喔 因为
newname 属性为 STR
oldlist 属性为 LIST
不知道是否要转换属性呢
烦请解答一下
谢谢`

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;图块改名
    
15. (defun c:test ()
    
16.   (cmdla0)
    
17.   (setq        s1  (car(USEL 0 "INSERT" "图块"))
    
18.         new (USTR 7 "\n新名称" new NIL)
    
19.         old (cdr (assoc 2 (entget s1)))
    
20.   )
    
21.   (command "rename" "b" old new)
    
22.   (cmdla1)
    
23. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;图块改名<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq        s1  (car(USEL 0 "INSERT" "图块"))<br />         new (USTR 7 "\n新名称" new NIL)<br />         old (cdr (assoc 2 (entget s1)))<br />   )<br />   (command "rename" "b" old new)<br />   (cmdla1)<br /> )[/FONT]

xyz518mm

XYP1964 版主:
您提供的这程序,
似乎还是不能更改喔!
不知道是不是我用的将图块改无名的问题,
附上来请您研究看看.
麻烦您了.
谢谢~

(defun c:test ()
(cmdla0)
(setq s1 (car (USEL 0 "INSERT" "图块"))
     new (USTR 7 "\n新名称" new NIL)
     old (cdr (assoc 2 (entget s1)))
)
(command "rename" "b" old new)
(cmdla1)
)

将图块改无名:
(defun c:LOK (/ BLK BLKDEF BLKREF)
(vl-load-com)
(while
(or (not (setq BLK (car (entsel "\n 选择要改为匿名块的图块 :"))))
(progn
(setq BLKREF (vlax-ename->vla-object BLK))
(not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
) ;_(progn
) ;_(or (not
) ;_(while
(setq BLKDEF (vla-item
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vla-get-name BLKREF)))
(vla-put-name BLKDEF "*U")
(vlax-release-object BLKREF)
(vlax-release-object BLKDEF)
(prin1))

lazybug

答5楼，
newname 属性为 STR—〉“新名称”
oldlist 属性为 LIST—〉（2  . “块的原名称”）
(command "rename" "b" (cdr oldlist) newname)—〉(command "rename" "b" (cdr （2  . “块的原名称”） newname)

另外,我又运行了一遍,可以正常改变图块名称.请问你运行过没有?还是只是用眼睛判断了一下"命名错误喔"

xyz518mm

lazybug  请您也试试看用以下这程序
再用改名的程序看看
就知道是怎样了~

将图块改无名程序:
(defun c:LOK (/ BLK BLKDEF BLKREF)
(vl-load-com)
(while
(or (not (setq BLK (car (entsel "\n 选择要改为匿名块的图块 :"))))
(progn
(setq BLKREF (vlax-ename->vla-object BLK))
(not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
) ;_(progn
) ;_(or (not
) ;_(while
(setq BLKDEF (vla-item
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vla-get-name BLKREF)))
(vla-put-name BLKDEF "*U")
(vlax-release-object BLKREF)
(vlax-release-object BLKDEF)
(prin1))

xyp1964

有啥问题：

2. [FONT=courier new](defun c:test (/ BLK BLKDEF BLKREF)
   
3.   (vl-load-com)
   
4.   (while
   
5.     (or        (not (setq BLK (car (entsel "\n 选择要改为匿名块的图块 :"))))
   
6.         (progn
   
7.           (setq BLKREF (vlax-ename->vla-object BLK))
   
8.           (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
   
9.         )
   
10.     )
    
11.   )
    
12.   (setq        BLKDEF (vla-item
    
13.                  (vla-get-blocks
    
14.                    (vla-get-activedocument (vlax-get-acad-object))
    
15.                  )
    
16.                  (vla-get-name BLKREF)
    
17.                )
    
18.   )
    
19.   (vla-put-name BLKDEF "*U")
    
20.   (vlax-release-object BLKREF)
    
21.   (vlax-release-object BLKDEF)
    
22.   (prin1)
    
23. )[/FONT]

[FONT=courier new](defun c:test (/ BLK BLKDEF BLKREF)<br />   (vl-load-com)<br />   (while<br />     (or        (not (setq BLK (car (entsel "\n 选择要改为匿名块的图块 :"))))<br />         (progn<br />           (setq BLKREF (vlax-ename->vla-object BLK))<br />           (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))<br />         )<br />     )<br />   )<br />   (setq        BLKDEF (vla-item<br />                  (vla-get-blocks<br />                    (vla-get-activedocument (vlax-get-acad-object))<br />                  )<br />                  (vla-get-name BLKREF)<br />                )<br />   )<br />   (vla-put-name BLKDEF "*U")<br />   (vlax-release-object BLKREF)<br />   (vlax-release-object BLKDEF)<br />   (prin1)<br /> )[/FONT]

测试结果：
Command: lcs
选择实体 :
((-1 . <Entity name: 7ef6ca28>) (0 . INSERT) (330 . <Entity name: 7ef74cf8>) (5
. 78AD) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 .
AcDbBlockReference) (2 . di) (10 103716.0 23671.1 0.0) (41 . 1.0) (42 . 1.0)
(43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
Command:
Command: test
选择要改为匿名块的图块 :
Command:
Command: lcs
选择实体 :
((-1 . <Entity name: 7ef6ca28>) (0 . INSERT) (330 . <Entity name: 7ef74cf8>) (5
. 78AD) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 .
AcDbBlockReference) (2 . *U7) (10 103716.0 23671.1 0.0) (41 . 1.0) (42 . 1.0)
(43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

结果：块名由 di 改为 *U7

xyz518mm

最初由 xyp1964 发布
[B]有啥问题：
[CODE](defun c:test (/ BLK BLKDEF BLKREF)
  (vl-load-com)
  (while
    (or        (not (setq BLK (car (entsel "\n 选择要改为匿名块的图块 :"))))
        (progn
          (setq BLKREF (vla... [/B]

之后再使用重新命名的程序
(defun c:tslisp20 ()
(setq ss (car (entsel "\n 选图块:")))
(setq newname (getstring "\n 新名称:"))
(setq endata (entget ss))
(setq oldlist (assoc 2 endata))
(command "rename" "b" (cdr oldlist) newname)
(prin1))
就会发现似乎不能更改其名称了
不知道您是否也会发生此问题呢?

lazybug

rename无法操作匿名块
同样，也无法将普通块改为匿名块

LUCAS

查看
http://www.xdcad.net/forum/showthread.php?s=&threadid=519029