[求助]请看看这个程序什么问题

mmmjjj

按两点角度画长度不大于10的线，不知为何有时（特别是当d2距d1比较远的时候）竟会产生0长度的线（不是故意点d2与d1重合），刚刚开始学lisp，百思不得其解，恳请各位高手看看哪里有问题，谢谢！！ (defun C:sss (/ d1 d2 x1 x2 y1 y2 ang cd dx dy n)
(setq d1 (getpoint "\n点取点:"))
(setq n 1)
(while n
(setq d2 (getpoint "\n点取下一点:"))
(setq x1 (car d1))
(setq x2 (car d2))
(setq y1 (cadr d1))
(setq y2 (cadr d2))
(setq dx (- x2 x1))
(setq dy (- y2 y1))
(setq cd (sqrt (+ (* dx dx) (* dy dy))))
(setq ang (angle d1 d2))

(if (> cd 10.0)
(progn
(setq d2 (polar d1 ang 10.0))
(setq x2 (car d2))
(setq y2 (cadr d2))
(setq dx (- x2 x1))
(setq dy (- y2 y1))
(setq cd (sqrt (+ (* dx dx) (* dy dy))))
)
)
(command "line" d1 d2 "")
(setq d1 d2)
)
)

aaddff

把点的捕捉关掉试试

mmmjjj

还是不行，好象不关捕捉的事

meflying

把你的程序改了一下，你的程序本身没什么问题，估计还是捕捉点的问题，我改后的程序和你的是几乎完全一样的，就是if中计算cd值的步骤去掉了，因为它没有任何左右，因为它的值永远是10（你用polar函数得出p2，其距p1为10，p1、p2的距离肯定就是10了）

2. (defun C:sss (/ d1 d2 ang cd n)
3.    (setq d1 (getpoint "\n点取点:"))
4.    (setq d2 (getpoint "\n点取下一点:"))
5.    (while d2
6.        (setq cd (distance d1 d2))
7.        (setq ang (angle d1 d2))
8.        (if (> cd 10.0)
9.            (setq d2 (polar d1 ang 10.0))
10.        )
11.        (command "line" d1 d2 "")
12.        (setq d1 d2)
13.        (setq d2 (getpoint "\n点取下一点:"))
14.      )
15. )

(defun C:sss (/ d1 d2 ang cd n)    (setq d1 (getpoint "\n点取点:"))    (setq d2 (getpoint "\n点取下一点:"))    (while d2        (setq cd (distance d1 d2))        (setq ang (angle d1 d2))        (if (> cd 10.0)            (setq d2 (polar d1 ang 10.0))        )        (command "line" d1 d2 "")        (setq d1 d2)        (setq d2 (getpoint "\n点取下一点:"))      ) )

mmmjjj

谢谢飞哥指正！还望各位别见笑（脸红）。


我试了一下，在关掉捕捉之后就不会产生0长度线了，但不关捕捉还是会出现0长度线。





可是我想沿着已有的一条长长的底线来画这些不大于10的线，这样不打开捕捉（最近点）就不好点取底线上的点了，还请各位高手再看看有无解决的方法。谢谢！

meflying

使用系统变量osmode，设置为0则会关闭捕捉


或者使用entmake建立直线，而不用command命令

mmmjjj

entmake不会用，我改成下面的样子用不了，烦请再看看哪里不对（年后刚刚学，还很菜，请大家多多指教，万分感谢！） (defun C:sss (/ d1 d2 ang cd n)
(setq d1 (getpoint "\n点取点:"))
(setq d2 (getpoint "\n点取下一点:"))
(while d2
(setq cd (distance d1 d2))
(setq ang (angle d1 d2))
(if (> cd 10.0)
(setq d2 (entmake '((0."point")(0 (polar d1 ang 10.0)))))
)
(entmake '((0."line")(10 d1)(11 d2)))
(setq d1 d2)
(setq d2 (getpoint "\n点取下一点:"))
)
)

无痕

这样

2. (defun c:lin (/ ang pt)
3.    (vl-cmdf ".line" (setq pt (getpoint "\n起点:")))
4.    (while (setq ang (getangle pt "\n下一点:"))
5.        (vl-cmdf (setq pt (osnap (polar pt ang 1000) "none")))
6.    )(vl-cmdf)
7. )

(defun c:lin (/ ang pt)    (vl-cmdf ".line" (setq pt (getpoint "\n起点:")))    (while (setq ang (getangle pt "\n下一点:"))        (vl-cmdf (setq pt (osnap (polar pt ang 1000) "none")))    )(vl-cmdf) )

mmmjjj

to:无痕 你的程序好简洁！可惜我现在还看不太懂。 我把你程序中的1000改成10，用起来还有会产生0长度的直线，请再帮我看看，谢谢你！

kaixin119

把对象捕捉关了试试!,我用了用没发现0的线啊