xtjd 发表于 2021-11-29 11:30
老师，您这个代码非常好用
麻烦请教一下您，这个：
(setq d1 2.5);d1=外形留边间距
(setq d2 2.5);d2=分块中缝间距
是四周都预留多少
请问可以增加几个判定吗，比如：
除了判定左右预留多少
上下预留可以添加另外的自定义预留边距
例如
判定 左右 和 分块中缝 预留2.5
判定 顶部预留12.5
判定 底部预留22.5
这样的呢
酷酷提 发表于 2022-6-7 09:57
老师，您这个代码非常好用
麻烦请教一下您，这个：
＿Levin 发表于 2022-6-4 12:18
能添加记忆上一次间距和门板数量的数值吗？
代码间距固定为楼主所需，如需不同间距可在代码中更改；门板数量可添加全局变量来记忆 xtjd 发表于 2022-6-7 11:07
谢谢老师哈
院长的改进版，;;;;;;;;;;;;;;;;;;;;;;;生成立面窗;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:cee ()
"选择矩形多段线分块"
(defun mrec (s1 nn d1 d2 / ww hh dd p1 p2 s2 s3)
(setq ww (xyp-EnameWide s1)
hh (xyp-EnameHigh s1)
p1 (xyp-9pt s1 1)
dd (/ (- ww d1 d1 (* (1- nn) d2)) nn 1.)
p2 (xyp-Pt2XY p1 d1 d1)
s2 (xyp-Rectang p2 (xyp-Pt2XY p2 dd (- hh d1 d1)))
)
(xyp-Offset s2 50 nil t nil)
(setq s3 (entlast))
(xyp-ArrayRH (list s2 s3) nn (+ dd d2))
)
(setq d1 20) ;d1=外形留边间距
(setq d2 0) ;d2=分块中缝间距
(setq nn (Uint 1 "" "门板数量" nn))
(if (setq ss (ssget '((0 . "*POLYLINE"))))
(mapcar '(lambda (x) (mrec x nn d1 d2)) (xyp-Ss2List ss))
)
(princ)
)
以上代码由院长所写，我转一下。这个亦比较好用 xtjd 发表于 2022-6-7 11:07
你好，只能横向分吗，竖向分块怎么改 xtjd 发表于 2022-6-7 11:07
能不能不用点两个角点，改成点选图形中心识别，可付费 shouerdekafei 发表于 2023-5-31 15:54
能不能不用点两个角点，改成点选图形中心识别，可付费
现在是框选，比点选还要进一步
页:
1
[2]