visual lisp 利用循环命令画点，总是出现重复

maodan2009

各位大师，小弟刚学visual lisp，遇到一个自认为奇怪的问题，求指导

利用循环命令画100个点，每个点的纵坐标间距为10，横坐标不变。

这个貌似挺简单。就几句代码，如下：
(defun c:haha (/ y  )

        (repeat 100
                 (setq y(+ y 10))
                (command "point" (list 0 y) "")
        ）
）


我希望画出的是100个y方向间距为10的点，结果运行后，屏幕上只出现几十个点。 我选择了其中几个查看，才发现，好多点发生了重合。实际数量是100个没错，但是好多点重合在了同一位置。不明白为什么。请指导。

xgr

设置捕捉为关闭状态

maodan2009

xgr 发表于 2013-9-12 19:55
设置捕捉为关闭状态

我去。神一样的回复。。我去试试，万分感谢，万分感谢。

xyp1964

2. (defun c:tt (/ y)
   
3.   (setq y 0)
   
4.   (repeat 100
   
5.     (setq y (+ y 10))
   
6.     (command "point" "non" (list 0 y))
   
7.   )
   
8.   (princ)
   
9. )

(defun c:tt (/ y)<br />   (setq y 0)<br />   (repeat 100<br />     (setq y (+ y 10))<br />     (command "point" "non" (list 0 y))<br />   )<br />   (princ)<br /> )

maodan2009

xyp1964 发表于 2013-9-12 20:10

万分感谢，我这就去尝试。刚才楼上让我关闭捕捉的办法我尝试了，非常管用。我也去试试您的办法。再次感谢。

xhq1954425

(defun c:tt ( / y  )
        (setvar "osnapcoord" 1  )
        (setvar "PDMODE" 35 )
        (setq y 0)
        (repeat 10
                (command "point" (list 0 y) "")
                (setq y(+ y 10))
        )
)

maodan2009

xhq1954425 发表于 2013-9-12 20:16
(defun c:tt ( / y  )
        (setvar "osnapcoord" 1  )
        (setvar "PDMODE" 35 )

非常感谢，非常感谢。 我去试试。