电缆水平偏移弯曲线绘制

yjwht · 发表于前天 19:08

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

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

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

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

tiancao100 · 发表于前天 22:48

CAD 命令：BLEND 一样的效果

yjwht · 发表于昨天 06:47

tiancao100 发表于 2025-5-21 22:48
CAD 命令：BLEND 一样的效果

浩辰没有BLEND这个命令。AutoCAD有BLEND，但不能确保弯曲半径为指定值。不过这个BLEND在不需指定弯曲半径时很有用

tranque · 发表于前天 19:16

赞，感谢分享

iszc · 发表于昨天 07:50

感谢分享

yjwht · 发表于昨天 09:16

再补充一个电缆垂直偏移曲线绘制程序

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

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

tiancao100 · 发表于昨天 10:01

yjwht 发表于 2025-5-22 06:47
浩辰没有BLEND这个命令。AutoCAD有BLEND，但不能确保弯曲半径为指定值。不过这个BLEND在不需指定弯曲半径 ...

这么命令还有个缺点，就是不能继承连接线的特性，比如图层，线宽等。

账号		自动登录	找回密码
密码			注册

[源码] 电缆水平偏移弯曲线绘制

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

浏览过的版块