[原创]：弧形偏移程序

zhynt

2. 
   
3. (defun c:aof (/        maxc mnc cen midd ose od midzhouchang on oang newose)
   
4.   (prompt "\n选择大圆")
   
5.   (setq maxc (entget (car (entsel))))
   
6.   (prompt "\n选择小圆")
   
7.   (setq minc (entget (car (entsel))))
   
8.   (setq cen (cdr (assoc 10 maxc)))
   
9.   (setq        midd (+        (cdr (assoc 40 minc))
   
10.                 (/ (- (cdr (assoc 40 maxc)) (cdr (assoc 40 minc))) 2)
    
11.              )
    
12.   )
    
13.   (prompt "\n选择要偏移的线")
    
14.   (while (setq ose (entsel))
    
15.     (setq osec (car ose))
    
16.     (if        (= od nil)
    
17.       (setq od (getdist (cadr ose) "\n偏移距离:"))
    
18.     )
    
19.     (setq point (getpoint (cadr ose) "\n你想往哪边偏移?"))
    
20.     (setq midzhouchang (* 2 (* pi midd)))
    
21.     (setq on (/ midzhouchang od))
    
22.     (if        (> (angle (cadr ose) cen) (angle point cen))
    
23.       (setq oang (- 0 (/ 360 on)))
    
24.       (setq oang (/ 360 on))
    
25.     )
    
26.     (command "copy" osec "" "@" "@")
    
27.     (setq newose (entlast))
    
28.     (command "ROTATE" newose "" cen oang)
    
29.     (prompt "\n选择要偏移的线")
    
30.   )
    
31. )
    

<br /> (defun c:aof (/        maxc mnc cen midd ose od midzhouchang on oang newose)<br />   (prompt "\n选择大圆")<br />   (setq maxc (entget (car (entsel))))<br />   (prompt "\n选择小圆")<br />   (setq minc (entget (car (entsel))))<br />   (setq cen (cdr (assoc 10 maxc)))<br />   (setq        midd (+        (cdr (assoc 40 minc))<br />                 (/ (- (cdr (assoc 40 maxc)) (cdr (assoc 40 minc))) 2)<br />              )<br />   )<br />   (prompt "\n选择要偏移的线")<br />   (while (setq ose (entsel))<br />     (setq osec (car ose))<br />     (if        (= od nil)<br />       (setq od (getdist (cadr ose) "\n偏移距离:"))<br />     )<br />     (setq point (getpoint (cadr ose) "\n你想往哪边偏移?"))<br />     (setq midzhouchang (* 2 (* pi midd)))<br />     (setq on (/ midzhouchang od))<br />     (if        (> (angle (cadr ose) cen) (angle point cen))<br />       (setq oang (- 0 (/ 360 on)))<br />       (setq oang (/ 360 on))<br />     )<br />     (command "copy" osec "" "@" "@")<br />     (setq newose (entlast))<br />     (command "ROTATE" newose "" cen oang)<br />     (prompt "\n选择要偏移的线")<br />   )<br /> )<br />

coolzhb

最初由 zhynt 发布
[B][code]
(defun c:aof (/        maxc mnc cen midd ose od midzhouchang on oang newose)
  (prompt "\n选择大圆")
  (setq maxc (entget (car (entsel))))
  (prompt "\n选择小圆")
  (setq minc (entget (car (entse... [/B]

程序不错，我一般是用array命令，也可以实现选择拷贝！

andyhua5240

求求斑竹将其整理做成附件好吗，我是个外行不懂怎么用呀
我只会下载附件呀，谢谢斑竹大人了！
谢谢！

wkai

偏移的距离怎么规定？
两条线不平行呀~

zhynt

最初由 wkai 发布
[B]偏移的距离怎么规定？
两条线不平行呀~ [/B]

要不怎么叫弧形偏移呢？偏移的距离是两线的中点距离。

zhynt

最初由 coolzhb 发布
[B][QUOTE]最初由 zhynt 发布
[B][code]
(defun c:aof (/        maxc mnc cen midd ose od midzhouchang on oang newose)
  (prompt "\n选择大圆")
  (setq maxc (entget (car (entsel))))
  (prompt "\n选择小圆... [/B]

用array当然也可以，但是事先需要计算。

lt_zzy

我感觉程序应该加入判断大圆与小圆的位置关系，就是说小圆应该在大圆里面，否则不运行。
小圆在大圆外面的时候运行到一定的时候就会出现错误，我不知道小圆在大圆外面有没有实际意义。
另外要自动判断大圆与小圆，如果先选择了小圆，程序执行到一定的时候就出现错误。
还有偏移的距离应该象offset一样能够保存下来，第二次的时候可以不用输入值。这样使用更方便。

coolzhb

最初由 zhynt 发布
[B][QUOTE]最初由 coolzhb 发布
[B][QUOTE]最初由 zhynt 发布
[B][code]
(defun c:aof (/        maxc mnc cen midd ose od midzhouchang on oang newose)
  (prompt "\n选择大圆")
  (setq maxc (entget (... [/B]

我觉得应该是点中圆弧后，告诉几等分，距离程序由弧形的夹角算出，程序自动画出中间的线，或告诉程序偏移几次和距离，程序画出中间的线！

zhynt

我之所以这样做是因为画楼梯时，踏步宽度是决定因数，而不是夹角，我这里的夹角是程序根据宽度算出来的。当然了，让程序一次画好几个踏步是很简单的事。

coolzhb

最初由 zhynt 发布
[B]我之所以这样做是因为画楼梯时，踏步宽度是决定因数，而不是夹角，我这里的夹角是程序根据宽度算出来的。当然了，让程序一次画好几个踏步是很简单的事。 [/B]

对，我明白你的意思，我也想到了，就是你了输入踏步的宽度和级数，程序一次画出，如果级数不输入，则可以按照等分画出。

陌生人

试了一下. 发现得出的结果和偏移距离输入数值有偏差.
那个偏移距离是相对于什么位置的相对距离呢?
另外一次点一个,效率太低
程序的功效还有待提高

coolzhb

最初由 陌生人 发布
[B]试了一下. 发现得出的结果和偏移距离输入数值有偏差.
那个偏移距离是相对于什么位置的相对距离呢?
另外一次点一个,效率太低
程序的功效还有待提高 [/B]

是中点之间的距离！

wkai

好像不用选两个圆吧？
一个就行了

lsjjm

试了一下,不得要领. 能否告之两圆的关系? 同心?  弧形偏移有否适用性? 不清楚背景条件?

LUCAS

(setq oang (- 0 (/ 306 on))) 是360吧!