明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 325|回复: 8

[源码] 单边拉伸的程序

[复制链接]
发表于 2020-11-20 17:05 | 显示全部楼层 |阅读模式
50明经币
;;;程序名称:多义线单边拉伸程序
(defun c:wj(/ pta3 ptb3 pt2n pt2nb i0)(whntgdm)    这是第一句   我把(whntgdm) 给删啦 估计确实这个函数  看看群里的朋友可能完善的感谢

附件: 您需要 登录 才可以下载或查看,没有帐号?注册
发表于 2020-11-20 18:10 | 显示全部楼层
本帖最后由 hhh454 于 2020-11-20 18:14 编辑
[code="lisp] (defun c:tt (/ ent pnt pp pa pb)
  (setq ent (entsel "\n春婵工具-矩形多边形单边拉伸:"))
  (setq pnt (apply 'vlax-curve-getclosestpointto ent));将对象表传递给函数,并取出点击曲线的两点
  (setq ent (car ent));返回表的第一个函数,转换成vla对象
  (setq pp (fix (vlax-curve-getparamatpoint ent pnt)))
  (setq  pa (vlax-curve-getpointatparam ent pp);;节点1
  pb (vlax-curve-getpointatparam ent (1+ pp));;节点2
  )
  (command "_.stretch" "c" "non" pa "non" pb "" "non" pnt)
)
(princ "\n**********程序加载完成,启动命令:tt **********")
(princ "\n")[/code]

可以直接复制,是一样的,不想复制的,就下载源码
矩形多边形都可以拉伸,点线拖动就行,源码上面带有说明,想学习的可以参考

本帖子中包含更多资源

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

x
回复

使用道具 举报

 楼主| 发表于 2020-11-20 19:27 | 显示全部楼层
hhh454 发表于 2020-11-20 18:10
可以直接复制,是一样的,不想复制的,就下载源码
矩形多边形都可以拉伸,点线拖动就行,源码上面带有 ...

不是要动态拉伸的功能  上面的是定距单边拉伸 ,鼠标控制方向
回复

使用道具 举报

发表于 2020-11-20 20:39 | 显示全部楼层
cad2021测试可以用,这种应叫单边偏移.

本帖子中包含更多资源

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

x
回复

使用道具 举报

 楼主| 发表于 2020-11-20 22:43 | 显示全部楼层
kwok 发表于 2020-11-20 20:39
cad2021测试可以用,这种应叫单边偏移.

我用的2018  不能  没有反应
回复

使用道具 举报

发表于 2020-11-21 10:04 | 显示全部楼层
孙玉坤 发表于 2020-11-20 22:43
我用的2018  不能  没有反应

你这个里面有点乱,还缺少一些函数.用是可以用,就是有时不灵.
建议直接用E大的,完美解决. 看10楼
http://bbs.mjtd.com/thread-110012-1-1.html
回复

使用道具 举报

发表于 2020-11-21 10:33 | 显示全部楼层
我还是喜欢这个版本
http://bbs.mjtd.com/thread-182496-1-1.html
只是想找个老师给解决一下都是线段的话,一侧不在屏幕内怎么也可以有效的问题
回复

使用道具 举报

发表于 2020-11-21 14:15 | 显示全部楼层
孙玉坤 发表于 2020-11-20 19:27
不是要动态拉伸的功能  上面的是定距单边拉伸 ,鼠标控制方向

没看你原来的代码,加个距离和方向,就可以,可以自己试着写写
回复

使用道具 举报

发表于 2020-11-22 21:16 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2020-11-25 22:21 , Processed in 0.138293 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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