[其他]：大家讨论一下怎么实现?

aeo

A转到B
已知A 的所有线 和  B中的轴线


假定A中的线都为直线,简单一点

我的意思是把图中的一个东西,打一下弯(变为b)已知:原物体和"要打多弯".

前生

这个东西比较有趣,大也应该是中心的红线的长度不变,外面的线拉长,内圈的线,压短

lsjjm

我编程做过直管弯曲的图形，但两端还保留直线（直管）。
能否说说你的具体要求和条件？

HillMan

可以把A 的轴线看做是B的轴线弧段的弦，
至于"要打多弯"也就是弧段的拱高了。
先写这么多，后面兄弟的继续讨论！！！
：）

aeo

最初由 lsjjm 发布
[B]我编程做过直管弯曲的图形，但两端还保留直线（直管）。
能否说说你的具体要求和条件？ [/B]

我不要三唯的

lsjjm

我那个也不是三唯的呀！说说你的具体要求和条件， 看能不能帮上你？

xazhji

中间不分段，倒是还可以，我成功试出来了。
用spline样条曲线命令，绘出直线，取起点、中点和终点。然后，用stretch拉伸，从左到右框选直线中点，可以达到你的目标。
至于其它编程，我想不大可能解决。

aeo

最初由 lsjjm 发布
[B]我那个也不是三唯的呀！说说你的具体要求和条件， 看能不能帮上你？ [/B]

1.选择物体:选直线部分的白线.
2.选择原始轴线:选直线部分的红线
3:选要转到的弧轴线:选弧的红线.

转过去.

dreamsky

好像思路上没有什么困难的,就是求定位点

haijiangl

最初由 aeo 发布
[B]

1.选择物体:选直线部分的白线.
2.选择原始轴线:选直线部分的红线
3:选要转到的弧轴线:选... [/B]

当我看到‘转过去’三个字的时候，实在是忍不住要喷饭，忒像三句半了！



贴了那么多天,没看到一行代码.
知道你是高手,也不至于要喷饭.

ydf7332462

1 交点垂直直线
2 对应关系不变(窗墙窗)

lsjjm

