[求助]再请教一个问题

mcxiangxin

为什么我用lisp将一个圆编成块后就不见了.就像这像写的

(defun c:cv (/ pt)

(setvar "cmdecho" 0)

(setq pt (getpoint "\n specify center point:"))

(command "circle" pt 5)

(command "block"  "c" pt (entlast) "")

(princ)

)

有没有什么最简单的方法解决这个问题呀?help me

Student

在：

(command "block"  "c" pt (entlast) "")

(princ)

之间添加：

(command "oops")

即可。供参考。

carrot1983

mcxiangxin发表于2008-1-15 20:05:00为什么我用lisp将一个圆编成块后就不见了.就像这像写的(defun c:cv (/ pt)(setvar \"cmdecho\" 0)(setq pt (getpoint \"\n specify center point:\"))(command \"circle\" pt 5)(command \"blo

如果你发现不见了，最简单的方法，再插入喽。。。

mcxiangxin

我知道插入可以,还想问一下有没有其他方法呀

mcxiangxin

oops是恢复上一次用erase block. wblock删除的对象.加了这个命令,还是不行呀,因为他不是一个块.

还有哪个高手有其他方法没有?thanks

caoyin

或者：
...
(command "block"  "c" pt (setq e (entlast)) "")
(entdel e)
...

2 楼的方法是可以的。不过楼主的程序有问题－－块重新定义未考虑（或设置系统变量EXPERT＝2）

mcxiangxin

高见,我试下

mcxiangxin

怎样把这个圆做成匿名块呀?有哪位大侠知道吗?

ZZXXQQ

mcxiangxin发表于2008-1-19 10:39:00怎样把这个圆做成匿名块呀?有哪位大侠知道吗?

这个问题N年前就有结果了。无痕版主不是已经回答了吗。叫你在论坛中搜索“匿名块”或“无名块”，你怎么不搜下看看？

mcxiangxin

哦,谢谢