【悬赏10明经币】求与线平齐小程序

yjr111

如题，程序效果见图片，这个程序超好用，可惜主程序要安装，与公司程序冲突，希望能得到相类的程序源码。。。

在22楼是本人在各位高人指点下弄出来的，有图有源码！欢迎下载！

Gu_xl

highflybir

楼主不妨参考这个帖子.
http://lee-mac.com/objectalign.html

xiaxiang

演示的是什么软件，我来装个看看，这个是还有预览功能的程序

yjr111

highflybir 发表于 2011-10-21 00:40
楼主不妨参考这个帖子.
http://lee-mac.com/objectalign.html

谢谢版主指点，不过LEE这个程序有个我最想要的功能不能满足：当我点在矩形短边的时候，应该矩形短边与线平齐，智能切换，同时离曲线位置能够自由选择，不需要一定在曲线上。。。版主是否能修改一下？谢谢！

byghbcx

自己修改一下，应该可以满足你的需要

Andyhon

建议楼主提供配合调试用的样本文件(*.Dwg)

yjr111

Andyhon 发表于 2011-10-21 15:40
建议楼主提供配合调试用的样本文件(*.Dwg)

MaKaiJin

这个跟那个标粗糙度的差不多，期待高手的解决。

yjr111

除了块内矩形选边外，其他问题基本都处理了一下，效果没有高手那么炫，不过已经可以满足自己的使用需求，代码实时更新，有兴趣的可以试试。。。

2. (defun c:yxpq(/ e1 e2 ee s11 s22 point_e1 vla_e1 vla_e2 dxf_10 p1 jux_ang e1_ang1 e1_ang2 hudu1
   
3.           JIAODU1 HUDU2 JIAODU2 JIAODU3)
   
4.   (vl-load-com)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq e1 (car(setq ee(nentsel"\n 请选择要对齐的物体："))))
   
7.   (setq s11 (entget e1))
   
8.   (setq point_e1 (cdr(assoc 10 s11)))
   
9.   (setq e2 (car(setq eee(entsel"\n 请选择物体要对齐的曲线"))))
   
10.   (setq s22 (entget e2))
    
11.   
    
12. ;;;;;;;;;;;取得点击点处最近的在实体或曲线的位置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
13.      (setq vla_e1(vlax-ename->vla-object e1))
    
14.        (setq vla_e2(vlax-ename->vla-object e2))
    
15.       
    
16. (if(WCMATCH(cdr(assoc 0 s11))"*POLYLINE")
    
17.   (progn
    
18.   (setq p1(vlax-curve-getclosestpointto vla_e1 (cadr ee)));;;;;实体点击点若不在实体上，找到在实体上最近的点
    
19.   
    
20.      (SETQ dxf_10 (massoc 10 s11))
    
21.        (setq jux_ang(angle (nth 0 dxf_10)(nth 1 dxf_10)))
    
22.      (setq e1_ang1(angle (nth 0 dxf_10) p1))
    
23.      (setq e1_ang2(angle p1(nth 2 dxf_10) ) )
    
24.    
    
25.        (if(= e1_ang1 pi)(setq e1_ang1 0.0))
    
26.      (if(= e1_ang2 pi)(setq e1_ang2 0.0))
    
27.      (if(= jux_ang pi)(setq jux_ang 0.0))
    
28. 
    
29.    )
    
30. )   
    
31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;取得待对齐的实体的旋转角度;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
32.    (cond((=(cdr(assoc 0 s11))"LINE") (setq hudu1 (ATAN(/(-(cADdr(assoc 10 s11))
    
33.             (cADdr(assoc 11 s11)))(-(cAdr(assoc 10 s11))(cAdr(assoc 11 s11)))))))
    
34. 
    
35.       ((WCMATCH(cdr(assoc 0 s11))"*POLYLINE,ARC")(if(or(equal jux_ANG e1_ang1 0.001)(equal jux_ANG e1_ang2 0.001))
    
36.                 (setq hudu1  jux_ang )
    
37.             
    
38.           (setq hudu1  (+ jux_ang (* 0.5 pi) ))))
    
39.             
    
40.       ((WCMATCH(cdr(assoc 0 s11))"CIRCLE,SPLINE,ELLIPSE,XLINE")(setq hudu1  0 ))
    
41.                                 
    
42.       (t (setq hudu1 (cdr(assoc 50 s11))))         
    
43.     )  
    
