[LISP程序]：连续两个“command”命令引出的问题

bdgxhmldzj · 发表于 2006-3-31 21:21:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如下程序：
(setq p0 '(100 100))
(setq p1 '(100 200))
(setq p2 '(100 0))
(command "circle" p0 100)
(command "line" p1 p2 "")
运行后，却只有圆，直线画不出来。命令行上提示为：
已在 (100.0000, 100.0000, 0.0000) 创建零长度直线。
请教这是为什么？
而如果把两个“command”命令前后顺序颠倒过来，如下：
(setq p0 '(100 100))
(setq p1 '(100 200))
(setq p2 '(100 0))
(command "line" p1 p2 "")
(command "circle" p0 100)
运行后，却发现圆的中心点不是p0，而是直线的起点p1？
这是怎么回事？
到底问题出在哪呀？

wwwdh · 发表于 2006-3-31 21:48:24

这个问题曾经困惑我很久，其实是捕捉问题。
(setq old_osmode (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq p0 '(100 100))
(setq p1 '(100 200))
(setq p2 '(100 0))
(command "line" p1 p2 "")
(command "circle" p0 100)
(setvar "OSMODE" old_osmode )
初学者经常会碰到类似问题，共同进步。。。

xyz2004 · 发表于 2006-3-31 22:01:06

哈哈我也遇到过后来在我的程序中一般开始就像2楼的那样把osmode 保存清零这是个应有的好习惯

bdgxhmldzj · 发表于 2006-3-31 23:56:11

谢谢啦！！

xiaoyue663 · 发表于 2006-4-4 16:22:21

这种方法也能达到目的,仅供参考
(command "-osnap" "off")
(setq p0 '(100 100))
(setq p1 '(100 200))
(setq p2 '(100 0))
(command "line" p1 p2 "")
(command "circle" p0 100)
(command "-osnap" "int")
(command "-osnap" "end")
此后可以把想要的捕捉模式逐个添加,各捕捉模式如下
END（端点）
CEN（圆心）
TAN（切点）
MID（中点）
NOD（节点）
NEA（最近点）
INT（交点）
QUA（象限点）
PAR（平行）
EXT（延伸）
INS（插入点）
APP（外观交点）
PER（垂足）

win-gf · 发表于 2006-4-5 09:46:16

我终于知道为什么我在使用某一个lisp程序中如果出错退出我得捕捉被清零了呵呵

ljpnb · 发表于 2006-4-5 10:55:51

最初由 xiaoyue663 发布
[B]这种方法也能达到目的,仅供参考
(command "-osnap" "off")
(setq p0 '(100 100))
(setq p1 '(100 200))
(setq p2 '(100 0))
(command "line" p1 p2 "")
(command "circle" p0 100)
(command "-osnap" "int")
... [/B]

这种方式倒不如
(setvar "osmode" 0)和(setvar "osmode" x)其中X为相应的值
来得方便

ZJ2091 · 发表于 2006-4-5 15:56:58

是啊，在编程的时候要严谨些～

Jackie119119 · 发表于 2006-4-6 23:05:03

获益匪浅

cy956 · 发表于 2006-4-6 23:26:56

entmake可以更直接

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

[LISP程序]：连续两个“command”命令引出的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子