半圆拱、1/3、1/4、2/5拱绘制程序

tzfcn

(defun c:gong(/ baspt b gdsjd gdhjd xyhjd dyhbj x1 x2 x3 dr sr p1 o1 o3 p3 o2 p4 p5)
  (setq baspt (getpoint "\n请输入起拱基准点坐标："))
  (setq b (getdist "\n请输入巷道宽度："))
  (initget "A B C D")
  (setq gongtype(getkword"\nA-1/3拱,B-1/4拱,C-2/5拱,D-半圆拱，<A>:"))
  (if(null gongtype)(setq gongtype "A"))
  (cond
    ((= gongtype"A")(gonggao_1/3))
    ((= gongtype"B")(gonggao_1/4))
    ((= gongtype"C")(gonggao_2/5))
    ((= gongtype"D")(gonggao_1/2))
  )
[sell=50];计算小圆心角
  (setq gdsjd (atan (/ gongk 2)));起拱点到拱顶的竖角度
  (setq gdhjd (atan (/ 2.0 gongk)));起拱点到拱顶的横角度
  (setq xyhjd (- pi (* (+ (/ gdsjd 2) gdhjd) 2)));小圆弧角度
  (setq dyhbj (/ (- pi (* xyhjd 2)) 2));大圆弧半角
  ;计算大圆半径
  (setq x1 (sin xyhjd));小圆弧角度正弦值
  (setq x2 (sin dyhbj));大圆弧半角正弦值
  (setq x3 (cos dyhbj));大圆弧半角余弦值
  (setq dr
                (/
                        (* b (- (/ gongg gongk) (/ x1 (* 2.0 (- gongg x2)))))
                        (- gongg (/ (* x2 x1) (- gongg x2)) x3)
                )               
        );计算大圆半径结束
  ;(princ "\n大半径是：")(princ dr)(princ "米")
  ;计算小圆半径
  (setq sr
                (/
                        (- (/ b 2.0) (* dr (sin dyhbj)))
                        (- gongg (sin dyhbj))
                )               
        );计算小圆半径结束
  ;(princ "\n小半径是：")(princ sr)(princ "米")
  ;计算关键点坐标
  ;右起拱点
  (setq p1 (polar baspt 0 b))
  ;左小圆圆心
  (setq o1 (polar baspt 0 sr))
  ;大圆圆心
  (setq o3 (polar p1 (- 0 pi) sr))
  ;起拱点中点
  (setq p2 (polar baspt 0 (/ b 2.0)))
  ;拱顶点
  (setq p3 (polar p2 (/ pi 2.0) (/ b gongk)))
  ;右小圆圆心
  (setq o2 (polar p3 (- 0 (/ pi 2.0)) dr))
  ;左弧交点
  (setq p4 (polar o2 (+ (/ pi 2.0) dyhbj) dr))
  ;右弧交点
  (setq p5 (polar o2 (- (/ pi 2.0) dyhbj) dr))
  ;以下开始画拱线
  (setq 捕捉模式 (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "_ARC" "c" o3 p1 p5)
  (command "_arc" "c" o2 p5 p4)
  (command "_arc" "c" o1 p4 baspt)
  (setvar "OSMODE" 捕捉模式);用napset函数恢复您图档中执行您新定义的函数前的捕捉模式)
  (prompt "\n雄鹰1/3拱高版，2015-8-2")
  (prompt "\n雄鹰多选择版，2016-11-16，手机10分钟")
  (princ)
)[/sell]


(defun gonggao_1/3()
  (setq
    gongk 3.0
    gongg 1.0
  )
)
(defun gonggao_1/4()
  (setq
    gongk 4.0
    gongg 1.0
  )
)
(defun gonggao_2/5()
  (setq
    gongk 2.5
    gongg 1.0
  )
)
(defun gonggao_1/2()
  (setq
    gongk 2.0
    gongg 1.0
  )
)

newer

补充下三心拱的受力性能

特性

任意三心拱，是指三心拱的拱宽和拱高可以任意指定，但拱形本身必须具备下列特点：

1.拱作为受力结构的主要特性，是要将覆在其上的载荷作用所产生的内应力，沿拱上任意点的切线方向传递至拱（或墙脚），而拱上任意点的径向应力（拉或压应力）为0，这在理论上就必须要求拱的三段圆弧上的任意点的切线均应垂直通过该点的圆弧半径，包括大小三段弧相切之切点的切线必须垂直大小圆弧半径的重合点。不具备这一特性，则不是一个标准的拱形。一心拱即半圆拱和弧形拱具备这一特性，仅是三心拱的特例。

2.大拱的顶部圆弧之圆心在拱的对称轴线上，而两侧小圆弧之圆心的联线被对称轴线垂直平分。

3.拱之大小圆弧相内切，通过其切点的切线垂直大小圆弧半径之重合线。

ll_j

Lisphk 发表于 2016-11-23 09:30

查了一下，这个程序应该是绘制巷道的三心拱程序，和公路隧道工程中使用的断面形式相近，受力状态的确不算最好，但综合平衡了断面的功能和受力，也算是常用的断面，是我孤陋寡闻了，不好意思。本人已经不太画图了，所以也不购买这个程序了，贴上网络下载的三心拱图解绘制方法，供大家理解。

qqqincccken

谢谢提供，有钱来看看！！！

cable2004

啥也不说了，感谢楼主分享哇！

yjch

好好学习天天向上

ll_j

发源码值得鼓励，但这个程序开价有点高了吧？
楼主画出的是椭圆拱，但这是最不常用的拱，不符合力学原理，所以多用在欧式装饰。
正常使用的符合力学特征的拱有圆弧拱、抛物线拱、悬链线拱等，花样很多，真要做好这样的程序还是有点内容的。如果楼主有兴趣，不妨试试看。

forb0217

真的太强大了，编个程序就可以自动画了。

Lisphk

ll_j 发表于 2016-11-23 09:01

教授，楼主这种拱也是符合力学传递的吧，力也应该是沿着切线方向传递到下面基础的吧，应该是他们巷道专业常用的拱吧。

ray7891

学习学习，感谢提供。

tzfcn

这个代码的优点是可以任意扩充你想要的任意高宽比的拱。
只要修改
(defun gonggao_1/2()
  (setq
    gongk 2.0
    gongg 1.0
  )
)
中gongk 2.0的数值部分2.0为自己想的要数值并增加选项部分：
(initget "A B C D")
  (setq gongtype(getkword"\nA-1/3拱,B-1/4拱,C-2/5拱,D-半圆拱，<A>:"))
即可，其余部分不用作任何调整，所以，可扩充性特别好。

wx_hqk0nJhJ

我想学习学习

雷鑫

看看是什么内容