有做过管道布置图各位兄弟请进！

suxiubin

我是搞管道设计的,以平面图为主,立面图次之,详图为辅,不可能全成立体图,可以用立体建模,终究还成平面图.

pmagicer

10楼的cad爱好者好像用cad用得不错，但好像用cad画管道象你这样的话，好像很花时间的哦！


听了qeelee的忠告，我也下了个inventor 8，但是教程是阴文的，好冷，很难下手啊！

wuyanhai

10楼的仁兄，您的图是怎样画出来的，我正想画这样的图。


希望有简单的方法，我想绘制复杂的动力站房管路系统图。

ljcgq

其实很简单只是让计算机做了那部分重复性的工作. ;====================================
;本程序主要用于三维圆管的批量生成。
;本程序运行时坐标系必须是世界坐标系。
;编程 ljc
;====================================
(defun arc()

(setq bj (assoc 40 q))
(setq bj (cdr bj))
(setq cen(list bj 0))
(command "ucs" "ob" mz)
(command "ucs" "x" "90" )
(command "circle" cen wbj)
(setq wyuan(entlast))
(command "region" wyuan "")
(setq wmian(entlast))
(command "circle" cen nbj)
(setq nyuan(entlast))
(command "region" nyuan "")
(setq nmian(entlast))
(command "_SUBTRACT" wmian "" nmian "")
(setq mian(entlast))
(command "_extrude" mian "" "p" mz)
(command "ucs" "" "")
)
;--------------------------------
(defun line()
(setq qd(assoc 10 q))
(setq qd (cdr qd))
(setq zd(assoc 11 q))
(setq zd(cdr zd))
(command "_cylinder" qd wbj "c" zd)
(setq w (entlast))
(command "_cylinder" qd nbj "c" zd)
(setq ww (entlast))
(command "_SUBTRACT" w "" ww "")
(command)
(command)
)
;------------------------------------
(defun c:gg()
(SETQ CECOLOR(GETVAR "CECOLOR"))
(SETVAR "CECOLOR" "RED")
(setq gj(getreal "管径"))
(setq bh(getreal "壁厚"))
(setq wbj(/ gj 2))
(setq nbj(/ (- gj (* bh 2)) 2))
(setq ss (ssget)); '( (-4 . "<or")
; (0 . "arc")
; (0 . "line")
; (-4 . "or>" )
; )
; )
;)
(setq n (sslength ss))
(setq a 0)
(repeat n
(setq mz (ssname ss a))
(setq q(entget mz))
(SETQ SX(assoc 0 q))
(SETQ SXX(cdr SX))
(cond
( (= "ARC" SXX) (arc) )
( (= "LINE" SXX) (line) )
)
(setq a (+ a 1))
)

(SETVAR "CECOLOR" CECOLOR)
(COMMAND)
(COMMAND)
)

liuxinmin

怎么不能画弯头？

ds11

程序怎么用呀，我不懂。交交我

ds11

我加载了程序，怎么用？

ljcgq

这个程序只能把圆弧和直线变成管....而且还不太稳定．．．．希望高手完善．．．具体操作是---加载后输入"gg"....如下......

backarmy

让我好找啊！

tonky

想把所有直线的拐点处(两条直线的端点相交)生成圆角，以便最后使用14楼大哥的lisp生成管道图。不知道lisp程序如何编写批量圆角生成啊？






我是菜鸟，希望大家施以援手啊