单边拉伸的程序
;;;程序名称：多义线单边拉伸程序(defun c:wj(/ pta3 ptb3 pt2n pt2nb i0)(whntgdm) 这是第一句 我把(whntgdm) 给删啦 估计确实这个函数看看群里的朋友可能完善的感谢
本帖最后由 hhh454 于 2020-11-20 18:14 编辑
(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)))
(setqpa (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")
可以直接复制，是一样的，不想复制的，就下载源码
矩形多边形都可以拉伸，点线拖动就行，源码上面带有说明，想学习的可以参考
hhh454 发表于 2020-11-20 18:10
可以直接复制，是一样的，不想复制的，就下载源码
矩形多边形都可以拉伸，点线拖动就行，源码上面带有 ...
不是要动态拉伸的功能上面的是定距单边拉伸 ，鼠标控制方向 cad2021测试可以用，这种应叫单边偏移.
kwok 发表于 2020-11-20 20:39
cad2021测试可以用，这种应叫单边偏移.
我用的2018不能没有反应 孙玉坤 发表于 2020-11-20 22:43
我用的2018不能没有反应
你这个里面有点乱，还缺少一些函数.用是可以用，就是有时不灵.
建议直接用E大的，完美解决. 看10楼
http://bbs.mjtd.com/thread-110012-1-1.html 我还是喜欢这个版本
http://bbs.mjtd.com/thread-182496-1-1.html
只是想找个老师给解决一下都是线段的话，一侧不在屏幕内怎么也可以有效的问题 孙玉坤 发表于 2020-11-20 19:27
不是要动态拉伸的功能上面的是定距单边拉伸 ，鼠标控制方向
没看你原来的代码，加个距离和方向，就可以，可以自己试着写写 hhh454 发表于 2020-11-20 18:10
可以直接复制，是一样的，不想复制的，就下载源码
矩形多边形都可以拉伸，点线拖动就行，源码上面带有 ...
大神您好，您这个功能很好用，能否帮忙加一个，记忆功能，把输入的值记忆起来呢
页:
[1]