单边拉伸的程序

孙玉坤

;;;程序名称：多义线单边拉伸程序
(defun c:wj(/ pta3 ptb3 pt2n pt2nb i0)(whntgdm)    这是第一句   我把(whntgdm) 给删啦 估计确实这个函数  看看群里的朋友可能完善的感谢

hhh454

2. (defun c:tt (/ ent pnt pp pa pb)
   
3.   (setq ent (entsel "\n春婵工具-矩形多边形单边拉伸:"))
   
4.   (setq pnt (apply 'vlax-curve-getclosestpointto ent));将对象表传递给函数，并取出点击曲线的两点
   
5.   (setq ent (car ent));返回表的第一个函数,转换成vla对象
   
6.   (setq pp (fix (vlax-curve-getparamatpoint ent pnt)))
   
7.   (setq  pa (vlax-curve-getpointatparam ent pp);;节点1
   
8.   pb (vlax-curve-getpointatparam ent (1+ pp));;节点2
   
9.   )
   
10.   (command "_.stretch" "c" "non" pa "non" pb "" "non" pnt)
    
11. )
    
12. (princ "\n**********程序加载完成,启动命令：tt **********")
    
13. (princ "\n")

(defun c:tt (/ ent pnt pp pa pb)<br />   (setq ent (entsel "\n春婵工具-矩形多边形单边拉伸:"))<br />   (setq pnt (apply 'vlax-curve-getclosestpointto ent));将对象表传递给函数，并取出点击曲线的两点<br />   (setq ent (car ent));返回表的第一个函数,转换成vla对象<br />   (setq pp (fix (vlax-curve-getparamatpoint ent pnt)))<br />   (setq  pa (vlax-curve-getpointatparam ent pp);;节点1<br />   pb (vlax-curve-getpointatparam ent (1+ pp));;节点2<br />   )<br />   (command "_.stretch" "c" "non" pa "non" pb "" "non" pnt)<br /> )<br /> (princ "\n**********程序加载完成,启动命令：tt **********")<br /> (princ "\n")

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

孙玉坤

hhh454 发表于 2020-11-20 18:10
可以直接复制，是一样的，不想复制的，就下载源码
矩形多边形都可以拉伸，点线拖动就行，源码上面带有 ...

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

kwok

cad2021测试可以用，这种应叫单边偏移.

孙玉坤

kwok 发表于 2020-11-20 20:39
cad2021测试可以用，这种应叫单边偏移.

我用的2018  不能  没有反应

kwok

孙玉坤 发表于 2020-11-20 22:43
我用的2018  不能  没有反应

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

xj6019

我还是喜欢这个版本
http://bbs.mjtd.com/thread-182496-1-1.html
只是想找个老师给解决一下都是线段的话，一侧不在屏幕内怎么也可以有效的问题

hhh454

孙玉坤 发表于 2020-11-20 19:27
不是要动态拉伸的功能  上面的是定距单边拉伸 ，鼠标控制方向

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

paulpipi

999999

hhh454 发表于 2020-11-20 18:10
可以直接复制，是一样的，不想复制的，就下载源码
矩形多边形都可以拉伸，点线拖动就行，源码上面带有 ...

大神您好，您这个功能很好用，能否帮忙加一个，记忆功能，把输入的值记忆起来呢