有这样偏移功能的LISP么，麻烦大神看下？

feiniaoyizu · 发表于 2019-1-12 19:16

本帖最后由 feiniaoyizu 于 2019-1-12 19:30 编辑

哪位大神有这样的LISP?如下图，
1、对一条直线或者多条直线，偏移指定距离，连接偏移线并且是45倒角？（如果能指定倒角的角度就更好了）
2、对一条直线或者多条直线，偏移指定距离，连接偏移线中点，生成三角形？
或者不用偏移，能直接在原直线上绘制一个梯形、三角形也行。麻烦大神看下有没有这样的LISP，感谢感谢！

Andyhon · 发表于 2019-1-13 08:36

...绘制一个梯形...

尺寸依据?
如何换算 or 如何取得?

xyp1964 · 发表于 2019-1-13 19:54

;; 非源码

feiniaoyizu · 发表于 2019-1-14 09:50

本帖最后由 feiniaoyizu 于 2019-1-14 11:41 编辑

xyp1964 发表于 2019-1-13 19:54
;; 非源码

感谢院长大人出手，效果正是我想要的！但执行命令的时候，如果是单条线段两侧都偏移，如果是封闭的图形，则往里面偏移，如下图的1和2所示，不知道为什么，我想要往鼠标移动方向偏移！我机器上装的CAD 2018，有没有可能是版本问题？因为院长的配图很正常！另外这个方便加个命令执行的循环么？如果麻烦的话，就算了，有这个，我很满意了！
再次感谢院长!

feiniaoyizu · 发表于 2019-1-14 09:52

Andyhon 发表于 2019-1-13 08:36
...绘制一个梯形...

尺寸依据?

感谢兄弟回复，楼下院长发了一个LSP，很赞！

Andyhon · 发表于 2019-1-14 10:49

院长的代码符合其调试用图
您的图文件不合该规范时就不能得出正确结果

建议您提问时上传配合调试的样本(Dwg)

feiniaoyizu · 发表于 2019-1-14 11:40

本帖最后由 feiniaoyizu 于 2019-1-14 11:42 编辑

Andyhon 发表于 2019-1-14 10:49
院长的代码符合其调试用图
您的图文件不合该规范时就不能得出正确结果

感谢您的提醒，已经补充了调试样本!

xyp1964 · 发表于 2019-1-14 14:26

feiniaoyizu · 发表于 2019-1-14 16:41

xyp1964 发表于 2019-1-14 14:26

加载了最后提供的LISP，封闭图形还是向内生成梯形或三角形，然后我把下面几行的方向改为相反后，就向外生成了，不晓得我电脑哪里有不同，真奇怪了。
p1a (polar p1 (+ r1 (* pi 0.5)) dist)
p2a (polar p2 (+ r1 (* pi 0.5)) dist)
p1b (polar p1 (+ r1 r2) dist)
p2b (polar p2 (- r1 r2) dist)

对于最后提供的一个LISP，还有两个小小的请求，麻烦院长:P
1) 恢复直线的两侧生成效果（突然发现有时候我还真需要直线两侧生成梯形/三角形的效果）
2）执行命令结束后，直接按个回车，就可以选择对象进行操作了（距离与角度参数就是上一次调整好的，现在需要连续按两个空格才能跳过）

真心感谢院长的帮忙！解放生产力的高手！

feiniaoyizu · 发表于 2019-1-15 08:31

xyp1964 发表于 2019-1-14 14:26

有这两个已经很满足了，感谢院长的帮助！
因为有你，这个论坛更加精彩！

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

[提问] 有这样偏移功能的LISP么，麻烦大神看下？

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

点评