设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP函数]：管道平面安装阀门LISP程序
返回列表 发新帖
查看: 919|回复: 4

[LISP函数]：管道平面安装阀门LISP程序

[复制链接]
cyscxj
发表于 2005-8-1 16:44:25 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
大家知道，在二维平面上，在管线LINE上插入一个阀门很费事，法兰呀，法门自身的结构比如阀体长度、手轮、法兰厚度等等。严格按照手册的尺寸去作，好长时间才能完成一个完整的操作。
将阀门的参数一次性的写在程序中间，调用一次，全部完成。并且断开管线LINE。
希望下面的小LISP能为同行提供方便，抛砖引玉。
阀门, 法兰, 管线

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xshrimp

已领礼包: 208个

财富等级: 日进斗金
发表于 2005-8-1 21:50:13 | 显示全部楼层
真好需要这方面的内容.希望楼主能提供完整的程序.包括调用菜单中的文件内容.谢谢.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cyscxj
 楼主| 发表于 2005-8-1 22:40:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
带手轮和不带手轮的平面阀门 上面的是侧视阀门 这个程序自动断线  希望大家批评指正
  我的QQ86667941    email:    cyskx@163.com
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-8-2 20:49:44 | 显示全部楼层
修改的阀门程序 c:fm
  2. [FONT=courier new];;;阀门 c:fm
  3. ;;;Z41_16Cc.lsp
  4. ;;;1998.11.30

  6. (load "xyp_lib")
  7. ;|加载通用函数(可在签名栏直接下载)
  8. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  9. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
  10. 1.在acad.lsp中增加(load"xyp_lib")
  11. 2.在每个程序内增加(load"xyp_lib")
  12. 3.在command下，输入(load"xyp_lib")
  13. 4.在菜单.mnl中增加(load"xyp_lib")
  14. 5.将xyp_lib.vlx文件直接拽到cad屏幕
  15. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;

  17. (defun c:fm ()
  18.   (cmdla0)
  19.   (setq dn (UREAL 7 "" "\n输入公称直径" dn))
  20.   (while (not (or (= dn 15)
  21.                   (= dn 20)
  22.                   (= dn 25)
  23.                   (= dn 32.0)
  24.                   (= dn 40)
  25.                   (= dn 50)
  26.                   (= dn 65)
  27.                   (= dn 80)
  28.                   (= dn 100)
  29.                   (= dn 125)
  30.                   (= dn 150)
  31.                   (= dn 200)
  32.                   (= dn 250)
  33.                   (= dn 300)
  34.                   (= dn 350)
  35.                   (= dn 400)
  36.               )
  37.          )
  38.     (setq dn (UREAL 7 "" "\n输入公称直径" dn))
  39.   )
  40.   (setq        p0    (getpoint "\n给出插入点 : ")
  41.         angl1 (getangle p0 "\n手轮方向 : ")
  42.   )
  43.   (cond
  44. ;;;阀长 法兰外径 法兰厚度 手轮高度 丝杆 手轮外径 法兰内孔
  45. ;;;0    1        2        3        4    5        6
  46. ;;;L    D        b        H1       H2   D0       DW
  47.     ((= dn 15) (setq fli (list 130 95 18 150 170 120 22.0)))
  48.     ((= dn 20) (setq fli (list 150 105 18 170 190 140 27)))
  49.     ((= dn 25) (setq fli (list 160 115 18 185 205 160 32.0)))
  50.     ((= dn 32.0) (setq fli (list 180 135 20 230 270 180 40)))
  51.     ((= dn 40) (setq fli (list 200 145 20 260 310 200 48)))
  52.     ((= dn 50) (setq fli (list 250 160 20 358 438 240 65)))
  53.     ((= dn 65) (setq fli (list 265 180 20 373 452 240 80)))
  54.     ((= dn 80) (setq fli (list 280 195 22 435 530 280 93)))
  55.     ((= dn 100) (setq fli (list 300 215 24 500 620 320 114)))
  56.     ((= dn 125) (setq fli (list 325 245 26 614 756 360 136)))
  57.     ((= dn 150) (setq fli (list 350 280 28 674 845 360 163)))
  58.     ((= dn 200) (setq fli (list 400 335 30 818 1041 400 223)))
  59.     ((= dn 250) (setq fli (list 450 405 32 969 1244 450 277)))
  60.     ((= dn 300) (setq fli (list 500 460 34 1145 1474 560 329)))
  61.     ((= dn 350) (setq fli (list 550 520 38 1280 1663 640 381)))
  62.     ((= dn 400) (setq fli (list 600 580 40 1450 1886 720 430)))
  63.     (t (princ "输入错误") (exit))
  64.   )
  65.   (mkla "阀门" 3)
  66.   (command "circle" p0 "d" (nth 1 fli))
  67.   (command "circle" p0 "d" (nth 6 fli))
  68.   (command "line"
  69.            (polar p0 angl1 (nth 4 fli))
  70.            (polar p0 angl1 (/ (nth 1 fli) 2.0))
  71.            ""
  72.   )
  73.   (setq pp (polar p0 angl1 (nth 3 fli)))
  74.   (command "line"
  75.            (polar pp (+ angl1 (/ pi 2.0)) (/ (nth 5 fli) 2.0))
  76.            (polar pp (- angl1 (/ pi 2.0)) (/ (nth 5 fli) 2.0))
  77.            ""
  78.   )
  79.   (command "line"
  80.            pp
  81.            (osnap (polar p0
  82.                          (- (+ angl1 (/ (* 11 pi) 180.0)) (/ pi 2.0))
  83.                          (/ (nth 1 fli) 2.0)
  84.                   )
  85.                   "tan"
  86.            )
  87.            ""
  88.   )
  89.   (command "line"
  90.            pp
  91.            (osnap (polar p0
  92.                          (- (+ angl1 (/ (* 169 pi) 180.0)) (/ pi 2.0))
  93.                          (/ (nth 1 fli) 2.0)
  94.                   )
  95.                   "tan"
  96.            )
  97.            ""
  98.   )
  99.   (cmdla1)
  100. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ynjzlzd
发表于 2006-3-28 12:36:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
有了各位提供的这几个小程序,我的画图速度又提高了许多,发自内心感谢各位.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-4 01:32 , Processed in 0.180098 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表