二次开发问题求助

nerogerman

现在做vlisp编程，可是今天却发现一个看起来简单，我却一直弄不明白的问题。想在这里请教下各位大侠。
* w6 [. B9 j. x& k
我的程序是：
(defun c:fddd(/ p1 p2 p3 p4)
(setq l1ix 66.666)
(setq l1iy 66.666)
1 r. y- c$ {# j(setq l2ix 2066.666)
, u( f: a- y0 M9 Y% g6 R& ~0 j6 T(setq l2iy 66.666)
5 J; c' d! l) p# i(setq l1pi (list l1ix l1iy))
- a" `  ^& L1 ?5 }5 T7 m(setq l2pi (list l2ix l2iy))
(command "line" l1pi l2pi "")
(command "line" '(33.333 33.333) '(2033.333 33.333) "")
% U+ a1 f( P2 M! S: {)


程序很简单吧，可是实际的运行效果却是在cad中画了两条重合的线，线的两个断点分别是（0,0）和（20,0）。我在调试中监测了变量12pi和12pi，分别是（66.666 66.666）和（2066.666 66.666）。太诡异了，有高手可以指点下我吗？

SunVei

(command "line" l1pi l2pi "")
' W7 ~" F; L$ `5 d: |/ G(command "line" '(33.333 33.333) '(2033.333 33.333) "")
: x& Y1 r% V8 p* _2 ]==>
( \" ?7 Q2 @- j(command "line" "None" l1pi "None" l2pi "")
4 W7 c5 o. a9 x- c9 x" K(command "line" "None" '(33.333 33.333) "None" '(2033.333 33.333) "")

or
0 s- y0 \6 g0 u8 ~  T3 {, e& h(setvar "OsMode" 0)
4 I0 D, m4 j/ {4 n(command "line" l1pi l2pi "")
6 V7 S8 t& E9 i6 i: ^; R(command "line" '(33.333 33.333) '(2033.333 33.333) "")

czboy

(setvar "OsMode" 0)
1 x7 S, o# Q: P% t* Y- sosmode 是什么作用

SunVei

帮助内如是说....

woaishuijia

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