[推荐]： 90°管道弯头生成程序

黑白森林 · 发表于 2006-8-2 20:45:44

怎么用的，看不懂，新手请教

zexib · 发表于 2006-8-3 16:02:27

太复杂了.有没有简单一点的.

山里路人 · 发表于 2006-8-7 12:24:45

我用了一下，怎么感觉和圆角差不多？是不是我没弄清其它用法？

我是小悦 · 发表于 2006-8-7 15:31:14

怎么不能用，哪两应该怎样定点啊。

lsjzhj2004 · 发表于 2006-11-4 09:13:32

还有些不太好用，希望能改正一下，我过会贴上图来

桃白白 · 发表于 2007-3-22 10:28:23

老大，我试了，选任何的管径都出现：
Error:Please input data and try again.
这是怎么回事呢？？？
*-*a

2443725 · 发表于 2007-3-27 23:40:00

很不错,感谢分享~~

busuanshou · 发表于 2007-6-24 13:59:08

最初由 zexib 发布
[B]太复杂了.有没有简单一点的. [/B]

有~就是建一个画好的直径为1mm的90度弯头的dwg文件，然后用"insert"命令通过放大比例实现不同管径的弯头。
下面是我自己写的一个管道程序，很粗~只是为自己用而写的：
[php]
  (defun sxgd
   (/ kd p0 p1 p2 p3 p4 p5 p6 p7 p8 pp sn zj x1 y1 x2 y2 xg yg)
  (if (and (/= *bl nil) (/= *dwgscale nil)) ;;;*bl是绘图比例，这变量是在另一个函数里定义的。
(progn
   (setvar "cmdecho" 0)
   (setvar "regenmode" 0)
   (setvar "CELTSCALE" 1)
   (command "ltscale" (* *bl 10))
   (command "ortho"    "on"    "layer" "m"    "sxgd"
         "s"    "sxgd"    "lt"       "continuous"
         ""    "c"    "cyan" ""          ""
         "blipmode"    "off"    "osnap" "none"
      ) ;command

   (if (not *kd)
(setq *kd 100.0)
   )
   (princ "\n管道直径 <")
   (princ *kd)
   (setq kd (getreal ">:"))
   (if (not kd)
(setq kd *kd)
(setq *kd kd)
   )
   (setq p1 (getpoint "\n起始点:"))
   (while
(setq p2 (getpoint p1 "\n下一点:")
      zj (angle p1 p2)
      p3 (polar p1 (+ zj (* 0.5 pi)) (* 0.5 kd))
      p4 (polar p1 (+ zj (* 1.5 pi)) (* 0.5 kd))
      p5 (polar p2
(+ zj (* pi (/ 153.0 180.0)))
(/ (* 0.5 kd) (sin (/ (* 27.0 pi) 180.0)))
   )
      p6 (polar p2
(+ zj (* pi (/ 207.0 180.0)))
(/ (* 0.5 kd) (sin (/ (* 27.0 pi) 180.0)))
   )
      p0 (polar p5 (- zj (/ pi 2)) (* 0.5 kd))
      x1 (car p1)
      y1 (cadr p1)
      x2 (car p2)
      y2 (cadr p2)
) ;setq

   (command "line" p3 p5 "" "line" p4 p6 "")
   (command "layer" "m"    "zxx"    "s"    "zxx"    "lt"
   "dashdot"    ""    "c"    "green" ""
   ""    "line"  p1    p0    ""    "layer"
   "s"    "sxgd"  ""
   )
;command
   (initget 1)
   (setq pg  (getpoint p2 "\n弯头方向:")
         xg  (car pg)
         yg  (cadr pg)
         zjg (angle p2 pg)
   ) ;setq

   (if (= zj zjg)
   (progn
      (setq p7 (polar p2 (+ zj (* 0.5 pi)) (* 0.5 kd))
   p8 (polar p2 (+ zj (* 1.5 pi)) (* 0.5 kd))

      ) ;setq
      (command "line" p5 p7 "" "line" p6 p8 "")
      (command "layer" "m"    "zxx" "s"    "zxx" "lt"
      "dashdot"       ""    "c"    "green" ""
      ""    "line"  p0    p2    ""    "layer"
      "s"    "sxgd"  ""
      )
;command
   ) ;progn
   ) ;if

   (if (/= zjg zj)
   (progn
      (setq zj (/ (* zj 180.0) pi))

      (if (and (> x2 x1) (> xg x1) (> yg y1))
         (setq zj (- zj 90.0))
      ) ;if
      (if (and (> y2 y1) (< xg x1) (> yg y1))
         (setq zj (- zj 90.0))
      ) ;if
      (if (and (< xg x1) (< yg y2) (< yg y1))
         (setq zj (- zj 90.0))
      ) ;if
      (if (and (> xg x2) (> xg x1) (< yg y1))
         (setq zj (- zj 90.0))
      ) ;if

      (command "insert" "/cpd/block/gdwt" p2 kd kd zj)

      (setq p2 (polar p2
      zjg
      (/ (* 0.5 kd)
(/ (sin (/ (* 27.0 pi) 180.0))
   (cos (/ (* 27.0 pi) 180.0))
)
      )
      )
      ) ;setq
   ) ;progn
   ) ;if

   (setq p1 p2)
   ) ;while
   (command "layer" "s" 0 "")
   (command "osnap" "endp,mid,int,cen,qua,tan,per,nea")
   (command "ortho" "off")

   (princ)
) ;progn
  ) ;if
)

[/php]

下面为90度弯头的插入图：

西西李 · 发表于 2007-6-25 17:13:35

要是能用到满好，哦，厉害呢

gcabcde · 发表于 2007-6-25 17:25:26

是不錯，修改半徑也比較方便吧

nxpsir · 发表于 2007-7-4 09:49:39

条条道路通罗马，如果是AutoCAD2006以上版本，这类基本形状相似，参数不同的零部件做成动态块，调用起来也方便得很。下面给出一个演示：
上传的gif文件为什么不能显示？重新上传也一样，在别的论坛还从未遇到过。也没有看到哪有控制代码控制是否显示动画。
给出一链接看能不能显示出来：
http://bbs.icad.com.cn/attachmen ... f8eTWG1FBJidc6w.gif

ghz1120 · 发表于 2008-7-5 19:22:33

好东西下来用用

demon45 · 发表于 2008-7-8 19:40:50

分数不够，无法下载啊

731170263 · 发表于 2023-12-6 09:07:46

下来看看

kmliro_2017 · 发表于 2023-12-7 09:11:12

谢谢分享!!!!!!

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