二次开发问题求助

nerogerman

现在做vlisp编程，可是今天却发现一个看起来简单，我却一直弄不明白的问题。想在这里请教下各位大侠。
/ g3 ~# M$ z# U6 N8 a# {
; C9 |$ T3 ^+ ?8 @, ?- P我的程序是：
2 P' z! a7 k- m2 L, _$ B2 L3 ^(defun c:fddd(/ p1 p2 p3 p4)
  e8 X" Y2 b6 ~, f) m1 E(setq l1ix 66.666)
(setq l1iy 66.666)
(setq l2ix 2066.666)
(setq l2iy 66.666)
(setq l1pi (list l1ix l1iy))
(setq l2pi (list l2ix l2iy))
7 P0 I4 g/ ~! o; t" m7 }(command "line" l1pi l2pi "")
(command "line" '(33.333 33.333) '(2033.333 33.333) "")
9 q! E9 s, p; A. v' L)
0 l  i: @; w" I' X/ D
: L- X5 X. p5 ?+ A! J4 h, u5 J/ D' W
& P5 K- x; n, `. g. J. i2 N+ j' C程序很简单吧，可是实际的运行效果却是在cad中画了两条重合的线，线的两个断点分别是（0,0）和（20,0）。我在调试中监测了变量12pi和12pi，分别是（66.666 66.666）和（2066.666 66.666）。太诡异了，有高手可以指点下我吗？

SunVei

(command "line" l1pi l2pi "")
$ m& p8 b) n  t5 a7 i3 Z5 e0 L(command "line" '(33.333 33.333) '(2033.333 33.333) "")
==>
(command "line" "None" l1pi "None" l2pi "")
! H9 u) ^* }0 `(command "line" "None" '(33.333 33.333) "None" '(2033.333 33.333) "")

or
, X2 K0 ]; J& O! [. T# N(setvar "OsMode" 0)
* ~2 D# r# F* D4 ](command "line" l1pi l2pi "")
+ X0 B+ S% `" R9 a/ ](command "line" '(33.333 33.333) '(2033.333 33.333) "")

czboy

(setvar "OsMode" 0)
osmode 是什么作用

SunVei

帮助内如是说....

woaishuijia

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