求大神帮忙写个偏移画矩形等分的lisp

00放飞梦想00 · 发表于 2020-3-26 08:30:06

本帖最后由 00放飞梦想00 于 2020-3-26 13:57 编辑

我是做设计的，平时玻璃提料需要在分格的基础上四周偏移才能出玻璃尺寸。不知能不实现自动生成玻璃轮廓。

具体过程是这样的，点击白色中间区域，先判断线段或矩形，线段就任意内部点选，

矩形就对话框框选或先择距形。然后提示输入左右上下需要内偏移的距离（A,B,C,D）

,，然后根据四个尺寸，每个边各自偏移相应的距离，生成红色或者粉红色的玻璃轮廓；

红色或者粉红色的玻璃轮廓内区域可横向、可竖向动态等分，设置等分距离和等分数量（可设置对话框内设置偏移尺寸，）

按快捷键动态增加或减少等分数量。

求大神帮忙

maiko · 发表于 2020-3-26 19:32:59

大神估计不会帮忙，图片表述不清楚，偏移多少？横向与竖向达到什么条件？中间距离及四周距离是多少

00放飞梦想00 · 发表于 2020-3-26 22:50:18

maiko 发表于 2020-3-26 19:32
大神估计不会帮忙，图片表述不清楚，偏移多少？横向与竖向达到什么条件？中间距离及四周距离是多少

不是固定参数呢

bai2000 · 发表于 2020-3-27 07:48:56

固定参数好点，不然光输入参数就得好长时间，画图也不快多少

00放飞梦想00 · 发表于 2020-3-27 09:54:13

bai2000 发表于 2020-3-27 07:48
固定参数好点，不然光输入参数就得好长时间，画图也不快多少

应该可以实现这个功能的

bai2000 · 发表于 2020-3-27 12:07:55

不知道楼上是需要实现幕墙绘图中的什么功能

00放飞梦想00 · 发表于 2020-3-27 14:06:22

不是幕墙哦，门板、抽屉等分、留缝

sharetow · 发表于 2020-3-28 16:45:50

用cad自带命令-boundary拾取，然后建个dcl面板就好了。

00放飞梦想00 · 发表于 2020-3-29 11:52:02

sharetow 发表于 2020-3-28 16:45
用cad自带命令-boundary拾取，然后建个dcl面板就好了。

可以帮写下代码，谢谢！

zj20190405 · 发表于 2020-8-27 17:21:34

00放飞梦想00 发表于 2020-3-27 09:54
应该可以实现这个功能的

大佬，功能哪里找

账号		自动登录	找回密码
密码			注册