求一个在线或矩形上生成等距矩形

yanchao316

求大佬帮忙做个工具，要求如下
1、输入命令tt，选择直线、多段线、或矩形框，在上面生成一列矩形（生成的矩形图层名：GS，颜色：4。矩形尺寸30*200，等距，间距≤100）。生成矩形的尺寸，间距可以通过S【设置】来单独修改。即输入命令tt后，选择线或矩形框，生成一排等距矩形，不需要每次输入或确定一次矩形的尺寸间距。
2、带记忆功能，矩形的尺寸和间距输入一次（默认值30*200），下次执行时不用再次输入
3、可以连续执行命令，即生成矩形后，如：未ESC退出，就不用重新输入命令可以继续选择直线、多段线、或矩形框。（第1，2，4条满足了，这条可以不要，但是如果有感觉应该更好）
4、可以多选执行，在每条线或矩形框上各生成矩形，由于选择的线尺寸不等，在各段线上生成的矩形间距应该也不同，但都是间距≤100（如果这条难以实现，满足前面3条也不错）。
5、可以通过鼠标控制（或设置）生成的矩形在线上面还是线下面（此条附加功能，暂无强烈需求，但是如果有会更好）

xyp1964

;; 需要e派工具箱(XCAD)的支持

yanchao316

xyp1964 发表于 2023-8-19 13:57
;; 需要e派工具箱(XCAD)的支持

多谢院长，能否做个脱离工具箱独立运行啊，方向默认正向（向上）。

ssyfeng

我也试试：

yanchao316

xyp1964 发表于 2023-8-19 13:57
;; 需要e派工具箱(XCAD)的支持

发现一点问题，不知能否优化下。
例如：多段线从左画到右和从右画到左，生成的矩形一个在线上，一个在线下。
如果画的矩形从左下角到右上角和从左上角到右下角，生成的矩形方向也是反的。
或者把它们镜像下，画出来的矩形就反了。

yanchao316

ssyfeng 发表于 2023-8-20 00:31
我也试试：

看起来很棒

kwok

简化功能单一的等分和按距离相近等分.

xyp1964

yanchao316

xyp1964 发表于 2023-8-20 20:55

想请问这个与线的走向有关吗，能否也发出试试？

xyp1964

yanchao316 发表于 2023-8-20 21:48
想请问这个与线的走向有关吗，能否也发出试试？

可以与走向不关联，代码详见已“发消息”