为何块不能改名。

zhongys

我想改变块的名称，但是CAD好像不能这样改名，如用CAD内带的"READNAME"命令则可以改变。请问此程式是什么问题
(defun c:kk()
(setq en (entget (CAR (entsel "\n请选择块: "))))
(while (= NIL en) (setq en (entget (CAR (entsel "\n请选择块: ")))))
(setq name (cdr (assoc 0 en)))
(progn
(if (= "INSERT" name)
(progn
(setq old_name (assoc 2 en))
(setq new_name (cons 2 (getstring "\n请输入新的块名: ")))
(setq ssdata (subst new_name old_name en))
(entmod ssdata)
)
)
(if (/= "INSERT" name)
(alert "你选择的不是块,请选择块!!!")
)
)
(princ)
)

meflying

块是BLOCK对象，是存在DWG数据库中的，是看不到的，你改的只是INSERT对象，INSERT只是引用了块，它本身不是块，

zhongys

((-1 . <Entity name: 4b42660>) (0 . "INSERT") (330 . <Entity
name: 4b3f410>) (5 . "2772C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8
. "0") (100 . "AcDbBlockReference") (2 . "G25-GB") (10 -1205.99 1938.97 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)) 如果我要把"G25-GB"的名字改为其它名称该如何修改,谢谢

龙龙仔

如用CAD内带的"RENAME"命令则可以改变。----你不是知道了吗?

meflying

zhongys发表于2004-12-17 9:12:00((-1 . <Entity name: 4b42660>) (0 . \"INSERT\") (330 . <Entity name: 4b3f410>) (5 . \"2772C\") (100 . \"AcDbEntity\") (67 . 0) (410 . \"Model...

看来我的话你一点都没看明白。。。再仔细琢磨一下BLOCK对象和INSERT对象的区别吧

zhongys

谢谢

freeok

zhongys 发表于 2004-12-17 13:41
谢谢

您的改块名改好没？可否用来学习下？谢谢