二次开发问题求助

nerogerman

现在做vlisp编程，可是今天却发现一个看起来简单，我却一直弄不明白的问题。想在这里请教下各位大侠。
4 O, d3 o1 D9 H9 B: g" C! V) L* q
我的程序是：
1 m0 r9 Q; f/ c( R(defun c:fddd(/ p1 p2 p3 p4)
(setq l1ix 66.666)
(setq l1iy 66.666)
; _# b- |' Q! n8 M; ]6 k(setq l2ix 2066.666)
(setq l2iy 66.666)
(setq l1pi (list l1ix l1iy))
( m2 u; @  z; N1 Z5 i6 a9 a(setq l2pi (list l2ix l2iy))
9 ^2 T% I  Y0 [/ B6 ~8 X( x% \& Z5 D(command "line" l1pi l2pi "")
(command "line" '(33.333 33.333) '(2033.333 33.333) "")
)

4 ~6 A  P2 w4 n1 B) |7 j
$ f) ^- X7 V3 a, r5 v# V, R程序很简单吧，可是实际的运行效果却是在cad中画了两条重合的线，线的两个断点分别是（0,0）和（20,0）。我在调试中监测了变量12pi和12pi，分别是（66.666 66.666）和（2066.666 66.666）。太诡异了，有高手可以指点下我吗？

SunVei

(command "line" l1pi l2pi "")
: F; E& c# E7 ?, I8 T+ B(command "line" '(33.333 33.333) '(2033.333 33.333) "")
! ^2 _+ e8 n/ D+ g5 s8 `==>
8 Z/ j0 c: C$ w" |9 ?$ B2 H(command "line" "None" l1pi "None" l2pi "")
(command "line" "None" '(33.333 33.333) "None" '(2033.333 33.333) "")

! ^9 _, b0 k0 H8 L* yor
. n3 a- X# q) G" y(setvar "OsMode" 0)
(command "line" l1pi l2pi "")
(command "line" '(33.333 33.333) '(2033.333 33.333) "")

czboy

(setvar "OsMode" 0)
- \9 C3 \" X! Zosmode 是什么作用

SunVei

帮助内如是说....

woaishuijia

出现这种现象的原因是对象捕捉在起作用,导致所画线的端点与附近其它现有对象的捕捉点重合了.
2楼的第一种方法是用捕捉替代临时取消了对象捕捉,第二种方法是把"OsMode"系统变量改为0,关闭了对象捕捉.