画斜矩形

zhaoxt

工作上有时候经常要碰到画角度和周边线段一致的非水平模式下的矩形，久而久之就想还是弄个命令方便点。与水平方向上的矩形不同，给定了对角上两点后有无数个矩形，故还需要指定角度。附上源码，源码比较粗糙，没考虑容错或者特例，仅供参考下，一部分源码引用了版主的函数源码。

sunny_8848

不知道咋回事，桌子公司的三维软件的草图那么方便，怎么不想办法移植到autocad里面来

xyp1964

1. (defun c:tt ()
   
2.   "参照角度画矩形"
   
3.   (defun AngleAtPoint (s1 pt / pa)
   
4.     (setq pt (vlax-curve-getclosestpointto s1 pt)
   
5.           pa (vlax-curve-getparamatpoint s1 pt)
   
6.     )
   
7.     (angle pt (mapcar '+ pt (vlax-curve-getfirstderiv s1 pa)))
   
8.   )
   
9.   (if (and (setq p1 (getpoint "\n请输入斜矩形第一点: "))
   
10.            (setq p2 (getpoint p1 "\n请输入斜矩形对角点:"))
    
11.            (setq e (entsel "\n参照角度边线: "))
    
12.       )
    
13.     (progn
    
14.       (setq s1 (car e)
    
15.             pt (osnap (cadr e) "nea")
    
16.             rad (AngleAtPoint s1 pt)
    
17.             p2a (polar p2 (+ rad (* pi 0.5)) 1)
    
18.             p1a (polar p1 (+ rad (* pi 0.5)) 1)
    
19.             p12 (inters p1 (polar p1 rad 1) p2 p2a nil)
    
20.             p21 (inters p2 (polar p2 rad 1) p1 p1a nil)
    
21.       )
    
22.       (command "pline" p1 p12 p2 p21 "c")
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt ()<br />   "参照角度画矩形"<br />   (defun AngleAtPoint (s1 pt / pa)<br />     (setq pt (vlax-curve-getclosestpointto s1 pt)<br />           pa (vlax-curve-getparamatpoint s1 pt)<br />     )<br />     (angle pt (mapcar '+ pt (vlax-curve-getfirstderiv s1 pa)))<br />   )<br />   (if (and (setq p1 (getpoint "\n请输入斜矩形第一点: "))<br />            (setq p2 (getpoint p1 "\n请输入斜矩形对角点:"))<br />            (setq e (entsel "\n参照角度边线: "))<br />       )<br />     (progn<br />       (setq s1 (car e)<br />             pt (osnap (cadr e) "nea")<br />             rad (AngleAtPoint s1 pt)<br />             p2a (polar p2 (+ rad (* pi 0.5)) 1)<br />             p1a (polar p1 (+ rad (* pi 0.5)) 1)<br />             p12 (inters p1 (polar p1 rad 1) p2 p2a nil)<br />             p21 (inters p2 (polar p2 rad 1) p1 p1a nil)<br />       )<br />       (command "pline" p1 p12 p2 p21 "c")<br />     )<br />   )<br />   (princ)<br /> )<br />

lxl217114

看起来，挺实用的
收藏备用

中国梦

看起来，挺实用的
收藏备用

技术工作室

收藏备用，支持源码

sunny_8848

挺好用的，多谢分享

ZYX2129

收藏备用，支持源码

行天下

收藏备用，支持源码

bai2000

能搞个动态的会更方便

zmzk

好用，提高效率