求大神帮修改画柜门扣缝代码

酷酷提

xtjd 发表于 2021-11-29 11:30

老师，您这个代码非常好用
麻烦请教一下您，这个：

(setq d1 2.5);d1=外形留边间距
(setq d2 2.5);d2=分块中缝间距

是四周都预留多少
请问可以增加几个判定吗，比如：

除了判定左右预留多少
上下预留可以添加另外的自定义预留边距
例如

判定 左右 和 分块中缝 预留2.5
判定 顶部预留12.5
判定 底部预留22.5

这样的呢

xtjd

酷酷提 发表于 2022-6-7 09:57
老师，您这个代码非常好用
麻烦请教一下您，这个：

xtjd

＿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

你好，只能横向分吗，竖向分块怎么改

shouerdekafei

xtjd 发表于 2022-6-7 11:07

能不能不用点两个角点，改成点选图形中心识别，可付费

xtjd

shouerdekafei 发表于 2023-5-31 15:54
能不能不用点两个角点，改成点选图形中心识别，可付费

现在是框选，比点选还要进一步