刚接触lisp 拉伸问题高手指点下

joe3612 · 发表于 2011-7-22 19:34:28

本帖最后由 joe3612 于 2011-7-22 19:36 编辑

写了个类似拉伸的命令，下面是其中一段，但是不知道咋的，执行后没有变化，高手指点下。
(defun c:yy ()
(setq p1 (getpoint "\n第1点")
p2 (getcorner p1 "\n第2点")
p3 (getpoint "\n基点")
p4 (list (car p3) (- (cadr p3) 0.5))
)
(command ".STRETCH" "c" p1 p2 ""　p3 p4)
)

还写有一个，其中P1 ,P2 也是通过其他点算出来的，在P4中如果把y在p3的Y值减0.5以上可以成功拉伸。但是0.5以下则不行。很郁闷，哪里错了啊，高手指教。

zhynt · 发表于 2011-7-22 21:57:15

感觉是捕捉的问题，将捕捉关闭试试。

joe3612 · 发表于 2011-7-22 22:26:33

关闭捕捉后成功了，厉害，谢谢

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

[基础] 刚接触lisp 拉伸问题高手指点下