两条直线如何在直线的两个y值偏小的端点生成一条连接直线

世人皆醉

2. (defun c:f1 ()
   
3.    (setq ss (ssget '((0 . "line")))) ;“,” 逻辑或，对象类型可多选，名称用 “,” 分
   
4.   ;隔。例如，创建直线和文本的选择集,框选对象后，将只有文本被选中（亮显）并加入选择集。  
   
5.   (setq line1 (entget (ssname ss 0)));获取直线1的图元信息
   
6.   (setq line2 (entget (ssname ss 1)))
   
7.   (setq y1 (cdr (assoc 10 line1)))
   
8.   (setq y2 (cdr (assoc 10 line2)))

(defun c:f1 ()<br />    (setq ss (ssget '((0 . "line")))) ;“,” 逻辑或，对象类型可多选，名称用 “,” 分<br />   ;隔。例如，创建直线和文本的选择集,框选对象后，将只有文本被选中（亮显）并加入选择集。  <br />   (setq line1 (entget (ssname ss 0)));获取直线1的图元信息<br />   (setq line2 (entget (ssname ss 1)))<br />   (setq y1 (cdr (assoc 10 line1)))<br />   (setq y2 (cdr (assoc 10 line2)))

后面代码该咋写？求大佬完善

yaojing38

2. 
   
3. (defun c:f1 ( / a b line1 line2 ps1 ps2 pt1 pt2 ss)
   
4.         (vl-load-com)
   
5.    (setq ss (ssget '((0 . "*line")))) ;“,” 逻辑或，对象类型可多选，名称用 “,” 分
   
6.   ;隔。例如，创建直线和文本的选择集,框选对象后，将只有文本被选中（亮显）并加入选择集。  
   
7.   (setq line1  (ssname ss 0));获取直线1的图元信息
   
8.   (setq line2  (ssname ss 1))
   
9.         (setq PS1  (HH:PtLists line1))
   
10.         (setq PS2  (HH:PtLists line2))
    
11.         (setq Pt1 (car (vl-sort PS1 '(lambda(a b) (< (cadr a) (cadr b))))))
    
12.         (setq Pt2 (car (vl-sort PS2 '(lambda(a b) (< (cadr a) (cadr b))))))
    
13.         (command "line" PT1 pt2 "")
    
14.         (print)
    
15.         )
    
16. (defun HH:PtLists (en)       
    
17.         (list
    
18.         (vlax-curve-getstartpoint (vlax-ename->vla-object en))
    
19.         (vlax-curve-getendpoint (vlax-ename->vla-object en))
    
20.   )
    
21. )
    

<br /> (defun c:f1 ( / a b line1 line2 ps1 ps2 pt1 pt2 ss)<br />         (vl-load-com)<br />    (setq ss (ssget '((0 . "*line")))) ;“,” 逻辑或，对象类型可多选，名称用 “,” 分<br />   ;隔。例如，创建直线和文本的选择集,框选对象后，将只有文本被选中（亮显）并加入选择集。  <br />   (setq line1  (ssname ss 0));获取直线1的图元信息<br />   (setq line2  (ssname ss 1))<br />         (setq PS1  (HH:PtLists line1))<br />         (setq PS2  (HH:PtLists line2))<br />         (setq Pt1 (car (vl-sort PS1 '(lambda(a b) (< (cadr a) (cadr b))))))<br />         (setq Pt2 (car (vl-sort PS2 '(lambda(a b) (< (cadr a) (cadr b))))))<br />         (command "line" PT1 pt2 "")<br />         (print)<br />         )<br /> (defun HH:PtLists (en)        <br />         (list<br />         (vlax-curve-getstartpoint (vlax-ename->vla-object en))<br />         (vlax-curve-getendpoint (vlax-ename->vla-object en))<br />   )<br /> )<br />

你看下行不行

mahuan1279

一次只选择两条直线，还是多条直线？

世人皆醉

yaojing38 发表于 2023-4-21 17:29
你看下行不行

谢谢大佬，学习了！！！！