[求助]：新手请教问题..

freetime

请问一个组合体能用AutoCAD画出三面视图吗？

原图已经画出. 不知道是否可以自动生成三面视图？

新手问蠢问题了...@@ 多谢各位


如果不能直接生成~~那有什么方便的方法也请赐教

sz-gg

可以直接生成。在绘图菜单的实体下最后那个命令就是管这事的（前两个命令也可以做，做法有点不一样）。自己找一下，最好是看看书。

springhy

我不太清楚，你们最好也告诉我一下。

27182818284

三面视图是三视图吗，三视图可以用 mvsetup 自动形成，见演示：

jackson1003

谢谢，我还是不太懂！能不能直接画3w的啊，在组合一下啊！

lsjjm

参考这个程序:
(defun c:test ()                       
  (vl-cmdf "vpoint" "0,0,1")
  (vl-cmdf "ucs" "")
  (setvar "osmode" 0)
  (setq h0 5.9055  ;150
        h1 1.9685  ;50
        h2 3.937   ;100
        l3 1.1811  ;30
        l4 1.1811  ;30
        l5 1.5748  ;40
        l6 0.19685 ;5
        l7 1.1811  ;30
        r0 0.7874  ;20
        r1 0.7874  ;20
        l0 3.937   ;100
  )
  (setq p0 (getpoint "\nEnter the Base point: "))
  (setq l2 (* 1.414 (- h2 h1))
        l1 (- l0 l3))
  (vl-cmdf "pline" p0
           (setq p1 (polar p0 0 l0))
           (setq p2 (polar p1 (/ pi 2) h1))
           (setq p3 (polar p2 pi l1))
           (setq p4 (polar p3 (/ pi 4) l2))
           (setq p5 (polar p4 pi l3))
           (setq p6 (polar p5 (* pi 1.25) l2)) "c")
  (vl-cmdf "extrude" "l" "" h0 "")
  (setq e0 (entlast))
  (vl-cmdf "vpoint" "1,1,1")
  (vl-cmdf "ucsicon" "OR")
  (vl-cmdf "ucs" "o" p0 "ucs" "y" "90")
  (vl-cmdf "ucs" "o" (list (- h0) 0 0))
  (vl-cmdf "box" "" (list l5 l4) l0)
  (setq e1 (entlast))
  (vl-cmdf "box" (list h0 0)(list (- h0 l5) l4) l0)
  (setq e2 (entlast))
  (vl-cmdf "cylinder" (list (/ h0 2.0)(/ h1 2.0) 0) r0 l0)
  (setq e3 (entlast))
  (vl-cmdf "subtract" e0 "" e1 e2 e3 "")
  (setq e0 (entlast))
  (vl-cmdf "slice" e0 "" (list (+ l5 l6) 0 0)(list l5 l6 0)(list l5 l6 h2)
                         (list (/ h0 2.0)(/ h1 2.0)))
  (vl-cmdf "slice" e0 "" (list (- h0 l5 l6) 0 0)(list (- h0 l5) l6 0)
                         (list (- h0 l5) l6 h2)(list (/ h0 2.0)(/ h1 2.0)))
  (vl-cmdf "section" e0 "" "xy" (list 0 0 (/ l0 2.0)))
  (setq e (entlast))
  (vl-cmdf "ucs" "")
  (vl-cmdf "ucs" "o" p4 "ucs" "z" "135" "ucs" "y" "-90")
  (vl-cmdf "pline" (setq p1 (list (- (/ h0 2.0) r1) 0))
                   (setq p2 (polar p1 (/ pi 2) l7))
           "a" "d" (polar p2 (/ pi 2) l0)
                   (setq p3 (polar p2 0 (* 2 r1)))
               "l" (polar p3 (- (/ pi 2)) l7)
               "c")
  (vl-cmdf "extrude" "l" "" (- l3) "")
  (setq e4 (entlast))
  (vl-cmdf "subtract" e0 "" e4 "")
  (vl-cmdf "ucs" "")
  (vl-cmdf "vpoint" "0,-1,0")
  (vl-cmdf "vports" "s" "main")
  (vl-cmdf "vpoint" "0,0,-1")
  (vl-cmdf "vports" "s" "bottom")
  (vl-cmdf "vpoint" "1,0,0")
  (vl-cmdf "vports" "s" "right")
  (vl-cmdf "vpoint" "-1,-1,1")
  (vl-cmdf "vports" "s" "swiv")
  (vl-cmdf "vpoint" "1,0,0")
  (vl-cmdf "ucs" "v")
  (vl-cmdf "move" e "" (setq p0 (list 0 0))(polar p0 0 15))
  (vl-cmdf "zoom" "all")
  (vl-cmdf "hatch" "ansi31" "2" "0" e "")
  (vl-cmdf "pan" p0 (polar p0 0 20))
  (vl-cmdf "zoom" "c" (polar p0 0 15)(* 2 h0))
  (vl-cmdf "vports" "s" "sect")
  (if (= (getvar "tilemode") 1)(setvar "tilemode" 0))
  (vl-cmdf "pspace")
  (vl-cmdf "limits" "0,0" "12,9")
  (vl-cmdf "zoom" "all")
  (vl-cmdf "mview" "R" "main" "0,10.0" "2.5,6.0")
  (vl-cmdf "mview" "R" "bottom" "2.5,10.0" "5.0,6.0")
  (vl-cmdf "mview" "R" "right" "5.0,10.0" "7.5,6.0")
  (vl-cmdf "mview" "R" "sect" "0,2" "3.75,6.0")
  (vl-cmdf "mview" "R" "swiv" "3.75,2" "7.5,6.0")
  (princ)
)

buddhax

新手的问题都这么专业，我看不懂呀

kingdog

请问：如何下载呀，做得这么好
我点了下载没反应
谢谢27182818284指教

callion

可以下啊,右键另存为

cdhua001

最初由 kingdog 发布
[B]请问：如何下载呀，做得这么好
我点了下载没反应
谢谢27182818284指教 [/B]

用鼠标右键单击“点此下载到硬盘”，在弹出的右键菜单中选择“复制快捷方式”，打开任意一种下载工具，如：网际快车、网络蚂蚁等，新建任务，粘贴地址。OK。