听了qeelee的忠告，我也下了个inventor 8，但是教程是阴文的，好冷，很难下手啊！ 10楼的仁兄，您的图是怎样画出来的，我正想画这样的图。
希望有简单的方法，我想绘制复杂的动力站房管路系统图。 其实很简单只是让计算机做了那部分重复性的工作.
;====================================<BR>;本程序主要用于三维圆管的批量生成。<BR>;本程序运行时坐标系必须是世界坐标系。<BR>;编程 ljc<BR>;====================================<BR>(defun arc()<BR> <BR> (setq bj (assoc 40 q))<BR> (setq bj (cdr bj))<BR> (setq cen(list bj 0))<BR> (command "ucs" "ob" mz)<BR> (command "ucs" "x" "90" )<BR> (command "circle" cen wbj)<BR> (setq wyuan(entlast))<BR> (command "region" wyuan "")<BR> (setq wmian(entlast))<BR> (command "circle" cen nbj)<BR> (setq nyuan(entlast))<BR> (command "region" nyuan "")<BR> (setq nmian(entlast))<BR> (command "_SUBTRACT" wmian "" nmian "")<BR> (setq mian(entlast))<BR> (command "_extrude" mian "" "p" mz)<BR> (command "ucs" "" "")<BR>)<BR>;--------------------------------<BR>(defun line()
<BR> (setq qd(assoc 10 q))<BR> (setq qd (cdr qd))<BR> (setq zd(assoc 11 q))<BR> (setq zd(cdr zd))<BR> (command "_cylinder" qd wbj "c" zd)<BR> (setq w (entlast))<BR> (command "_cylinder" qd nbj "c" zd)<BR> (setq ww (entlast))<BR> (command "_SUBTRACT" w "" ww "")<BR> (command)<BR> (command)<BR>)<BR>;------------------------------------<BR>(defun c:gg()<BR> (SETQ CECOLOR(GETVAR "CECOLOR"))<BR> (SETVAR "CECOLOR" "RED")<BR> (setq gj(getreal "管径"))<BR> (setq bh(getreal "壁厚"))<BR> (setq wbj(/ gj 2))<BR> (setq nbj(/ (- gj (* bh 2)) 2))<BR> (setq ss (ssget)); '( (-4 . "<or")<BR> ; (0 . "arc")<BR> ; (0 . "line")<BR> ; (-4 . "or>" )<BR> ; )<BR> ; )<BR> ;)<BR> (setq n (sslength ss))<BR> (setq a 0)<BR>(repeat n<BR> (setq mz (ssname ss a))<BR> (setq q(entget mz))<BR> (SETQ SX(assoc 0 q))<BR> (SETQ SXX(cdr SX))<BR> (cond<BR> ( (= "ARC" SXX) (arc) )<BR> ( (= "LINE" SXX) (line) ) <BR> ) <BR> (setq a (+ a 1))<BR> )<BR> <BR> (SETVAR "CECOLOR" CECOLOR)<BR>(COMMAND)<BR>(COMMAND)<BR> )<BR> 怎么不能画弯头？ 程序怎么用呀，我不懂。交交我 我加载了程序，怎么用？ 这个程序只能把圆弧和直线变成管....而且还不太稳定．．．．希望高手完善．．．具体操作是---加载后输入"gg"....如下......
让我好找啊！
求助
想把所有直线的拐点处(两条直线的端点相交)生成圆角，以便最后使用14楼大哥的lisp生成管道图。不知道lisp程序如何编写批量圆角生成啊？我是菜鸟，希望大家施以援手啊