44. 
    
45.   (SETQ JIAODU1 (* (/ HUDU1 PI)180))
    
46. ;;;;;;;;;;;;;;;;;;;;;;;;;;返回关联表中相同组码保存的信息，明经lsp QQ群信息;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
47. (defun massoc (code xlist / x nlist)
    
48.   (setq nlist nil)
    
49.   (foreach x xlist
    
50.     (if (eq code (car x))
    
51.       (setq nlist (cons (cdr x) nlist))
    
52.     )
    
53.   )
    
54.   (reverse nlist)
    
55. )
    
56. 
    
57. ;;;;;;;;;;;;;;;;;;;;;;;;取得对齐直线的旋转角度;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
58.   (COND((=(cdr(assoc 0 s22))"LINE") (if (/= (setq chushu1(-(cAdr(assoc 10 s22))(cAdr(assoc 11 s22))))0)
    
59.                                        (setq hudu2 (ATAN(/ (-(cADdr(assoc 10 s22))  (cADdr(assoc 11 s22))) chushu1)))
    
60.                            (setq hudu2 (* 0.5 pi))))
    
61. 
    
62.      ((WCMATCH(cdr(assoc 0 s22))"*POLYLINE,ARC,SPLINE")(setq p2(vlax-curve-getclosestpointto vla_e2 (cadr eee)));;;;;曲线点击点若不在曲线上，找到在曲线上最近的点
    
63.                                        (setq p3(vlax-curve-getclosestpointto vla_e2 (list (+(car p2)0.001)(+(cadr p2)0.001)(+(caddr p2)0.0))))
    
64.                                        (setq hudu2 (angle p2 p3)))                     
    
65.   )                              
    
66.                               
    
67.   (SETQ JIAODU2 (* (/ HUDU2 PI)180))
    
68. 
    
69. ;;;;;;;;;;;;;;旋转平移;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
70.   (IF (> (LENGTH ee)2) (PROGN (SETQ e1 (CAAR (REVERSE ee)))
    
71.                 (setq point_e1 (cdr(assoc 10 (ENTGET e1)))
    
72.                  jiaodu3 (*(/(cdr(assoc 50 (ENTGET e1)))PI)180))))
    
73.     (cond ((and(and(and e1 e2)(< (LENGTH ee)3))(WCMATCH(cdr(assoc 0 s11))"*POLYLINE"))
    
74.      (command "_.rotate" e1 "" p1 (- jiaodu2 jiaodu1))  
    
75.      (command  "_.MOVE" e1 ""  p1  pause))
    
76. 
    
77.       ((and(and e1 e2)(> (LENGTH ee)2))
    
78.      (command "_.rotate" e1 "" point_e1 (- jiaodu2 jiaodu1 jiaodu3))  
    
79.      (command  "_.MOVE" e1 ""  point_e1  pause))
    
80.   
    
81.       (t(command "_.rotate" e1 "" point_e1 (- jiaodu2 jiaodu1 ))  
    
82.      (command  "_.MOVE" e1 ""  point_e1  pause))
    
83.   
    
84.   )
    
85.   (princ)
    
86. )

