（求助）请教一下各位大神如何才能实现在矩形内生成直线

999999

各位大神们，晚上好：
      小弟请教一下各位大神，绘制对角矩形内等分两线及对角矩形内生成中线是否可以帮小弟实现一下
有空的大神看能不能帮忙实现一下，谢谢大家了

uualice2020

(defun c:ttt(/ p1 p2 p3 p4 pa pb)
        (setq
                p1(getpoint)
                p3(getcorner p1)
                p2(list (car p3)(cadr p1))
                p4(list (car p1)(cadr p3))
                pa(mapcar '(lambda (a b)(* (+ a b) 0.5)) p1 p4)
                pb(mapcar '(lambda (a b)(* (+ a b) 0.5)) p2 p3)
                                              pc(mapcar '(lambda (a b)(* (+ a b) 0.5)) p1 p2)
                                              pd(mapcar '(lambda (a b)(* (+ a b) 0.5)) p3 p4)
                                       
                       )
        (command "RECTANG" p1 p3)
              (if (>= (distance p1 p2)(distance p1 p4))
                                       
                                        (command "LINE" pa pb "")
                                        (command "LINE" pc pd "")
                                )
       
        
       
        (princ)
)

paulpipi

帮顶，期待高手出现，谢谢！

999999

paulpipi 发表于 2022-6-4 22:49
帮顶，期待高手出现，谢谢！

,感谢帮顶

xyp1964

简单的尽可能自己写

999999

xyp1964 发表于 2022-6-5 22:39
简单的尽可能自己写

院长大人，这个是论坛里找的代码，我把原代码删减了，只能看懂一点点，原来的效果是矩形内生成横向与竖向的十字，删减后，就一直是横向的，想让它根据条件生条竖向的，还不知道怎么写。
(defun c:ttt(/ p1 p2 p3 p4 pa pb)
        (setq
                p1(getpoint)
                p3(getcorner p1)
                p2(list (car p3)(cadr p1))
                p4(list (car p1)(cadr p3))
                pa(mapcar '(lambda (a b)(* (+ a b) 0.5)) p1 p4)
                pb(mapcar '(lambda (a b)(* (+ a b) 0.5)) p2 p3)
                       )
        (command "RECTANG" p1 p3)
        (command "LINE" pa pb "")
        (princ)
)

uualice2020

比较矩形长宽的大小 去判断矩形中间线是横的还是竖的

uualice2020

999999

uualice2020 发表于 2022-6-6 09:58
比较矩形长宽的大小 去判断矩形中间线是横的还是竖的

您好，判断的语句我还不知道怎么写，您这个方法很好，我一开始想的是定义六个点，就是不知道怎么写，想起来简单，实现起来对于我来说有一定的难度

999999

uualice2020 发表于 2022-6-6 10:15

大神您好，谢谢您，展示的效果是我想要的，您可以发我一下嘛