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

mmmjjj

kaixin119发表于2004-2-8 13:17:00把对象捕捉关了试试!,我用了用没发现0的线啊

请看第5楼要求

无痕

3. (defun c:lin (/ ms ang pt0 pt1)
4.    (vl-load-com)
5.    (setq ms (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
6.   pt0 (getpoint "\n起点:"))
7.    (while (setq ang (getangle pt0 "\n下一点:"))
8.        (setq pt1 (polar pt0 ang 1000))
9.        (vla-addline ms (vlax-3d-point pt0)(vlax-3d-point pt1))
10.        (setq pt0 pt1)
11.    )
12. )

(defun c:lin (/ ms ang pt0 pt1)    (vl-load-com)    (setq ms (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))   pt0 (getpoint "\n起点:"))    (while (setq ang (getangle pt0 "\n下一点:"))        (setq pt1 (polar pt0 ang 1000))        (vla-addline ms (vlax-3d-point pt0)(vlax-3d-point pt1))        (setq pt0 pt1)    ) )

ljcgq

看这样行不... (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))
)
(setq os(getvar "osmode"))
(command "osnap" "off")
(command "line" d1 d2 "")
(setvar "osmode" os)
(setq d1 d2)
(setq d2 (getpoint "\n点取下一点:"))
)
)

mmmjjj

谢谢楼上二位，两位的程序都已解决0长度线问题，多谢！多谢！