LISP绘制三维图的难题

zhangguangc

各位高手请指点：

这是我的一个LSP文件，目的是主动绘制几何图形。下面是我要绘制一个正方体（10*10*10），然后绘制两个圆柱，

圆柱的底面中心点均在点（5，5，5），倾角均为30度，但一个倾向y轴正方向，一个倾向y轴负方向。

 (
 (command "_box" 0 "L" 10 10 10)
 (command "_ucs" "m" "5,5,5")
 (command "_ucs" "_z"  90)
 (command "_ucs" "_y"  30)
 (command "cylinder" 0  5  0.1)
 (command "_ucs" "_y" -30)
 (command "_ucs" "_z" -90)
 (command "_ucs" "m" " -5,-5,-5")
 (command "_ucs" "m" "5,5,5")
 (command "_ucs" "_z"  270)
 (command "_ucs" "_y"  30)
 (command "cylinder" 0  5  0.1)
 (command "_ucs" "_y" -30)
 (command "_ucs" "_z" -270)
 (command "_ucs" "m" " -5,-5,-5")
 )

可是我加载该LSP文件时，一般运行的结果不是我想要的，偶尔几次才可以。也就是说同样的文件，运行后的图像却不是相同的。不知道我这个错误在哪.请教高手指点！！！！！

byghbcx

加入

(setvar "osmode" 0)
(setvar "osnapcoord" 1)

试试

zml84

3. 加入
4. (setvar "osmode" 0)
5. (setvar "osnapcoord" 1)
6. (command "_box" 0 "L" 10 10 10)
7. (command "_ucs" "m" "5,5,5")
8. (command "_ucs" "_z"  90)
9. (command "_ucs" "_y"  30)
10. (command "_.cylinder" 0  5  0.1)
11. (command "_ucs" "_y" -30)
12. (command "_ucs" "_z" -90)
13. (command "_ucs" "m" " -5,-5,-5")
14. (command "_ucs" "m" "5,5,5")
15. (command "_ucs" "_z"  270)
16. (command "_ucs" "_y"  30)
17. (command "_.cylinder" 0  5  0.1)
18. (command "_ucs" "_y" -30)
19. (command "_ucs" "_z" -270)
20. (command "_ucs" "m" " -5,-5,-5")

加入 (setvar "osmode" 0) (setvar "osnapcoord" 1) (command "_box" 0 "L" 10 10 10) (command "_ucs" "m" "5,5,5") (command "_ucs" "_z"  90) (command "_ucs" "_y"  30) (command "_.cylinder" 0  5  0.1) (command "_ucs" "_y" -30) (command "_ucs" "_z" -90) (command "_ucs" "m" " -5,-5,-5") (command "_ucs" "m" "5,5,5") (command "_ucs" "_z"  270) (command "_ucs" "_y"  30) (command "_.cylinder" 0  5  0.1) (command "_ucs" "_y" -30) (command "_ucs" "_z" -270) (command "_ucs" "m" " -5,-5,-5")

zhangguangc

高手！问题真的解决了！

我看了一下setvar是设置变量的命令。

osmode--使用下列位码设置“对象捕捉”的运行模式：

0 NON（无）

1 END（端点）

2 MID（中点）

4 CEN（圆心）

8 NOD（节点）

16 QUA（象限点）

32 INT（交点）

64 INS（插入点）

128 PER（垂足）

256 TAN（切点）

512 NEA（最近点）

1024 QUI（快速）

2048 APP（外观交点）

4096 EXT（尺寸线）

8192 PAR（平行）

要指定多个对象捕捉方式，请输入各个位码值之和。例如，输入 3 指定“端点”(位码 1) 和“中点”(位码 2) 对象捕捉。输入 16383 指定全部对象捕捉方式。

使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通值，还将返回位码 16384 (0x4000)。这个附加值有助于开发人员编写 AutoCAD 应用程序并将此模式与“绘图设置”对话框关闭的对象捕捉模式区别开来。设置此位码值将关闭对象捕捉。在该位码值关闭时将 OSMODE 设置为其他值可以打开对象捕捉。

osnapcoord----控制是否从命令行输入坐标替代对象捕捉：
0 运行对象捕捉设置替代键盘输入坐标

1 键盘输入替代对象捕捉设置

2 键盘输入替代对象捕捉设置，脚本中的设置除外

但看了以上内容以后还是觉得不是很理解。

2 键盘输入替代对象捕捉设置，脚本中的设置除外

但看了以上内容以后还是觉得不是很理解。