求助 pline 命令画8边形异常

星辰缘

请教一下大神们，刚刚入门。

简单的pline 命令画了一个8边形，软件刚刚打开的时候输入lisp后，8边形是正常的。

将8边形移动到旁边的位置，再运行一下同样的命令，8边形就变成5边形了。


这个命令看起来挺简单的，没有什么特殊的，为什么运行2次之后就变了呢？
与图形栅格是否打开 有关么？
用的是2016中文版。

2. (defun c:ppaa()
   
3. 
   
4. ; create drawing layer
   
5. (command "layer" "m" "strip" "c" 4 "strip" "l" "continuous" "strip" "")
   
6. 
   
7. (setvar "clayer" "strip")
   
8. (command "plinewid" 0 0 "")
   
9. (setq p1 '(-120.00 38.25))
   
10. (setq p2 '(-118.75 38.75))
    
11. (setq p3 '(118.75 38.75))
    
12. (setq p4 '(120.00 38.25))
    
13. (setq p5 '(120.00 -38.25))
    
14. (setq p6 '(118.75 -38.75))
    
15. (setq p7 '(-118.75 -38.75))
    
16. (setq p8 '(-120.00 -38.25))
    
17. (command "pline" p1 p2 p3 p4 p5 p6 p7 p8 p1 "")
    
18. 
    
19. )

(defun c:ppaa()<br /> <br /> ; create drawing layer<br /> (command "layer" "m" "strip" "c" 4 "strip" "l" "continuous" "strip" "")<br /> <br /> (setvar "clayer" "strip")<br /> (command "plinewid" 0 0 "")<br /> (setq p1 '(-120.00 38.25))<br /> (setq p2 '(-118.75 38.75))<br /> (setq p3 '(118.75 38.75))<br /> (setq p4 '(120.00 38.25))<br /> (setq p5 '(120.00 -38.25))<br /> (setq p6 '(118.75 -38.75))<br /> (setq p7 '(-118.75 -38.75))<br /> (setq p8 '(-120.00 -38.25))<br /> (command "pline" p1 p2 p3 p4 p5 p6 p7 p8 p1 "")<br /> <br /> )

夏生生

星辰缘 发表于 2021-11-10 08:15
加了这一条之后确实OK了，能解释一下是什么原因导致的么？

用command且有点输入的时候，一般要关闭捕捉，如不关闭，程序可能会捕捉到输入点附近图元的相关捕捉点

星辰缘

chenxiy825 发表于 2021-11-10 08:21
(SETVAR "OSMODE"0)这个是关闭捕捉

关闭捕捉？

那也解释不了第一次是OK，  第二次就偏移了？

cghdy

command模拟你在CAD上手绘的情形，当你的光标接近你设置的捕捉点类型时，就会自动捕捉上该点。你用entmake绘制就不会出现这个问题。

夏生生

(SETVAR "OSMODE"0)试试

Myday

创建图层的问题

星辰缘

夏生生 发表于 2021-11-9 17:49
(SETVAR "OSMODE"0)试试

加了这一条之后确实OK了，能解释一下是什么原因导致的么？

星辰缘

Myday 发表于 2021-11-9 19:05
创建图层的问题

图层创建导致的？

那正确的创建图层方式应该是什么样子的？

bssurvey

在2008測試沒問題，會不會是鎖點模式開著?

chenxiy825

(SETVAR "OSMODE"0)这个是关闭捕捉

烟盒迷唇

捕捉影响呗