請教關於求曲線交點程序出現的問題

BDYCAD

我近來發現下面這個求出交點的程序有個問題, 就是我在一個程序里面多次調用時. 這個程序就會使程序開頭的(command ;|MSG0|;".undo" ;|MSG0|;"_group")設置值失效. 因為我在一個程序里面多次調用這個求交點的程序后. 運行的程序結束后用戶不能用一次undo命返回原位. 在不明原因的情況下. 請各位大俠多多指點. 謝謝! (defun INTERSECTpoint2004-04-06 ( ss / SSL AOBJ1 AOBJ2 N1 N2 IPTS A N NN HOLDOSMODE ); 找出交點
(setq N1 0 SSL (sslength SS))
(while (< N1 (1- SSL))
(setq AOBJ1 (ssname SS N1)
AOBJ1 (vlax-ename->vla-object AOBJ1) N2 (1+ N1))
(while (< N2 SSL)
(setq AOBJ2 (ssname SS N2)
AOBJ2 (vlax-ename->vla-object AOBJ2)
IPTS (vla-intersectwith AOBJ1 AOBJ2 0 )
IPTS (vlax-variant-value IPTS) )
(if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn
(setq IPTS(vlax-safearray->list IPTS) )
(while (> (length IPTS) 0)
(setq PTS (cons (list (car IPTS);交點的點表為PTS變量值
(cadr IPTS)(caddr IPTS)) PTS )
IPTS (cdddr IPTS)))))
(setq N2 (1+ N2)))
(setq N1 (1+ N1)))
(princ))

meflying

把你的程序给出来。。。


另外，你这个求交点的程序似乎不正确