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

jjww123

这个图怎么定义位面？是个正方形。。

帮我写个代码吧。。。把它给画出来。。谢谢了~~辛苦

woaishuijia

在CAD中画三维，总的来说有三种方法，第一种是在三维空间画线和二维填充（你现在应该就是在用这种方法），说老实话，这是一种最不好用的方法，画法麻烦，而且画出的图形不具有面积质量特性，现在极少有人用这种方法画三维；第二种是三维面，三维面又分为两种，一种是三维网格（在2006及以前版本称为曲面），另一种是2007及以后版本的曲面。据说在2010版本中还会增加新的内容。这种方法，特别是三维网格，可以画出任意形状的三维图形，因为它的形状完全是由表面点坐标控制的。但也正因为这个原因，在图形界面画网格很麻烦，更多的是依赖二次开发编程。唐昕晨版主有一个教程帖，就是用网格画床单。还有从事大地测量的朋友用网格画地貌等等；第三种方法是画三维实体，这种方法是最好用的，画法简单，而且可以查询面积质量特性。网上的CAD三维作品绝大部分属于这一种。
6 R* u, {) H/ g( p7 m+ Q" @对你这个图来说，练习使用第一种方法未尝不可，主要思路就是把弯曲的表面分解成多个小的三角形或四边形平面，在程序中计算这些小平面的顶点，再根据每个平面的顶点坐标变换UCS并创建二维填充，由这些小的填充组成整个表面。
创建网格也是可行的，思路和上面差不多，也是把整个表面分解开来看，计算出所有控制点的坐标后创建PolyfaceMesh对象或PolygonMesh对象。
" y7 c" F0 |3 G创建三维实体是最简单的。只要把上或下端面做成面域，用一条棱线做路径拉伸即可，方法是AddExtrudedSolidAlongPath

以上这些方法说起来简单，用起来却是千变万化的。一个好的学习方法是：在图形界面大量练习CAD三维做图方法，熟练掌握CAD三维方法和思路，然后再尝试用程序代码实现它。

jjww123

版主。。请问  用AddExtrudedSolidAlongPath
+ g! R! g8 N0 t4 w% \7 h
* E2 T  W; ^0 ]这个图形的上下面是正方形。。怎么做面域？
2 e6 a+ j# H  X6 c0 c. Z+ Z2 ]
- }9 v" ~" m) O0 O4 @! h+ j9 Z可以写个代码画这个图给我么？

woaishuijia

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

jjww123

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

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

woaishuijia

方法有多种，随便说几个吧
$ a# k5 Q! }5 Q% [3 n, Z) r1、用“弯曲长方体”的copy方法复制出另一个“弯曲长方体”，再用它的move方法把它移到需要的位置
2、做面域时做两个，并集，沿路径拉伸，可以一次得到两个“弯曲长方体”
3、把代码中做“弯曲长方体”的部分写成一个单独的过程（子程序），用点坐标做参数，按不同的点调用两次，得到两个“弯曲长方体”