关于更换块?

sccat

我想做这样一个功能:

点选一个块,如果块的名称是A1,在原位置将它变成A2.

可以直接改名字吗?还是要先把块的坐标读出来.删除块,再插入A2块?

块所在的层要不要解锁?Lisp有没有保存层状态的功能?先把层解锁了,再还原.

sccat

这个好像不行,执行以后连原来的块都看不到了.
请大虾们帮忙分析一下.

(defun c:changeblock()
(setq en1 (car (entsel "Get a Block")))
(setq ed1 (entget en1))
(if (= "INSERT"(cdr (assoc 0 ed1)))

(if (= "DG" (cdr (assoc 2 ed1)))
(progn
(setq ed1 (subst (cons 2 "DG2") (assoc 2 ed1) ed1))
(entmod ed1)
(entupd en1)
)
)

)
)

meflying

应该没有问题，不过最后一句多余，


要注意的是(if (= "DG" (cdr (assoc 2 ed1)))这句会敏感大小写，


你说“执行以后连原来的块都看不到了”，原来的块被替换了，当然看不到了，这不也是你自己的要求吗

sccat

敏感大小写怎么解决啊？

alin

(if (= "DG" (strcase (cdr (assoc 2 ed1))))

sccat

(setq ed1 (subst (cons 2 "DG2") (assoc 2 ed1) ed1))

这句就不行了，如果我的块名是dg2.

meflying

你自己测试一下就知道行不行了。。。


大小写明白的是LISP中的比较，而不是块名！

citykunan

rename命令

meflying

rename改的是块的名字，而楼主要求的是更换一个块，换一个块和把块换一个名字是不同的

sccat

meflying发表于2005-4-4 12:57:00rename改的是块的名字，而楼主要求的是更换一个块，换一个块和把块换一个名字是不同的

是不同的.

我现在把块用大小写不一致的就通不过.怎么办?我是从文件的一行取第一个单词,取出来的全是大写,但是我的块名有的是小写的.怎么办?