[最初由 aeo 发布
1.选择物体:选直线部分的白线.
2.选择原始轴线:选直线部分的红线
3:选要转到的弧轴线:选... [/B][/QUOTE]

搂主：
不是要你的操作要求。是弯曲的技术要求：半径，角度？
找你所画的那不是长度变了吗？

ydf7332462

由所选（右边）曲线轴线定

daziran

为了程序简洁，首先假定：
已知线都是 LINE线 弯曲的轴线是 ARC 。绘图结果都是ARC或LINE。

2. 
   
3. (print "命令：vline 由竖线画圆弧曲线； hline 由横线画斜线")
   
4. 
   
5. ;预定义函数：根据直线上两点坐标，求K与c。直线方程为：y=kx+c
   
6. ;                为了程序简洁，不进行两点是否重合的判断。
   
7. ;参数:两点对  pta  ptb
   
8. ;返回:k , c
   
9. (defun line_k_c (pta ptb  / k c)
   
10.   (setq xa (car pta ) ya (cadr pta))
    
11.   (setq xb (car ptb ) yb (cadr ptb))
    
12.   (setq k (/ (- ya yb) (- xa xb)))
    
13.   (setq c (- ya  (* k xa)))
    
14.   (list k c)
    
15. )
    
16. 
    
17. ;预定义函数：求直线与圆周线交点，只求一个最右点,为了程序简洁，不进行是否相交的的判断。
    
18. ;参数:
    
19. ;     圆方程为：  (x-a)^2 + (y-b)^2 = r^2
    
20. ;     直线方程为：y=kx+c
    
21. ;返回：交点pt  (右边的)
    
22. 
    
23. (defun line_ciecle_pt (a b r k c / x y aa bb cc)
    
24.   (setq aa (1+ (* k k)))
    
25.   (setq bb (- (* 2 c k) (* 2 a) (* 2 b k)))
    
26.   (setq cc (+ (* a a) (* (- c b) (- c b)) (* r r -1)))
    
27.   (setq x (/ (- (sqrt (- (* bb bb) (* 4 aa cc)))  bb)  (* 2 aa)))
    
28.   (setq y (+ (* k x) c))
    
29.   (list x y)
    
30. )
    
31. 
    
32. ;定义函数由竖线—画—圆弧曲线
    
33. (defun C:vline ()
    
34. 
    
35.   ;1选取竖轴线：
    
36.   (WHILE (not (setq sa (nentsel "\n选择竖轴线：")))) ; 选取竖轴线
    
37.   (setq ename (car sa))                        ; 竖轴线实体名称
    
38.   (setq elist (ENTGET ename))                ; 竖轴线实体数据表
    
39.   (SETQ x-sa (CADR (assoc 10 elist)))        ; 竖线X坐标
    
40. 
    
41. 
    
42.   ;2选取圆弧轴线
    
43.   (WHILE (not (setq sb (nentsel "\n选择圆弧轴线：")))) ; 选取圆弧轴线
    
44.   (setq ename (car sb))                        ; 圆弧轴线实体名称
    
45.   (setq elist (entget ename))                ; 圆弧轴线实体数据表
    
46.   (setq xc  (cadr (assoc 10 elist)))        ; 圆弧轴线中心X坐标
    
47.   (setq yc  (caddr (assoc 10 elist)))        ; 圆弧轴线中心Y坐标
    
48.   (setq rr   (cdr (assoc 40 elist)))         ; 圆弧轴线半径
    
49.   (setq ptc  (list xc yc))              ; 圆心
    
50.   
    
51.   ;3选取竖线
    
52.   (print "选择竖线(可多选)：")
    
53.   (setq ss (ssget))                        ; 选择竖线
    
54.   (setq nn (sslength ss))                ; 选择集中物体数量
    
55.   
    
56.   ;4循环处理
    
57.   (setq i -1)
    
58.   (repeat nn
    
59.     (setq i (1+ i))
    
60.     (setq ename (ssname ss i))                ; 第i个实体
    
61.     (setq elist (entget ename))                ; 第i个实体数据表
    
62.     (setq x-si  (cadr (assoc 10 elist)))        ; 第i个实体X坐标
    
63.     (setq ys-si (caddr (assoc 10 elist)))        ; 第i个实体起点Y坐标
    
64.     (SETQ ye-si (caddr (assoc 11 elist)))        ; 第i个实体终点Y坐标
    
65.     (setq yi-u  (min ys-si ye-si))           ; 第i个实体低点Y坐标
    
66.     (setq yi-t  (max ys-si ye-si))           ; 第i个实体高点Y坐标
    
67.    
    
68.     (setq dxi (- x-si x-sa))                ; 第i竖线与竖轴线的X坐标差
    
69.     ;求几何数据
    
70.     (setq ri (+ rr dxi))                        ; 第i弧线半径
    
71.    
    
72.     (setq pti-ub (line_ciecle_pt  xc yc rr 0 yi-u))  ;求圆弧轴线上低点坐标
    
73.     (setq s (line_k_c ptc pti-ub))
    
74.     (setq k (car s) c (cadr s))                     ;求圆心到pti-b直线k , c
    
75.     (setq pti-u (line_ciecle_pt  xc yc ri k c))     ;求第i圆弧线上低点坐标
    
76. 
    
77.     (setq pti-tb (line_ciecle_pt  xc yc rr 0 yi-t))  ;求圆弧轴线上高点坐标
    
78.     ;(setq s (line_k_c ptc pti-tb))
    
79.     ;(setq k (car s) c (cadr s))                     ;求圆心到pti-b直线k , c
    
80.     ;(setq pti-t (line_ciecle_pt  xc yc ri k c))     ;求第i圆弧线上高点坐标
    
81. 
    
82.     ;开始画弧
    
83.     (setq oldosnap (getvar "OSMODE"))
    
84.     (setvar "OSMODE" 0)
    
85.    
    
86.     (command "arc" "c" ptc pti-u pti-tb)
    
87.    
    
88.     (setvar "OSMODE" oldosnap)
    
89.   )  ;end repeat
    
90.   (princ)
    
91. );END DEFUN
    
92. 
    
93. 
    
94. 
    
95. ;定义函数由横线—画—斜线
    
96. (defun C:hline ()
    
97. 
    
98.   ;1选取竖轴线：
    
99.   (WHILE (not (setq sa (nentsel "\n选择竖轴线：")))) ; 选取竖轴线
    
100.   (setq ename (car sa))                        ; 竖轴线实体名称
     
101.   (setq elist (ENTGET ename))                ; 竖轴线实体数据表
     
102.   (SETQ x-sa (CADR (assoc 10 elist)))        ; 竖线X坐标
     
103. 
     
104.   ;2选取圆弧轴线
     
105.   (WHILE (not (setq sb (nentsel "\n选择圆弧轴线：")))) ; 选取圆弧轴线
     
106.   (setq ename (car sb))                        ; 圆弧轴线实体名称
     
107.   (setq elist (entget ename))                ; 圆弧轴线实体数据表
     
108.   (setq xc  (cadr (assoc 10 elist)))        ; 圆弧轴线中心X坐标
     
109.   (setq yc  (caddr (assoc 10 elist)))        ; 圆弧轴线中心Y坐标
     
110.   (setq rr   (cdr (assoc 40 elist)))         ; 圆弧轴线半径
     
111.   (setq ptc  (list xc yc))              ; 圆心
     
112.   
     
113.   ;3选取横线
     
114.   (print "选择横线(可多选)：")
     
115.   (setq ss (ssget))                        ; 选择竖线
     
116.   (setq nn (sslength ss))                ; 选择集中物体数量
     
117.   
     
118.   ;4循环处理
     
119.   (setq i -1)
     
120.   (repeat nn
     
121.     (setq i (1+ i))
     
122.     (setq ename (ssname ss i))                ; 第i个实体
     
123.     (setq elist (entget ename))                ; 第i个实体数据表
     
124.     (setq xs-si  (cadr (assoc 10 elist)))        ; 第i个实体起点X坐标
     
125.     (setq y-si  (caddr (assoc 10 elist)))        ; 第i个实体起点Y坐标
     
126.     (SETQ xe-si (cadr  (assoc 11 elist)))        ; 第i个实体终点X坐标
     
127.    
     
128.     (setq dxsi  (- xs-si  x-sa))                ; 第i横线起点与竖轴线的X坐标差
     
129.     (setq dxei  (- xe-si  x-sa))                ; 第i横线终点与竖轴线的X坐标差
     
130.     ;求几何数据
     
131.     (setq rsi (+ rr dxsi))                        ; 第i斜线起点  半径
     
132.     (setq rei (+ rr dxei))                        ; 第i斜线终点  半径
     
133.     (setq pti-b (line_ciecle_pt  xc yc rr 0 y-si))  ;求圆弧轴线上点坐标
     
134.     (setq s (line_k_c ptc pti-b))
     
135.     (setq k (car s) c (cadr s))                     ;求圆心到pti-b直线k , c
     
136.     (setq pti-s (line_ciecle_pt  xc yc rsi k c))     ;求第i斜线起点坐标
     
137.     (setq pti-e (line_ciecle_pt  xc yc rei k c))     ;求第i斜线终点坐标
     
138. 
     
139.     ;开始画斜线
     
140.     (setq oldosnap (getvar "OSMODE"))
     
141.     (setvar "OSMODE" 0)
     
142.    
     
143.     (command "line"  pti-s pti-e "")
     
144.    
     
145.     (setvar "OSMODE" oldosnap)
     
146.   )  ;end repeat
     
147.   (princ)
     
148. );END DEFUN
     

<br /> (print "命令：vline 由竖线画圆弧曲线； hline 由横线画斜线")<br /> <br /> ;预定义函数：根据直线上两点坐标，求K与c。直线方程为：y=kx+c<br /> ;                为了程序简洁，不进行两点是否重合的判断。<br /> ;参数:两点对  pta  ptb<br /> ;返回:k , c <br /> (defun line_k_c (pta ptb  / k c)<br />   (setq xa (car pta ) ya (cadr pta))<br />   (setq xb (car ptb ) yb (cadr ptb))<br />   (setq k (/ (- ya yb) (- xa xb)))<br />   (setq c (- ya  (* k xa)))<br />   (list k c)<br /> )<br /> <br /> ;预定义函数：求直线与圆周线交点，只求一个最右点,为了程序简洁，不进行是否相交的的判断。<br /> ;参数:<br /> ;     圆方程为：  (x-a)^2 + (y-b)^2 = r^2<br /> ;     直线方程为：y=kx+c<br /> ;返回：交点pt  (右边的)<br /> <br /> (defun line_ciecle_pt (a b r k c / x y aa bb cc)<br />   (setq aa (1+ (* k k)))<br />   (setq bb (- (* 2 c k) (* 2 a) (* 2 b k)))<br />   (setq cc (+ (* a a) (* (- c b) (- c b)) (* r r -1)))<br />   (setq x (/ (- (sqrt (- (* bb bb) (* 4 aa cc)))  bb)  (* 2 aa)))<br />   (setq y (+ (* k x) c))<br />   (list x y)<br /> )<br /> <br /> ;定义函数由竖线—画—圆弧曲线<br /> (defun C:vline ()<br /> <br />   ;1选取竖轴线：<br />   (WHILE (not (setq sa (nentsel "\n选择竖轴线：")))) ; 选取竖轴线<br />   (setq ename (car sa))                        ; 竖轴线实体名称<br />   (setq elist (ENTGET ename))                ; 竖轴线实体数据表<br />   (SETQ x-sa (CADR (assoc 10 elist)))        ; 竖线X坐标<br /> <br /> <br />   ;2选取圆弧轴线<br />   (WHILE (not (setq sb (nentsel "\n选择圆弧轴线：")))) ; 选取圆弧轴线<br />   (setq ename (car sb))                        ; 圆弧轴线实体名称<br />   (setq elist (entget ename))                ; 圆弧轴线实体数据表<br />   (setq xc  (cadr (assoc 10 elist)))        ; 圆弧轴线中心X坐标<br />   (setq yc  (caddr (assoc 10 elist)))        ; 圆弧轴线中心Y坐标<br />   (setq rr   (cdr (assoc 40 elist)))         ; 圆弧轴线半径<br />   (setq ptc  (list xc yc))              ; 圆心<br />   <br />   ;3选取竖线<br />   (print "选择竖线(可多选)：")<br />   (setq ss (ssget))                        ; 选择竖线<br />   (setq nn (sslength ss))                ; 选择集中物体数量<br />   <br />   ;4循环处理<br />   (setq i -1)<br />   (repeat nn<br />     (setq i (1+ i))<br />     (setq ename (ssname ss i))                ; 第i个实体<br />     (setq elist (entget ename))                ; 第i个实体数据表<br />     (setq x-si  (cadr (assoc 10 elist)))        ; 第i个实体X坐标<br />     (setq ys-si (caddr (assoc 10 elist)))        ; 第i个实体起点Y坐标<br />     (SETQ ye-si (caddr (assoc 11 elist)))        ; 第i个实体终点Y坐标<br />     (setq yi-u  (min ys-si ye-si))           ; 第i个实体低点Y坐标<br />     (setq yi-t  (max ys-si ye-si))           ; 第i个实体高点Y坐标<br />     <br />     (setq dxi (- x-si x-sa))                ; 第i竖线与竖轴线的X坐标差<br />     ;求几何数据<br />     (setq ri (+ rr dxi))                        ; 第i弧线半径<br />     <br />     (setq pti-ub (line_ciecle_pt  xc yc rr 0 yi-u))  ;求圆弧轴线上低点坐标<br />     (setq s (line_k_c ptc pti-ub))<br />     (setq k (car s) c (cadr s))                     ;求圆心到pti-b直线k , c<br />     (setq pti-u (line_ciecle_pt  xc yc ri k c))     ;求第i圆弧线上低点坐标<br /> <br />     (setq pti-tb (line_ciecle_pt  xc yc rr 0 yi-t))  ;求圆弧轴线上高点坐标<br />     ;(setq s (line_k_c ptc pti-tb))<br />     ;(setq k (car s) c (cadr s))                     ;求圆心到pti-b直线k , c<br />     ;(setq pti-t (line_ciecle_pt  xc yc ri k c))     ;求第i圆弧线上高点坐标<br /> <br />     ;开始画弧<br />     (setq oldosnap (getvar "OSMODE"))<br />     (setvar "OSMODE" 0)<br />     <br />     (command "arc" "c" ptc pti-u pti-tb)<br />     <br />     (setvar "OSMODE" oldosnap)<br />   )  ;end repeat<br />   (princ)<br /> );END DEFUN<br /> <br /> <br /> <br /> ;定义函数由横线—画—斜线<br /> (defun C:hline ()<br /> <br />   ;1选取竖轴线：<br />   (WHILE (not (setq sa (nentsel "\n选择竖轴线：")))) ; 选取竖轴线<br />   (setq ename (car sa))                        ; 竖轴线实体名称<br />   (setq elist (ENTGET ename))                ; 竖轴线实体数据表<br />   (SETQ x-sa (CADR (assoc 10 elist)))        ; 竖线X坐标<br /> <br />   ;2选取圆弧轴线<br />   (WHILE (not (setq sb (nentsel "\n选择圆弧轴线：")))) ; 选取圆弧轴线<br />   (setq ename (car sb))                        ; 圆弧轴线实体名称<br />   (setq elist (entget ename))                ; 圆弧轴线实体数据表<br />   (setq xc  (cadr (assoc 10 elist)))        ; 圆弧轴线中心X坐标<br />   (setq yc  (caddr (assoc 10 elist)))        ; 圆弧轴线中心Y坐标<br />   (setq rr   (cdr (assoc 40 elist)))         ; 圆弧轴线半径<br />   (setq ptc  (list xc yc))              ; 圆心<br />   <br />   ;3选取横线<br />   (print "选择横线(可多选)：")<br />   (setq ss (ssget))                        ; 选择竖线<br />   (setq nn (sslength ss))                ; 选择集中物体数量<br />   <br />   ;4循环处理<br />   (setq i -1)<br />   (repeat nn<br />     (setq i (1+ i))<br />     (setq ename (ssname ss i))                ; 第i个实体<br />     (setq elist (entget ename))                ; 第i个实体数据表<br />     (setq xs-si  (cadr (assoc 10 elist)))        ; 第i个实体起点X坐标<br />     (setq y-si  (caddr (assoc 10 elist)))        ; 第i个实体起点Y坐标<br />     (SETQ xe-si (cadr  (assoc 11 elist)))        ; 第i个实体终点X坐标<br />     <br />     (setq dxsi  (- xs-si  x-sa))                ; 第i横线起点与竖轴线的X坐标差<br />     (setq dxei  (- xe-si  x-sa))                ; 第i横线终点与竖轴线的X坐标差<br />     ;求几何数据<br />     (setq rsi (+ rr dxsi))                        ; 第i斜线起点  半径<br />     (setq rei (+ rr dxei))                        ; 第i斜线终点  半径<br />     (setq pti-b (line_ciecle_pt  xc yc rr 0 y-si))  ;求圆弧轴线上点坐标<br />     (setq s (line_k_c ptc pti-b))<br />     (setq k (car s) c (cadr s))                     ;求圆心到pti-b直线k , c<br />     (setq pti-s (line_ciecle_pt  xc yc rsi k c))     ;求第i斜线起点坐标<br />     (setq pti-e (line_ciecle_pt  xc yc rei k c))     ;求第i斜线终点坐标<br /> <br />     ;开始画斜线<br />     (setq oldosnap (getvar "OSMODE"))<br />     (setvar "OSMODE" 0)<br />     <br />     (command "line"  pti-s pti-e "")<br />     <br />     (setvar "OSMODE" oldosnap)<br />   )  ;end repeat<br />   (princ)<br /> );END DEFUN<br />

daziran

如果增加判断代码，上述画竖线（弧线）和横线（斜线）的程序也可以合并。