又来麻烦大家了，帮我看看程序哪里错了？

honboo · 发表于 2004-12-23 18:14:00

程序是想实现这样的功能：擦除一排写在图框里的图号，但是程序却只能擦除一个，请帮帮忙了！！哈哈 (setq os (getvar "osmode"))
(setvar "osmode" os) (defun c:ca()
(setq point1 (getpoint "\n请确定第一个对角点"))
(setq point2 (getpoint "\n请确定第二个对角点"))
(setq time (getstring "\n请输入图框数量："))
(setq tim (atoi time))
(setvar "osmode" 0)

(repeat tim
(setq clu (ssget "w" point1 point2))
(if (/= clu nil)
(command "._erase" clu "")
(princ "完成擦处！")
)
(setq poin1 (list (+ (car point1) 420) (cadr poin1)))
(setq poin2 (list (+ (car point2) 420) (cadr poin2)))
) (setvar "osmode" os)
)

xyp1964 · 发表于 2004-12-23 19:34:00

本帖最后由作者于 2004-12-25 19:41:29 编辑

试试：

(defun c:test ()
(setq os (getvar "osmode"))
(setq point1 (getpoint "\n请确定第一个对角点 : "))
(setq point2 (getpoint "\n请确定第二个对角点 : "))
(setq tim (getreal "\n请输入图框数量 : "))
;;(setq tim (atoi time))
(setvar "osmode" 0)
(command "undo" "BE")
(repeat tim
(setq clu (ssget "w" point1 point2))
(if (/= clu nil)
(command "._erase" clu "")
(princ "完成擦处！")
)
(setq point1 (list (+ (car point1) 420) (cadr point1)))
(setq point2 (list (+ (car point2) 420) (cadr point2)))
)
(command "undo" "E")
(setvar "osmode" os)
)

lockmyeye · 发表于 2004-12-23 19:35:00

<BR> (SETQ poin1 (LIST (+ (CAR point1) 420) (CADR poin1)))<BR> (SETQ poin2 (LIST (+ (CAR point2) 420) (CADR poin2)))

变量poin1和poin2，应该是point1和point2吧。

zhongys · 发表于 2004-12-23 20:10:00

(setq point2 (getpoint "\n请确定第二个对角点"))

改为

(setq point2 (getcorner "\n请确定第二个对角点")) 比较直观

honboo · 发表于 2004-12-24 09:10:00

本帖最后由作者于 2004-12-24 10:10:18 编辑

非常感谢各位，如果我图框是个块，而每个图框的图号在固定的位置，如何查找块，并且定位到图号的位置？？

不过好象更改后还是不能运行出来，只能擦除第一个！

meflying · 发表于 2004-12-24 11:54:00

把改好的程序和你的图给上来比较好点

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