[求助]高手请帮我看看我的程序错在哪里？

xstlf · 发表于 2004-12-17 10:46:00

本帖最后由作者于 2004-12-17 12:23:37 编辑

我初学LISP。就不知不觉被它迷上了。下面我编的，为什么到了，offset命令就出错呀？y提示offset找不到物体。 (defun C:wl1 ()
(setq p1 (getpoint "\n点选封闭区域内任一点："))
(setq a (getreal "\n输入偏移距离："))
(command "-boundary" "A" "O" "P" "I" "Y" "B" "E" "" p1 "")
(setq b (entget (entlast)))
(command "offset" a b p1)

(princ)
)

ZZXXQQ · 发表于 2004-12-17 12:27:00

这样就行了。

(defun C:wl1 ()
(setq p1 (getpoint "\n点选封闭区域内任一点："))
(setq a (getreal "\n输入偏移距离："))
(command "-boundary" p1 "")
(setq b (entlast))
(command "offset" a b p1 "erase" b "")
(princ)
)

xstlf · 发表于 2004-12-17 12:48:00

本帖最后由作者于 2004-12-17 16:14:56 编辑

谢谢，ZZXXQQ，你真好，真的好想好好谢谢你呀，可惜不知什么时候才能有这样的机会碰到你。对了。我发现(command "offset" a b p1 "erase" b "")中的，"erase" b ""好象不要也没关系。这有什么用呀？我知道了，呵呵。只是你的，少了。""应该是(command "offset" a b p1 "" "erase" b "")

xstlf · 发表于 2004-12-17 12:51:00

这是我最终修证后的程序，很好用。再次谢谢，ZZXXQQ。 (defun C:wl1 ()
(setq p1 (getpoint "\n点选封闭区域内任一点："))
(setq a (getreal "\n输入偏移距离："))
(command "-boundary" "A" "O" "P" "I" "Y" "B" "E" "" p1 "")
(setq b (entlast))
(command "offset" a b p1 "")
(command "erase" b "")
(princ)
)

xstlf · 发表于 2004-12-17 13:57:00

再请教一个问题。上面这程序运行后，马上结束了，要想让它结束后马上进入同样的提示你输入点，再次运行，而不必再输入一次ENTER键，怎么处理呀。

meflying · 发表于 2004-12-17 16:21:00

循环 (defun C:wl1 ()
(while (setq p1 (getpoint "\n点选封闭区域内任一点(回车退出)："))
(setq a (getreal "\n输入偏移距离："))
(command "-boundary" "A" "O" "P" "I" "Y" "B" "E" "" p1 "")
(setq b (entlast))
(command "offset" a b p1 "")
(command "erase" b "") )
(princ)
)

xstlf · 发表于 2004-12-17 17:22:00

谢谢meflying,原来这么简单呀。呵呵。送你一朵鲜花先来拍拍你马屁，以后多多关照。

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