(vlax-invoke obj 'intersectwith obj acextendnone)返回结果各异

zdqwy19

同样是spline文件，输入(vlax-invoke (setq obj (vlax-ename->vla-object(car(entsel)))) 'intersectwith obj acextendnone)，有的返回结果，有的返回nil.


(defun tt(m / a b l u i p)
  (setq a (vla-copy m))
  (vla-getboundingbox a 'l 'u)
  (setq b (mapcar '* '(0.5 0.5 0.5) (apply 'mapcar (cons '+ (mapcar 'vlax-safearray->list (list l u))))))
  (vla-move a (vlax-3d-point b) (vlax-3d-point '(0.0 0.0 0.0)))
  (setq b (mapcar '(lambda(x)(mapcar '+ x b))
                  (progn
                    (setq i (vlax-invoke a 'intersectwith a acextendnone))
                    (while (setq p (cons (list (car i) (cadr i) (caddr i)) p) i (cdddr i)))
                    p)))
  (vla-delete a)
  b)
(tt (vlax-ename->vla-object(car(entsel))))
可以使用了.

kozmosovia

曲线自己和自己的相交判断，相当于在判断曲线是否自相交。那肯定是自相交的有结果，不自相交的返回nil

自贡黄明儒

有没有可能坐标太大？？