inters的问题

mmh1

(defun c:jm2()
  (vl-load-com)
  (setvar "osmode" 0)
  (setq n 0)
  (setq en (entsel))
  (setq pen (car(cdr en)))
  (setq p0 (getpoint pen “方向:"))
  (setq ss (ssget "f" (list p0 pen)))
  (while(equal (setq en2 (ssname ss n)) (car en))
    (setq ss (ssdel en2 ss))
    (setq n (1+ n))
    )
  (setq en2 (ssname ss 0))
  (setq endata (entget en2))
  (setq p3 (cdr(assoc 10 endata)))
  (setq p4 (cdr(assoc 11 endata)))
  ;(command "line" pen p0 p3 p4 "")测试点的存在情况
  (setq pj (inters pen p0 p3 p4))
  (setq p1 (vlax-curve-getClosestPointTo (vlax-ename->vla-object (car en)) pj t));计算垂点
  (setq dx (distance p1 pj))
  )

在测试两条平行垂线时，pj点总是为空，出错！不知道为什么

自贡黄明儒

(setq pj (inters pen p0 p3 p4))两条两垂直的线,肯定没有交点了,这时你可以取其中一点
(if  (setq pj (inters pen p0 p3 p4)) nil (setq pj pen))

mmh1

自贡黄明儒 发表于 2013-5-15 10:27
(setq pj (inters pen p0 p3 p4))两条两垂直的线,肯定没有交点了,这时你可以取其中一点
(if  (setq pj (i ...

用(command "line" pen p0 p3 p4 "")可以看出，两条线是相交的

mmh1

我测其他两条水平线的时候，不管偏移的还是复制的，基本上都发现什么问题，就是附件cad的两条线总是出错！

自贡黄明儒

mmh1 发表于 2013-5-15 10:37
我测其他两条水平线的时候，不管偏移的还是复制的，基本上都发现什么问题，就是附件cad的两条线总是出错！

可能是空间线

mmh1

自贡黄明儒 发表于 2013-5-15 10:46
可能是空间线

我自己在平面上画的，不太可能是空间线，而且再沿着这两条线描出来的线也是一样的情况！汗，真不知道什么原因！

自贡黄明儒

看了你的图,是两条平行的线,当然没有交点.

mmh1

自贡黄明儒 发表于 2013-5-15 11:15
看了你的图,是两条平行的线,当然没有交点.

我这这么做的，先选择线，然后垂直拉出

mmh1

自贡黄明儒 发表于 2013-5-15 11:15
看了你的图,是两条平行的线,当然没有交点.

谢啦，查看图元发现是空间线，可能是复制过来的线的问题，谢啦！