【分享】选择两点转水平

tigcat

先选取一个旋转基点，再选取一个角度点。然后选取需要旋转的对象，转到水平线上面来。抛砖引玉了~~

(defun c:33 (/ &tmp-ang &tmp-ang2 tmp-pt1 tmp-pt2)
  (setq tmp-pt1 (getpoint "指定旋转基点:"))
  (terpri)
  (setq tmp-pt2 (getpoint "指定另一角度线:"))
  (terpri)
  (setq &tmp-ang (/ (* 180 (angle tmp-pt1 tmp-pt2)) pi))
  (cond
    ((< 0 &tmp-ang 90) (setq &tmp-ang2 (- &tmp-ang)))
    ((< 90 &tmp-ang 180) (setq &tmp-ang2 (- 180 &tmp-ang)))
    ((< 180 &tmp-ang 270) (setq &tmp-ang2 (- 180 &tmp-ang)))
    ((< 270 &tmp-ang 360) (setq &tmp-ang2 (- &tmp-ang 360)))
  )
  (command "ROTATE" (ssget) "" tmp-pt1 &tmp-ang2)
  (prin1)
)

MZ_li

2. (defun cx_xztx(/ p1 p2 hd jd ss)
   
3.         (setq p1 (getpoint "\n请选择需转正的第一端点,旋转后此点位于电脑屏幕左边方向")
   
4.                 p2 (getpoint p1 "\n请选择需转正的第二端点,旋转后此点位于电脑屏幕右边方向\n")
   
5.                 hd (angle p1 p2))
   
6.                 (progn
   
7.                         (prompt "\n请选择需要旋转摆正的对象:")
   
8.                         (setq ss (ssget))
   
9.                         (setq jd (- 360 (/ (* hd 180) pi)))
   
10.                         (vl-cmdf "rotate" ss "" p1  jd)
    
11.                 )
    
12.        
    
13. )

(defun cx_xztx(/ p1 p2 hd jd ss)<br />         (setq p1 (getpoint "\n请选择需转正的第一端点,旋转后此点位于电脑屏幕左边方向")<br />                 p2 (getpoint p1 "\n请选择需转正的第二端点,旋转后此点位于电脑屏幕右边方向\n")<br />                 hd (angle p1 p2))<br />                 (progn<br />                         (prompt "\n请选择需要旋转摆正的对象:")<br />                         (setq ss (ssget))<br />                         (setq jd (- 360 (/ (* hd 180) pi)))<br />                         (vl-cmdf "rotate" ss "" p1  jd)<br />                 )<br />         <br /> )

你有种再说一遍

仿写al命令看看,你就知道难度了

ljpnb

2. 
   
3. (defun c:test ()
   
4.   (command "rotate"
   
5.            (ssget)
   
6.            ""
   
7.            (setq p0 (getpoint "\n选择一基准点:"))
   
8.            "R"
   
9.            p0
   
10.            (getpoint p0 "\n选择另一个点:")
    
11.            0;;可以设定水平0或垂直角度90
    
12.   )
    
13.   (princ)
    
14. )
    

<br /> (defun c:test ()<br />   (command "rotate"<br />            (ssget)<br />            ""<br />            (setq p0 (getpoint "\n选择一基准点:"))<br />            "R"<br />            p0<br />            (getpoint p0 "\n选择另一个点:")<br />            0;;可以设定水平0或垂直角度90<br />   )<br />   (princ)<br /> )<br />

tigcat

MZ_li 发表于 2024-7-10 20:09

很简洁，待会试试

tigcat

你有种再说一遍 发表于 2024-7-10 21:33
仿写al命令看看,你就知道难度了

哈哈,就写点简单的平时工作用

tigcat

ljpnb 发表于 2024-7-10 22:10

谢谢分享.

gble119

大神就是多哈！