弯管大样

tzfcn · 发表于 2016-10-7 14:53:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 tzfcn 于 2016-12-4 08:05 编辑

;; wgdy(弯管大样)
(defun c:wgdy (/ ilst lst0 lst1 lst2)
(xyp-Start)
(defun main-pro (/ p1 k)
(while (setq bp (getpoint "\n基点<退出>: ")) ;精华
(setq
x0 (car bp)
y0 (cadr bp)
)
(xyp-Group0)
(setq s0 (entlast))
(wgdye)
(setq ss (xyp-SSelEntnext s0))
(xyp-Com-Mirror ss bp (polar bp 0 (* pi D)) nil)
(xyp-Group1)
(xyp-Group1)
)
)
(defun ali1 ()
(xyp-Dcl-Gettile '("k0"))
(cond ((member k0 '("0"))
(xyp-Show-Sld "k0" "D:\\我的文档\\1幻灯片\\弯管大样图解")
)
)
)
(xyp-initSet
'(D r n a m k0)
'(108 500 5 90 100 "0")
)
(setq
ilst '(
":row{"
("k0" "" "ib" "-2" "30" "" "(princ)" "(ali1)") ;
"spacer;"
("" "弯头参数" ":boxed_column{")
("D" "钢管外径(mm)" "int" "6")
("r" "钢管中心切线半径:r" "int" "6")
("n" "弯折次数:n" "int" "6")
("a" "弯曲角度:a" "int" "6")
("m" "钢管等分点数:m" "int" "6")
"spacer;"
"}"
"}"
("" "" "user" "(ali1)")
)
)
(if (= (xyp-Dcl-Init Ilst "【弯管大样】" t) 1)
(main-pro)
)
(xyp-End)
)[sell]
;; 弯管大样图
(defun wgdye ()
  (if (= a nil)
(setq a (* (/ a 180.) pi))
  )
  (setq
p (/ pi (* n 4)) ;单端截面旋转角度
r0 (/ d 2.)
r1 (- r r0)    ;内交点半径
r2 (+ r r0)    ;外交点半径
s1 (* r1 (/ (sin p) (cos p)))  ;单节半内弦
s2 (* r2 (/ (sin p) (cos p)))  ;单节半外弦
s3 (+ s1 y0)
s4 (+ s2 y0)
i 0       ;管内计算角度初始值
j (/ (* 2 pi) m) ;等分角度
x (/ (* pi d) m) ;点间隔
x1 x0       ;圆周起点位置
y1 (+ y0 s1)
p1 (list x1 y1) ;圆周起点坐标
tanp (/ (sin p) (cos p))
  )
  (if (< s1 10)
(alert "\n内弯宽度小于10mm，确认？")
  )
  (xyp-LINE bp p1)
  (repeat m
(setq i  (+ i j)
   k1 (* tanp (- r0 (* (cos i) r0))) ;等分点增设值
   x2 (+ x1 x)
   y2 (+ y0 s1 k1)
)
(setq p2 (list x2 y2))
(xyp-LINE p1 p2)
(setq p1 p2
   x1 x2
   y1 y2
)
  )
  (setq zp (polar bp 0 (* pi d)))
  (xyp-LINE p2 zp)
  (xyp-LINE bp zp)
  (princ)
)[/sell]

marting · 发表于 2016-10-7 15:57:21

楼主，缺XYP前缀的函数，请补上。

tzfcn · 发表于 2016-10-7 19:29:57

http://0093bb.l33.yunpan.cn/lk/cAtYGrhq9Acs5 密码：7e8a
http://8efbda.l33.yunpan.cn/lk/Q7w6tX5R2u3k8 密码：3b2d

tzfcn · 发表于 2016-10-7 19:32:25

marting 发表于 2016-10-7 15:57

http://0093bb.l33.yunpan.cn/lk/cAtYGrhq9Acs5 密码：7e8a
http://8efbda.l33.yunpan.cn/lk/Q7w6tX5R2u3k8 密码：3b2d

lisp_beginner · 发表于 2016-10-7 20:48:16

tzfcn 发表于 2016-10-7 19:32

楼主，这是你原创的吗？这不是院长的东西嘛，还有你提高的下载地址是需要注册才能用的吧？

cable2004 · 发表于 2016-10-7 22:38:35

原创的吗？原创的吗？原创的吗？

tzfcn · 发表于 2016-10-8 00:37:49

本帖最后由 tzfcn 于 2016-10-8 03:31 编辑

lisp_beginner 发表于 2016-10-7 20:48

大样图代码是我写的，工具箱是院长的。

看来你没有用过院长的工具箱。

tzfcn · 发表于 2016-10-8 00:39:58

本帖最后由 tzfcn 于 2016-10-8 03:30 编辑

cable2004 发表于 2016-10-7 22:38

大样图代码是我写的，工具箱是院长的。
院长不可能写这样差的代码，我的只是能用，不简练。

tzfcn · 发表于 2016-10-8 00:47:51

marting 发表于 2016-10-7 15:57

院长的工具箱：
http://0093bb.l33.yunpan.cn/lk/cAtYGrhq9Acs5 密码：7e8a
http://8efbda.l33.yunpan.cn/lk/Q7w6tX5R2u3k8 密码：3b2d

newer · 发表于 2016-10-8 02:23:19

tzfcn 发表于 2016-10-8 00:39

说清楚就好了，欢迎多发帖和大家交流。

tzfcn · 发表于 2016-10-8 03:08:33

本帖最后由 tzfcn 于 2016-10-8 03:34 编辑

newer 发表于 2016-10-8 02:23

这很难懂吗？我感觉交待的很清楚呀。

我只是用函数（工具），函数（工具）是院长编写（制造）的。

{:1_9:}{:1_9:}{:1_9:}{:1_9:}{:1_9:}

{:1_9:}{:1_9:}{:1_9:}{:1_9:}{:1_9:}

tzfcn · 发表于 2016-10-8 03:16:59

上次要用这样的代码，在网上没有找到，所以就自己写了一个，抛砖引玉了。

tzfcn · 发表于 2016-10-8 03:18:23

快捷回复这地方能用，其它的地方不行

WhoCanSay · 发表于 2016-10-8 08:18:07

没有看出你上面2个图片有什么关联。你是怎么放样的呀，不是锯成一段一段的拼起来的吗？

yoyoho · 发表于 2016-10-8 09:18:58

感谢 tzfcn 分享程序!!!!

[原创] 弯管大样

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

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