直线延长到边界？

aws

请教下，这种该怎么写？
自带的EX命令，能不能实现，是不是我不会用？


lisp的目前思路是：
1、内部对象先，延长1万米。
2、利用边界再给它裁剪掉。（裁剪完，判断内部，外部，或许是个问题）（或者也会干扰到其他图元）
。。。
感觉有点太无脑了。

有没有其他好办法呢？

飞雪神光

这是延伸的方法

1. (setq sslst (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex (ssget)))))
   
2. (foreach ty sslst
   
3.         (setq pt1 (vlax-curve-getStartPoint ty))
   
4.         (setq pt2 (vlax-curve-getEndPoint ty))
   
5.         (command "_extend" "" (list ty pt1) "")
   
6.         (command "_extend" "" (list ty pt2) "")
   
7. )

(setq sslst (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex (ssget)))))<br /> (foreach ty sslst<br />         (setq pt1 (vlax-curve-getStartPoint ty))<br />         (setq pt2 (vlax-curve-getEndPoint ty))<br />         (command "_extend" "" (list ty pt1) "")<br />         (command "_extend" "" (list ty pt2) "")<br /> )

或者这样

1. (setq ty0(car(entsel "\n选择外框:")))
   
2. (setq sslst (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex (ssget)))))
   
3. (foreach ty sslst
   
4.   (setq pt1 (vlax-curve-getStartPoint ty))
   
5.   (setq pt2 (vlax-curve-getEndPoint ty))
   
6.   (command "_extend" ty0 "" (list ty pt1) "")
   
7.   (command "_extend" ty0 "" (list ty pt2) "")
   
8. )

(setq ty0(car(entsel "\n选择外框:")))<br /> (setq sslst (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex (ssget)))))<br /> (foreach ty sslst<br />   (setq pt1 (vlax-curve-getStartPoint ty))<br />   (setq pt2 (vlax-curve-getEndPoint ty))<br />   (command "_extend" ty0 "" (list ty pt1) "")<br />   (command "_extend" ty0 "" (list ty pt2) "")<br /> )

飞雪神光

我觉得是在起点和端点处用延伸就可以 或者 求交点后entmod

liuhe

不要用trim，而是用求交点，再缩回去

你有种再说一遍

两直线的点斜式联立方程求交点本身就是两个射线,曲线方程也可以和直线方程联立,但是样条曲线是多项式方程,这样太耗时了,所以曲线是先利用包围盒求交点减少运算量

xyp1964

求最近延伸点

aws

飞雪神光 发表于 2024-1-10 15:36
我觉得是在起点和端点处用延伸就可以 或者 求交点后entmod

一语惊醒梦中人，我想起来了，求交点可以求虚拟交点，只是我一直没用过，给忘了，哈哈，虚拟交点求出后，用entmake重新画就行了

aws

liuhe 发表于 2024-1-10 14:39
不要用trim，而是用求交点，再缩回去

感谢感谢，我明白了，谢谢