关于et工具函数-附带矩形单边拉伸

ngc

这几天一直在找矩形单边拉伸的方面的代码，看到论坛里面有很多，我记得在什么帖子里面看到过一个，et工具自带的函数，可以轻松实现，但是实在是找不到了，下面有源代码，附件是 ET工具函数说明，我汇总过来了，方便需要的同志下载，矩形单边拉伸，主要用于矩形太高的情况，用s拉伸框选不是很方便，新版本已经支持中间点拉伸了

2. (defun c:tt ()
   
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. 
    
13. ;;;  (vlax-curve-getParamAtPoint curve-obj point) 返回曲线在指定点的参数
    
14. ;;;  curve-obj
    
15. ;;;  要测量的 VLA  对象
    
16. ;;;  point
    
17. ;;;  curve-obj.上的三维点表（在 WCS 中
    
18. ;;;
    
19. ;;;  fix截去实数的小数部分，将它转换成整数后返回该整数
    
20. ;;;  
    
21. ;;;  (vlax-curve-getPointAtParam curve-obj param) 返回曲线上具有指定参数值的点
    
22. ;;;   param数值，
    
23. ;;;   指定曲线上的参数。
    

(defun c:tt ()<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 /> <br /> ;;;  (vlax-curve-getParamAtPoint curve-obj point) 返回曲线在指定点的参数<br /> ;;;  curve-obj<br /> ;;;  要测量的 VLA  对象<br /> ;;;  point<br /> ;;;  curve-obj.上的三维点表（在 WCS 中<br /> ;;;<br /> ;;;  fix截去实数的小数部分，将它转换成整数后返回该整数<br /> ;;;  <br /> ;;;  (vlax-curve-getPointAtParam curve-obj param) 返回曲线上具有指定参数值的点<br /> ;;;   param数值，<br /> ;;;   指定曲线上的参数。<br />

1. ;;;ET工具--acet函数使用说明：

复制代码

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:ET工具acet函数使用说明.txt 
下载次数:23  文件大小:18.59 KB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:ET工具acet函数.txt 
下载次数:22  文件大小:8.13 KB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:矩形单边拉伸.LSP 
下载次数:31  文件大小:814 Bytes 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:acetutil英文说明.rar 
下载次数:19  文件大小:16.8 KB 
下载权限: 不限 以上  [免费赚D豆]

longer1000

啥也不说了，感谢楼主分享哇！