电缆水平偏移弯曲线绘制

yjwht

按规范，电缆有最大允许弯曲半径要求，电缆水平偏移时弯曲段投影长度公式为L≥(4RX-X^2)^0.5。
要反复多次使用该要求绘制电缆弯曲线，不胜其扰，因此采用lisp编写了一段程序来自动绘制。该

程序以测试在浩辰CAD2019、AutoCAD2021上没有问题。

1. ;指定电缆允许弯曲半径及水平偏移起止点，自动绘制电缆弯曲线
   
2. (defun c:tt()
   
3.   (setq v1 (getvar "osmode"))
   
4.   (setq v2 (getvar "cmdecho"))
   
5.   (setq v3 (getvar "blipmode"))
   
6.   (setq R (getreal "\n请输入电缆允许弯曲半径(mm)："))
   
7.   (setq p1 (getpoint "\n请指定水平弯曲起点："))
   
8.   (setq p2 (getpoint "\n请指定水平弯曲止点："))
   
9.   (if (> (car p1) (car p2))
   
10.     (progn (setq p0 p1) (setq p1 p2) (setq p2 p0)))
    
11.   (setvar "osmode" 0)
    
12.   (setvar "cmdecho" 0)
    
13.   (setvar "blipmode" 0)
    
14.   (setq p3 (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)))
    
15.   (setq X (abs (- (cadr p1) (cadr p2)))) ;计算偏移距离
    
16.   (if (> X (* 4 R))
    
17.     (progn
    
18.       (princ "\n偏移距离过大！")
    
19.       (exit)
    
20.     )
    
21.     (setq L (sqrt (- (* 4 R X) (* X X)))) ;计算弯曲段投影长度
    
22.   )
    
23.   (setq p4 (list (- (car p3) (* L 0.5)) (cadr p1))) ;圆弧1起点
    
24.   (setq p5 (list (+ (car p3) (* L 0.5)) (cadr p2))) ;圆弧2起点
    
25.   (if (> (cadr p2) (cadr p1))
    
26.     (progn
    
27.       (setq p6 (polar p4 (* pi 0.5) R)) ;圆弧圆心1
    
28.       (setq p7 (polar p5 (* pi -0.5) R)) ;圆弧圆心2
    
29.       (command "arc" "c" p6 p4 p3)
    
30.       (command "arc" "c" p7 p5 p3)
    
31.       (if (< L (- (car p2) (car p1)))
    
32.   (progn
    
33.     (command "line" p1 p4 "")
    
34.     (command "line" p2 p5 "")
    
35.         )
    
36.       )
    
37.     )
    
38.     (progn
    
39.       (setq p6 (polar p4 (* pi -0.5) R)) ;圆弧圆心1
    
40.       (setq p7 (polar p5 (* pi 0.5) R)) ;圆弧圆心2
    
41.       (command "arc" "c" p6 p3 p4)
    
42.       (command "arc" "c" p7 p3 p5)
    
43.       (if (< L (- (car p2) (car p1)))
    
44.   (progn
    
45.     (command "line" p4 p1 "")
    
46.     (command "line" p5 p2 "")
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (setvar "osmode" v1)
    
52.   (setvar "cmdecho" v2)
    
53.   (setvar "blipmode" v3)
    
54. )

;指定电缆允许弯曲半径及水平偏移起止点，自动绘制电缆弯曲线<br /> (defun c:tt()<br />   (setq v1 (getvar "osmode"))<br />   (setq v2 (getvar "cmdecho"))<br />   (setq v3 (getvar "blipmode"))<br />   (setq R (getreal "\n请输入电缆允许弯曲半径(mm)："))<br />   (setq p1 (getpoint "\n请指定水平弯曲起点："))<br />   (setq p2 (getpoint "\n请指定水平弯曲止点："))<br />   (if (> (car p1) (car p2))<br />     (progn (setq p0 p1) (setq p1 p2) (setq p2 p0)))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setq p3 (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)))<br />   (setq X (abs (- (cadr p1) (cadr p2)))) ;计算偏移距离<br />   (if (> X (* 4 R))<br />     (progn <br />       (princ "\n偏移距离过大！")<br />       (exit)<br />     )<br />     (setq L (sqrt (- (* 4 R X) (* X X)))) ;计算弯曲段投影长度<br />   )<br />   (setq p4 (list (- (car p3) (* L 0.5)) (cadr p1))) ;圆弧1起点<br />   (setq p5 (list (+ (car p3) (* L 0.5)) (cadr p2))) ;圆弧2起点<br />   (if (> (cadr p2) (cadr p1))<br />     (progn<br />       (setq p6 (polar p4 (* pi 0.5) R)) ;圆弧圆心1<br />       (setq p7 (polar p5 (* pi -0.5) R)) ;圆弧圆心2<br />       (command "arc" "c" p6 p4 p3)<br />       (command "arc" "c" p7 p5 p3)<br />       (if (< L (- (car p2) (car p1)))<br />   (progn<br />     (command "line" p1 p4 "")<br />     (command "line" p2 p5 "")<br />         )<br />       )<br />     )<br />     (progn<br />       (setq p6 (polar p4 (* pi -0.5) R)) ;圆弧圆心1<br />       (setq p7 (polar p5 (* pi 0.5) R)) ;圆弧圆心2<br />       (command "arc" "c" p6 p3 p4)<br />       (command "arc" "c" p7 p3 p5)<br />       (if (< L (- (car p2) (car p1)))<br />   (progn<br />     (command "line" p4 p1 "")<br />     (command "line" p5 p2 "")<br />         )<br />       )<br />     )<br />   )<br />   (setvar "osmode" v1)<br />   (setvar "cmdecho" v2)<br />   (setvar "blipmode" v3)<br /> )

tranque

赞，感谢分享

tiancao100

CAD 命令：BLEND 一样的效果