版主您好~~麻烦帮我用VBA画个图。。

jjww123

这个图怎么定义位面？是个正方形。。
* Z; T7 B$ _5 g+ [' l
; d, {; w* O7 u% `1 D0 i% M; N帮我写个代码吧。。。把它给画出来。。谢谢了~~辛苦

woaishuijia

在CAD中画三维，总的来说有三种方法，第一种是在三维空间画线和二维填充（你现在应该就是在用这种方法），说老实话，这是一种最不好用的方法，画法麻烦，而且画出的图形不具有面积质量特性，现在极少有人用这种方法画三维；第二种是三维面，三维面又分为两种，一种是三维网格（在2006及以前版本称为曲面），另一种是2007及以后版本的曲面。据说在2010版本中还会增加新的内容。这种方法，特别是三维网格，可以画出任意形状的三维图形，因为它的形状完全是由表面点坐标控制的。但也正因为这个原因，在图形界面画网格很麻烦，更多的是依赖二次开发编程。唐昕晨版主有一个教程帖，就是用网格画床单。还有从事大地测量的朋友用网格画地貌等等；第三种方法是画三维实体，这种方法是最好用的，画法简单，而且可以查询面积质量特性。网上的CAD三维作品绝大部分属于这一种。
对你这个图来说，练习使用第一种方法未尝不可，主要思路就是把弯曲的表面分解成多个小的三角形或四边形平面，在程序中计算这些小平面的顶点，再根据每个平面的顶点坐标变换UCS并创建二维填充，由这些小的填充组成整个表面。
7 V* ]2 ]9 I( T  g5 ^创建网格也是可行的，思路和上面差不多，也是把整个表面分解开来看，计算出所有控制点的坐标后创建PolyfaceMesh对象或PolygonMesh对象。
  y7 t  k; X2 H0 a# o/ Y- C创建三维实体是最简单的。只要把上或下端面做成面域，用一条棱线做路径拉伸即可，方法是AddExtrudedSolidAlongPath
9 l0 |. }9 v- u3 I# ?5 ^+ I; l
0 N, |! j5 h& {% o+ K' U! t以上这些方法说起来简单，用起来却是千变万化的。一个好的学习方法是：在图形界面大量练习CAD三维做图方法，熟练掌握CAD三维方法和思路，然后再尝试用程序代码实现它。

jjww123

版主。。请问  用AddExtrudedSolidAlongPath

% I$ ~: @6 p1 G" b/ C这个图形的上下面是正方形。。怎么做面域？
2 I/ |$ Q* @1 h
1 k$ r( k7 ]1 }- w" w/ I6 ~0 i可以写个代码画这个图给我么？

woaishuijia

参见这个帖子能不能用VBA把下面2个图帮我做一下

jjww123

做一条这种弯曲长方体的可以了。。

如何做两条平行的弯曲长方体呢？

woaishuijia

方法有多种，随便说几个吧
6 W2 J( E/ H1 x# x% j6 E1、用“弯曲长方体”的copy方法复制出另一个“弯曲长方体”，再用它的move方法把它移到需要的位置
2、做面域时做两个，并集，沿路径拉伸，可以一次得到两个“弯曲长方体”
3、把代码中做“弯曲长方体”的部分写成一个单独的过程（子程序），用点坐标做参数，按不同的点调用两次，得到两个“弯曲长方体”