二次开发问题求助

nerogerman

现在做vlisp编程，可是今天却发现一个看起来简单，我却一直弄不明白的问题。想在这里请教下各位大侠。

我的程序是：
: M$ e/ H7 b! r0 Y(defun c:fddd(/ p1 p2 p3 p4)
8 A8 }( P1 q3 O7 p6 v0 r, `(setq l1ix 66.666)
3 u8 `7 s2 g* P0 l0 Z: Z(setq l1iy 66.666)
(setq l2ix 2066.666)
(setq l2iy 66.666)
7 J" F2 n$ F3 L3 Q, S6 @; x( B0 F(setq l1pi (list l1ix l1iy))
- a9 n+ U5 Y+ w- |/ Z- o( S(setq l2pi (list l2ix l2iy))
) T' \7 w8 s3 y# S0 }+ ^8 D& G1 ~+ Q2 m2 u(command "line" l1pi l2pi "")
- m0 a2 c7 C0 h- \(command "line" '(33.333 33.333) '(2033.333 33.333) "")
)

6 M$ k# z: A+ h% g* K/ ?
5 h" q- b( B! S! b1 b- U- M. T程序很简单吧，可是实际的运行效果却是在cad中画了两条重合的线，线的两个断点分别是（0,0）和（20,0）。我在调试中监测了变量12pi和12pi，分别是（66.666 66.666）和（2066.666 66.666）。太诡异了，有高手可以指点下我吗？

SunVei

(command "line" l1pi l2pi "")
(command "line" '(33.333 33.333) '(2033.333 33.333) "")
==>
, [( j6 b8 C3 ~. I(command "line" "None" l1pi "None" l2pi "")
. ]2 M9 |! t4 O3 e& `" w(command "line" "None" '(33.333 33.333) "None" '(2033.333 33.333) "")
& P$ D% Z. ]6 H  P$ v
) A1 ]/ D8 w" ~$ a3 Dor
(setvar "OsMode" 0)
$ u$ q+ a: ?" D(command "line" l1pi l2pi "")
(command "line" '(33.333 33.333) '(2033.333 33.333) "")

czboy

(setvar "OsMode" 0)
1 {5 F, h+ Q4 u1 Posmode 是什么作用

SunVei

帮助内如是说....

woaishuijia

出现这种现象的原因是对象捕捉在起作用,导致所画线的端点与附近其它现有对象的捕捉点重合了.
; L) K/ x. i) @( O3 N& c- ~2楼的第一种方法是用捕捉替代临时取消了对象捕捉,第二种方法是把"OsMode"系统变量改为0,关闭了对象捕捉.