(defun c:yxpq(/ e1 e2 ee s11 s22 point_e1 vla_e1 vla_e2 dxf_10 p1 jux_ang e1_ang1 e1_ang2 hudu1<br />           JIAODU1 HUDU2 JIAODU2 JIAODU3)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setq e1 (car(setq ee(nentsel"\n 请选择要对齐的物体："))))<br />   (setq s11 (entget e1))<br />   (setq point_e1 (cdr(assoc 10 s11)))<br />   (setq e2 (car(setq eee(entsel"\n 请选择物体要对齐的曲线"))))<br />   (setq s22 (entget e2))<br />   <br /> ;;;;;;;;;;;取得点击点处最近的在实体或曲线的位置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />      (setq vla_e1(vlax-ename->vla-object e1))<br />        (setq vla_e2(vlax-ename->vla-object e2))<br />        <br /> (if(WCMATCH(cdr(assoc 0 s11))"*POLYLINE")<br />   (progn<br />   (setq p1(vlax-curve-getclosestpointto vla_e1 (cadr ee)));;;;;实体点击点若不在实体上，找到在实体上最近的点<br />   <br />      (SETQ dxf_10 (massoc 10 s11))<br />        (setq jux_ang(angle (nth 0 dxf_10)(nth 1 dxf_10)))<br />      (setq e1_ang1(angle (nth 0 dxf_10) p1))<br />      (setq e1_ang2(angle p1(nth 2 dxf_10) ) )<br />     <br />        (if(= e1_ang1 pi)(setq e1_ang1 0.0))<br />      (if(= e1_ang2 pi)(setq e1_ang2 0.0))<br />      (if(= jux_ang pi)(setq jux_ang 0.0))<br /> <br />    )<br /> )    <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;取得待对齐的实体的旋转角度;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />    (cond((=(cdr(assoc 0 s11))"LINE") (setq hudu1 (ATAN(/(-(cADdr(assoc 10 s11))<br />             (cADdr(assoc 11 s11)))(-(cAdr(assoc 10 s11))(cAdr(assoc 11 s11)))))))<br /> <br />       ((WCMATCH(cdr(assoc 0 s11))"*POLYLINE,ARC")(if(or(equal jux_ANG e1_ang1 0.001)(equal jux_ANG e1_ang2 0.001))<br />                 (setq hudu1  jux_ang )<br />              <br />           (setq hudu1  (+ jux_ang (* 0.5 pi) ))))<br />             <br />       ((WCMATCH(cdr(assoc 0 s11))"CIRCLE,SPLINE,ELLIPSE,XLINE")(setq hudu1  0 ))<br />                                 <br />       (t (setq hudu1 (cdr(assoc 50 s11))))         <br />     )  <br /> <br />   (SETQ JIAODU1 (* (/ HUDU1 PI)180))<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;返回关联表中相同组码保存的信息，明经lsp QQ群信息;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun massoc (code xlist / x nlist)<br />   (setq nlist nil)<br />   (foreach x xlist<br />     (if (eq code (car x))<br />       (setq nlist (cons (cdr x) nlist))<br />     )<br />   )<br />   (reverse nlist)<br /> )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;取得对齐直线的旋转角度;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (COND((=(cdr(assoc 0 s22))"LINE") (if (/= (setq chushu1(-(cAdr(assoc 10 s22))(cAdr(assoc 11 s22))))0)<br />                                        (setq hudu2 (ATAN(/ (-(cADdr(assoc 10 s22))  (cADdr(assoc 11 s22))) chushu1)))<br />                            (setq hudu2 (* 0.5 pi))))<br /> <br />      ((WCMATCH(cdr(assoc 0 s22))"*POLYLINE,ARC,SPLINE")(setq p2(vlax-curve-getclosestpointto vla_e2 (cadr eee)));;;;;曲线点击点若不在曲线上，找到在曲线上最近的点<br />                                        (setq p3(vlax-curve-getclosestpointto vla_e2 (list (+(car p2)0.001)(+(cadr p2)0.001)(+(caddr p2)0.0))))<br />                                        (setq hudu2 (angle p2 p3)))                      <br />   )                              <br />                                <br />   (SETQ JIAODU2 (* (/ HUDU2 PI)180))<br /> <br /> ;;;;;;;;;;;;;;旋转平移;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (IF (> (LENGTH ee)2) (PROGN (SETQ e1 (CAAR (REVERSE ee)))<br />                 (setq point_e1 (cdr(assoc 10 (ENTGET e1)))<br />                  jiaodu3 (*(/(cdr(assoc 50 (ENTGET e1)))PI)180))))<br />     (cond ((and(and(and e1 e2)(< (LENGTH ee)3))(WCMATCH(cdr(assoc 0 s11))"*POLYLINE"))<br />      (command "_.rotate" e1 "" p1 (- jiaodu2 jiaodu1))  <br />      (command  "_.MOVE" e1 ""  p1  pause))<br /> <br />       ((and(and e1 e2)(> (LENGTH ee)2))<br />      (command "_.rotate" e1 "" point_e1 (- jiaodu2 jiaodu1 jiaodu3))  <br />      (command  "_.MOVE" e1 ""  point_e1  pause))<br />   <br />       (t(command "_.rotate" e1 "" point_e1 (- jiaodu2 jiaodu1 ))  <br />      (command  "_.MOVE" e1 ""  point_e1  pause))<br />   <br />   )<br />   (princ)<br /> )