有这样偏移功能的LISP么，麻烦大神看下？
本帖最后由 feiniaoyizu 于 2019-1-12 19:30 编辑哪位大神有这样的LISP?如下图，
1、对一条直线或者多条直线，偏移指定距离，连接偏移线并且是45倒角？（如果能指定倒角的角度就更好了）
2、对一条直线或者多条直线，偏移指定距离，连接偏移线中点，生成三角形？
或者不用偏移，能直接在原直线上绘制一个梯形、三角形也行。麻烦大神看下有没有这样的LISP，感谢感谢！
https://gss0.baidu.com/94o3dSag_xI4khGko9WTAnF6hhy/zhidao/pic/item/d01373f082025aaf2c381039f6edab64034f1a3d.jpg
...绘制一个梯形...
尺寸依据?
如何换算 or 如何取得?
;; 非源码
本帖最后由 feiniaoyizu 于 2019-1-14 11:41 编辑
xyp1964 发表于 2019-1-13 19:54
;; 非源码
感谢院长大人出手，效果正是我想要的！但执行命令的时候，如果是单条线段两侧都偏移，如果是封闭的图形，则往里面偏移，如下图的1和2所示，不知道为什么，我想要往鼠标移动方向偏移！我机器上装的CAD 2018，有没有可能是版本问题？因为院长的配图很正常！另外这个方便加个命令执行的循环么？如果麻烦的话，就算了，有这个，我很满意了！
再次感谢院长!
https://gss0.baidu.com/-4o3dSag_xI4khGko9WTAnF6hhy/zhidao/pic/item/21a4462309f7905274bf36cb01f3d7ca7acbd5a7.jpg
Andyhon 发表于 2019-1-13 08:36
...绘制一个梯形...
尺寸依据?
感谢兄弟回复，楼下 院长发了一个LSP，很赞！ 院长的代码符合其调试用图
您的图文件不合该规范时就不能得出正确结果
建议您提问时上传配合调试的样本(Dwg)
本帖最后由 feiniaoyizu 于 2019-1-14 11:42 编辑
Andyhon 发表于 2019-1-14 10:49
院长的代码符合其调试用图
您的图文件不合该规范时就不能得出正确结果
感谢您的提醒，已经补充了调试样本!
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）执行命令结束后，直接按个回车，就可以选择对象进行操作了（距离与角度参数就是上一次调整好的，现在需要连续按两个空格才能跳过）
真心感谢院长的帮忙！解放生产力的高手！ xyp1964 发表于 2019-1-14 14:26
有这两个已经很满足了，感谢院长的帮助！
因为有你，这个论坛更加精彩！
页:
[1]
2