图形水平调正的功能

孙玉坤

就是所有的图形，可以一次性水平旋转  ，无论是垂直的 还是 切斜的

xyp1964

ysq101

2. ;--------------未知角度转正------------------
   
3. (defun c:rz ()
   
4.   (setvar "cmdecho" 0)
   
5.     (setq ss (ssget)
   
6.        a(entsel"\n-->选择需要转正的斜线")
   
7.        j(car a)
   
8.    ifpl  (cadr a)
   
9.      )
   
10. (if (= "LINE" (cdr(assoc 0 (entget j)))) ;条件
    
11.   (progn
    
12.        (setq pt1(cdr(assoc 10 (entget j))))
    
13.        (setq pt2(cdr(assoc 11 (entget j))))
    
14.       
    
15.        (command "_rotate" ss "" ifpl   "r"  "_none"pt1 "_none"pt2 "0")
    
16.     )
    
17.   )
    
18. 
    
19. 
    
20.   (if(= "LWPOLYLINE"  (cdr(assoc 0 (entget j))))
    
21.     (if (HH:PickArc j ifpl)
    
22.         (progn
    
23.     (setq pt1 (car (HH:PickSegEndPt j ifpl))
    
24.                 pt2 (cadr(HH:PickSegEndPt j ifpl)))
    
25.          (command "_rotate" ss "" ifpl   "r"  "_none"pt1 "_none"pt2 "0")
    
26.    )
    
27.       )
    
28.     )
    
29. (princ)
    
30. 
    
31. )
    
32. 
    
33. 
    
34. 
    
35. ;;164.18 [功能] 多段线所点击子段的两端点列表
    
36. ;;示例(HH:PickSegEndPt (car(setq en(entsel))) (cadr en))
    
37. (defun HH:PickSegEndPt (obj p / pp n)
    
38.   (setq        pp (vlax-curve-getclosestpointto obj (trans p 1 0))
    
39.         n  (fix (vlax-curve-getparamatpoint obj pp))
    
40.   )
    
41.   (list        (vlax-curve-getPointAtParam obj n)
    
42.         (vlax-curve-getPointAtParam obj (1+ n))
    
43.   )
    
44. )
    
45. 
    
46. 
    
47. ;;164.24 [功能] 多段线所击子段是否是直线(返回nil是弧) By 自贡黄明儒
    
48. ;;示例(HH:PickArc (car(setq en(entsel))) (cadr en))
    
49. (defun HH:PickArc (curve p / PP)
    
50.   (setq pp (vlax-curve-getclosestpointto curve (trans p 1 0)))
    
51.   (setq        pp (vlax-curve-getSecondDeriv
    
52.              curve
    
53.              (fix (vlax-curve-getparamatpoint curve pp))
    
54.            )
    
55.   )
    
56.   (equal pp '(0.0 0.0 0.0))
    
57. )

;--------------未知角度转正------------------<br /> (defun c:rz ()<br />   (setvar "cmdecho" 0)<br />     (setq ss (ssget)<br />        a(entsel"\n-->选择需要转正的斜线")<br />        j(car a)<br />    ifpl  (cadr a)<br />      )<br /> (if (= "LINE" (cdr(assoc 0 (entget j)))) ;条件<br />   (progn<br />        (setq pt1(cdr(assoc 10 (entget j))))<br />        (setq pt2(cdr(assoc 11 (entget j))))<br />        <br />        (command "_rotate" ss "" ifpl   "r"  "_none"pt1 "_none"pt2 "0")<br />     )<br />   )<br /> <br /> <br />   (if(= "LWPOLYLINE"  (cdr(assoc 0 (entget j))))<br />     (if (HH:PickArc j ifpl)<br />         (progn<br />     (setq pt1 (car (HH:PickSegEndPt j ifpl))<br />                 pt2 (cadr(HH:PickSegEndPt j ifpl)))<br />          (command "_rotate" ss "" ifpl   "r"  "_none"pt1 "_none"pt2 "0")<br />    )<br />       )<br />     )<br /> (princ)<br /> <br /> )<br /> <br /> <br /> <br /> ;;164.18 [功能] 多段线所点击子段的两端点列表<br /> ;;示例(HH:PickSegEndPt (car(setq en(entsel))) (cadr en))<br /> (defun HH:PickSegEndPt (obj p / pp n)<br />   (setq        pp (vlax-curve-getclosestpointto obj (trans p 1 0))<br />         n  (fix (vlax-curve-getparamatpoint obj pp))<br />   )<br />   (list        (vlax-curve-getPointAtParam obj n)<br />         (vlax-curve-getPointAtParam obj (1+ n))<br />   )<br /> )<br /> <br /> <br /> ;;164.24 [功能] 多段线所击子段是否是直线(返回nil是弧) By 自贡黄明儒<br /> ;;示例(HH:PickArc (car(setq en(entsel))) (cadr en))<br /> (defun HH:PickArc (curve p / PP)<br />   (setq pp (vlax-curve-getclosestpointto curve (trans p 1 0)))<br />   (setq        pp (vlax-curve-getSecondDeriv<br />              curve<br />              (fix (vlax-curve-getparamatpoint curve pp))<br />            )<br />   )<br />   (equal pp '(0.0 0.0 0.0))<br /> )

孙玉坤

ysq101 发表于 2017-10-22 16:43
这个是需要转正哪条边就点哪条边。。。只能单选。。。
三年前写的代码了。。。借用了黄大师的子程序。。。 ...

厉害 我不懂代码 单觉得这个应该很简单的

水吉空

获得图形的角度属性，修改属性，更新图元。

ysq101

我有一个只可单选的。。。你可需要？？
（新手作品）

H-浩浩-H

孙玉坤

ysq101 发表于 2017-10-22 11:29
我有一个只可单选的。。。你可需要？？
（新手作品）

要啊  比没有强的多  谢谢

ysq101

这个是需要转正哪条边就点哪条边。。。只能单选。。。
三年前写的代码了。。。借用了黄大师的子程序。。。

现在我自己都读不懂了

孙玉坤

孙玉坤 发表于 2017-10-22 16:57
厉害 我不懂代码 单觉得这个应该很简单的

不过 也不多  非常的感谢

fsafaffa

能选择块内的对象就更好了，这样就可以将块水平了