lisp代码画槽钢断面

tzfcn

(defun c:caog(/ xh h b d t1 r r1 pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 l1 l2 l3 tana1 lx o1 o2 o3 o4 a1 a2 a21 a21-)
  (initget "c5 c6.3 c6.5 c8 c10 c12.0 c12.6 c14a c14b c16a c16b c18a c18b c20a c20b c22a c22b c25a c25b c25c c27a c27b c27c c28a c28b c28c c30a c30b c30c c32a c32b c32c c36a c36b c36c c40a c40b c40c")
  (setq xh (getkword "\n请输入槽钢型号
\nc5 c6.3 c6.5 c8 c10 c12.0 c12.6 c14a c14b c16a c16b c18a c18b
\nc20a c20b c22a c22b c25a c25b c25c c27a c27b c27c c28a c28b c28c
\nc30a c30b c30c c32a c32b c32c c36a c36b c36c c40a c40b c40c："))
  (if     (null xh)     (setq xh "c10"))
  (cond
    ((= xh "c5")    (setq h 50.0 b 37.0 d 4.5 t1 7.0 r 7.0 r1 3.5))
    ((= xh "c6.3")  (setq h 63.0 b 40.0 d 4.8 t1 7.5 r 7.5 r1 3.8))
    ((= xh "c6.5")  (setq h 65.0 b 40.0 d 4.8 t1 7.5 r 7.5 r1 3.8))
    ((= xh "c8")    (setq h 80.0 b 43.0 d 5.0 t1 8.0 r 8.0 r1 4.0))
    ((= xh "c10")   (setq h 100.0 b 48.0 d 5.3 t1 8.5 r 8.5 r1 4.2))
    ((= xh "c12.0") (setq h 120.0 b 53.0 d 5.5 t1 9.0 r 9.0 r1 4.5))
    ((= xh "c12.6") (setq h 126.0 b 53.0 d 5.5 t1 9.0 r 9.0 r1 4.5))
    ((= xh "c14a")  (setq h 140.0 b 58.0 d 6.0 t1 9.5 r 9.5 r1 4.8))
    ((= xh "c14b")  (setq h 140.0 b 60.0 d 8.0 t1 9.5 r 9.5 r1 4.8))
    ((= xh "c16a")  (setq h 160.0 b 63.0 d 6.5 t1 10.0 r 10.0 r1 5.0))
    ((= xh "c16b")  (setq h 160.0 b 65.0 d 8.5 t1 10.0 r 10.0 r1 5.0))
    ((= xh "c18a")  (setq h 180.0 b 68.0 d 7.0 t1 10.5 r 10.5 r1 5.2))
    ((= xh "c18b")  (setq h 180.0 b 70.0 d 9.0 t1 10.5 r 10.5 r1 5.2))
    ((= xh "c20a")  (setq h 200.0 b 73.0 d 7.0 t1 11.0 r 11.0 r1 5.5))
    ((= xh "c20b")  (setq h 200.0 b 75.0 d 9.0 t1 11.0 r 11.0 r1 5.5))
    ((= xh "c22a")  (setq h 220.0 b 77.0 d 7.0 t1 11.5 r 11.5 r1 5.8))
    ((= xh "c22b")  (setq h 220.0 b 79.0 d 9.0 t1 11.5 r 11.5 r1 5.8))
    ((= xh "c24a")  (setq h 240.0 b 78.0 d 7.0 t1 12.0 r 12.0 r1 6.0))
    ((= xh "c24b")  (setq h 240.0 b 80.0 d 9.0 t1 12.0 r 12.0 r1 6.0))
    ((= xh "c24c")  (setq h 240.0 b 82.0 d 11.0 t1 12.0 r 12.0 r1 6.0))
    ((= xh "c25a")  (setq h 250.0 b 78.0 d 7.0 t1 12.0 r 12.0 r1 6.0))
    ((= xh "c25b")  (setq h 250.0 b 80.0 d 9.0 t1 12.0 r 12.0 r1 6.0))
    ((= xh "c25c")  (setq h 250.0 b 82.0 d 11.0 t1 12.0 r 12.0 r1 6.0))
    ((= xh "c27a")  (setq h 270.0 b 82.0 d 7.5 t1 12.5 r 12.5 r1 6.2))
    ((= xh "c27b")  (setq h 270.0 b 84.0 d 9.5 t1 12.5 r 12.5 r1 6.2))
    ((= xh "c27c")  (setq h 270.0 b 86.0 d 11.5 t1 12.5 r 12.5 r1 6.2))
    ((= xh "c28a")  (setq h 280.0 b 82.0 d 7.5 t1 12.5 r 12.5 r1 6.2))
    ((= xh "c28b")  (setq h 280.0 b 84.0 d 9.5 t1 12.5 r 12.5 r1 6.2))
    ((= xh "c28c")  (setq h 280.0 b 86.0 d 11.5 t1 12.5 r 12.5 r1 6.2))
    ((= xh "c30a")  (setq h 300.0 b 88.0 d 8.0 t1 13.5 r 13.5 r1 6.8))
    ((= xh "c30b")  (setq h 300.0 b 90.0 d 10.0 t1 13.5 r 13.5 r1 6.8))
    ((= xh "c30c")  (setq h 300.0 b 92.0 d 12.0 t1 13.5 r 13.5 r1 6.8))
    ((= xh "c32a")  (setq h 320.0 b 88.0 d 8.0 t1 14.0 r 14.0 r1 7.0))
    ((= xh "c32b")  (setq h 320.0 b 90.0 d 10.0 t1 14.0 r 14.0 r1 7.0))
    ((= xh "c32c")  (setq h 320.0 b 92.0 d 12.0 t1 14.0 r 14.0 r1 7.0))
    ((= xh "c36a")  (setq h 360.0 b 96.0 d 9.0 t1 16.0 r 16.0 r1 8.0))
    ((= xh "c36b")  (setq h 360.0 b 98.0 d 11.0 t1 16.0 r 16.0 r1 8.0))
    ((= xh "c36c")  (setq h 360.0 b 100.0 d 13.0 t1 16.0 r 16.0 r1 8.0))
    ((= xh "c40a")  (setq h 400.0 b 100.0 d 10.5 t1 18.0 r 18.0 r1 9.0))
    ((= xh "c40b")  (setq h 400.0 b 102.0 d 12.5 t1 18.0 r 18.0 r1 9.0))
    ((= xh "c40c")  (setq h 400.0 b 104.0 d 14.5 t1 18.0 r 18.0 r1 9.0))
  )
  (setq
    x1 (getpoint "请输入起点坐标：")
    pt1 (polar (polar x1 0 b) (/ pi 2.0) h)
  )
  ;槽钢截图绘图参数
  ;(if (null pt1) (setq pt1 '(500.0 500.0)))
  ;绘图关键点坐标计算
  [sell=20]  (setq
    a1 (atan (/ 1.0 10.0))
    a2 (- (/ pi 2.0) a1)
    a21 (* (/ a2 pi) 180.0)
    a21- (- 0 a21)
    a3 (* (/ pi 2.0) 3)
    h1 (* r1 (sin a2))
    l2 (* r1 (cos a2));圆弧缺宽
    l1 (- r1 l2);圆弧宽
    l3 (* r (sin a1));腹板缺宽
    tana1 (/ (sin a1) (cos a1))
    h2 (* (+(- b d r r1) l2 l3) tana1)
    h3 (* r (cos a1))
    lx (/ h2 (sin a1))
    pt2 (polar pt1 pi b)
    pt3 (polar pt2 (/ (* 3 pi) 2) h)
    pt4 (polar pt3 0 b)
    pt5 (polar (polar pt4 pi r1) a2 r1)
    pt6 (polar pt5 (- pi a1) lx)
    pt7 (polar (polar pt6 (/ pi 2) (* r (cos a1))) pi (- r (* r (sin a1))))
    pt8 (polar pt7 (/ pi 2) (- h (* (+ h1 h2 h3) 2)))
    pt9 (polar (polar pt1 pi (+ (- b d r) (* r (sin a1)))) a3 (+ h1 h2))
    pt10 (polar (polar pt1 pi l1) a3 (* r1 (sin a2)))
    o1 (polar pt4 pi r1)
    o2 (polar (polar pt3 0 (+ d r)) (/ pi 2)(+ h1 h2))
    o3 (polar (polar pt2 0 (+ d r)) (/ (* pi 3) 2) (+ h1 h2 h3))
    o4 (polar pt1 pi r1)
  )
[/sell]
  (setvar "OSMODE" 0)
  (command "pline" pt1 pt2 pt3 pt4 "arc" "a" a21 pt5 "l" pt6 "a" "a" (- 0.0 a21) pt7 "l" pt8 "arc" "a" (- 0.0 a21) pt9 "l" pt10 "a" "a" a21 pt1 "")
  (setvar "OSMODE" 1);用napset函数恢复您图档中执行您新定义的函数前的捕捉模式)
  (prompt "\n雄鹰 画槽钢代码 2018-7-20 tyc tl中学录取日")
  (princ)
)

newer

楼主，这代码贴的不美观啊，你想收费，部分做个函数，单独贴，其他的用贴代码的方法，多好啊

贴代码的方法见在你的代码包括在【code=lisp】你的代码 【/code】

实际使用时候把【】 改成 []

tzfcn

newer 发表于 2018-8-23 18:46
楼主，这代码贴的不美观啊，你想收费，部分做个函数，单独贴，其他的用贴代码的方法，多好啊

贴代码的方 ...

没有经验呀，谢谢指教。

snight523

; 错误: 输入的列表有缺陷

tzfcn

snight523 发表于 2019-8-26 20:51
; 错误: 输入的列表有缺陷

要安装e派工具箱。

snight523

tzfcn 发表于 2019-8-27 06:19
要安装e派工具箱。

用你的工字钢lisp就能正常用，这个不行，一会儿下载个工具箱试试。

MUYIY

1. 学习学习

复制代码