（求助）大神们看能不能帮忙把垂直辅助线修剪改成框选的

999999

各位大神，能不能帮忙把以下[size=14.1176px]wyl219大神写的代码改成框选的
两根竖线是垂直的构造线
横线可以是构造线，也可以是多段线和直线

以下是[size=14.1176px]wyl219大神写的代码
(defun c:ttt ()
        (setq en1 (car (entsel "选择左下构造线")))
        (setq en2 (car (entsel "选择右上构造线")))
        (setq ed1 (entget en1))
        
        (setq ss (ssget "X" (list (cons 0 "XLINE")
                                                                                                (cons -4 "<AND")
                                                                                                (cons -4 "/=")
                                                                                                (assoc 11 ed1)
                                                                                                (cons -4 "/=")
                                                                                                (cons 11 (mapcar '- (cdr(assoc 11 ed1))))
                                                                                                (cons -4 "AND>") ;不与en1平行
                                                                                        )))
        
        (setq get_line (lambda (ed) (list (cdr (assoc 10 ed )) (mapcar '+  (cdr (assoc 10 ed ) ) (cdr (assoc 11 ed ))))))
        
        (setq line_en1 (get_line (entget en1)))
        (setq line_en2 (get_line (entget en2)));获取两个构造线上的一段
        
        
        (repeat (setq i (sslength ss))
                (setq i (1- i))
                (setq en_now (ssname  ss i))
                (setq ed_now (entget en_now))
                (setq line_now (get_line (entget en_now)))
               
                (setq pt1 (apply 'inters (append line_en1 line_now (list nil)) ));获取交点
                (setq pt2 (apply 'inters (append line_en2 line_now (list nil)) ));获取交点
               
                (if (or (< (nth 1 (assoc 11 ed_now)) 0)
                                        (< (nth 2 (assoc 11 ed_now)) 0)) ;这里条件还没琢磨透,当构造线是斜线的时候.可能会弄错
                        (progn;如果方向矢量xy中有一个小于0
                                (entmake_ray ed_now
                                        pt1
                                        (cdr (assoc 11 ed_now))
                                )
                                (entmake_ray ed_now
                                        pt2
                                        (mapcar '- (cdr (assoc 11 ed_now)))
                                )
                        )
                        (progn;如果方向矢量xy均大于0
                                (entmake_ray ed_now
                                        pt2
                                        (cdr (assoc 11 ed_now))
                                )
                                (entmake_ray ed_now
                                        pt1
                                        (mapcar '- (cdr (assoc 11 ed_now)))
                                )
                        )
                );end if
                (entdel en_now);删除原构造线
        )
)



(defun entmake_ray (ed dxf10 dxf11 / del_dxf)
        (setq del_dxf (list -1 0 330 5 100 100 10 11 )        );100出现了两次
        (foreach x del_dxf
                (setq ed (vl-remove (assoc x ed) ed))
        );删除无用的组码,对于颜色等,如果是随层,信息表里不会出现对应信息
        
        (setq ed (append
                                                 (list
                                                         (cons 0 "RAY")
                                                         (cons 100 "AcDbEntity")
                                                         (cons 100 "AcDbRay")
                                                         (cons 10 dxf10)
                                                         (cons 11 dxf11)
                                                 )
                                                 ed
                                         ));添加必要代码
        
        (entmake ed) ;生成对象
        
)