[求助]求两条垂直线段的交点，并使UCS原点设在交点上？

cj52000

谢谢楼上的哥们，我是用04的CAD，加载用之后发现当你用第一次的时候，UCS的原点是在两条线的交点上，但是用之后交点就在别的位置上了，明天用别的版本CAD试试，希望你能继续关注！谢谢！

cj52000

就是第二次用的时候，原点就不在交点的位置上了，然后我再新打开一个图档，再用，第一次是可以，然后第二次再用就又不行了，以后就不行了，谢谢！

cj52000

各位来帮帮忙啊

淮上

;;不好意思未考虑坐标系转换

(defun c:tt (/ e1 e2 ins)
  (if (and (setq e1 (entsel "\n选择第一条直线: "))
           (setq e2 (entsel "\n选择第二条直线: "))
      )
  (progn
    (setq e1 (entget (car e1)))
    (setq e2 (entget (car e2)))
    (setq ins (inters (cdr (assoc 10 e1))
                      (cdr (assoc 11 e1))
                      (cdr (assoc 10 e2))
                      (cdr (assoc 11 e2))
                      nil
              )
    )
    (if (zerop (getvar "worlducs"))
      (setq ins (trans ins 0 1))
    )
    (command "_.ucs" "_new" "_non" ins)
  )
  )
  (princ)
)

cj52000

谢谢淮上的热心！能够使用，但是使用之后才发现自已忽视了一个问题，我只是找到两条线的交点为原点，标注时是以原点为0.00，但是标注时找不到原点的位置，如图所示，红色线条为两条垂直的直线，就算找到它们的交点，但是也标注不了0.00坐标，烦请淮上在程序上修改下，加上绿色线条所示的虚交点，绿色线条的长度不重要，主要是标注0.00坐标用，不好意思，谢谢！

淮上

你标注的坐标是wcs点，参考14楼的的坐标系转换方法，查看trans函数用法

      (setq ins (trans ins 0 1))

cj52000

谢谢！程序可以使用，我想说的是能不能加上绿色线条的虚交点，不然就算找到WCS，你也无法标出0.00坐标（因为那个WCS的点的位置上什么图元都没有),不知道我说的是否清楚

paulpipi