（求助）请教一下各位大神如何才能实现在矩形内生成直线
本帖最后由 999999 于 2022-6-4 19:29 编辑各位大神们，晚上好：
小弟请教一下各位大神，绘制对角矩形内等分两线及对角矩形内生成中线是否可以帮小弟实现一下
有空的大神看能不能帮忙实现一下，谢谢大家了
(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 发表于 2022-6-4 22:49
帮顶，期待高手出现，谢谢！
,感谢帮顶 简单的尽可能自己写 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 发表于 2022-6-6 09:58
比较矩形长宽的大小 去判断矩形中间线是横的还是竖的
您好，判断的语句我还不知道怎么写，您这个方法很好，我一开始想的是定义六个点，就是不知道怎么写，想起来简单，实现起来对于我来说有一定的难度 uualice2020 发表于 2022-6-6 10:15
大神您好，谢谢您，展示的效果是我想要的，您可以发我一下嘛