明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 579|回复: 11

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

[复制链接]
发表于 2019-1-12 19:16 | 显示全部楼层 |阅读模式
本帖最后由 feiniaoyizu 于 2019-1-12 19:30 编辑

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

发表于 2019-1-13 08:36 | 显示全部楼层
...绘制一个梯形...

尺寸依据?
如何换算 or 如何取得?
发表于 2019-1-13 19:54 | 显示全部楼层

;; 非源码




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2019-1-14 09:50 | 显示全部楼层
本帖最后由 feiniaoyizu 于 2019-1-14 11:41 编辑

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2019-1-14 09:52 | 显示全部楼层
Andyhon 发表于 2019-1-13 08:36
...绘制一个梯形...

尺寸依据?

感谢兄弟回复,楼下 院长发了一个LSP,很赞!
发表于 2019-1-14 10:49 | 显示全部楼层
院长的代码符合其调试用图
您的图文件不合该规范时就不能得出正确结果

建议您提问时上传配合调试的样本(Dwg)
 楼主| 发表于 2019-1-14 11:40 | 显示全部楼层
本帖最后由 feiniaoyizu 于 2019-1-14 11:42 编辑
Andyhon 发表于 2019-1-14 10:49
院长的代码符合其调试用图
您的图文件不合该规范时就不能得出正确结果

感谢您的提醒,已经补充了调试样本!
发表于 2019-1-14 14:26 | 显示全部楼层


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2019-1-14 16:41 | 显示全部楼层

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

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

点评

需要更新工具箱了!  发表于 2019-1-14 20:11
 楼主| 发表于 2019-1-15 08:31 | 显示全部楼层

有这两个已经很满足了,感谢院长的帮助!
因为有你,这个论坛更加精彩!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-6-27 18:16 , Processed in 0.183638 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表