cj52000 发表于 2009-7-19 10:42:00

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

cj52000 发表于 2009-7-19 11:28:00

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

cj52000 发表于 2009-7-20 19:03:00

各位来帮帮忙啊

淮上 发表于 2009-7-20 20:06:00

<p>;;不好意思未考虑坐标系转换</p><p>(defun c:tt (/ e1 e2 ins)<br/>&nbsp; (if (and (setq e1 (entsel "\n选择第一条直线: "))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e2 (entsel "\n选择第二条直线: "))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp; (setq e1 (entget (car e1)))<br/>&nbsp;&nbsp;&nbsp; (setq e2 (entget (car e2)))<br/>&nbsp;&nbsp;&nbsp; (setq ins (inters (cdr (assoc 10 e1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cdr (assoc 11 e1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cdr (assoc 10 e2))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cdr (assoc 11 e2))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nil<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (if (zerop (getvar "worlducs"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ins (trans ins 0 1))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (command "_.ucs" "_new" "_non" ins)<br/>&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)</p>

cj52000 发表于 2009-7-21 19:40:00

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

淮上 发表于 2009-7-21 22:13:00

<p>你标注的坐标是wcs点，参考14楼的的坐标系转换方法，查看trans函数用法</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ins (trans ins 0 1))<br/></p>

cj52000 发表于 2009-7-22 19:24:00

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

paulpipi 发表于 2020-10-10 18:48:35

页: 1 [2]
查看完整版本: [求助]求两条垂直线段的交点，并使UCS原点设在交点上？