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

jjww123

这个图怎么定义位面？是个正方形。。
. X3 [7 R3 f/ _' ~: l; b+ ~
" T% T- z& e8 g& ^# u帮我写个代码吧。。。把它给画出来。。谢谢了~~辛苦

woaishuijia

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

1 @9 r$ E6 ^0 ~! L0 p# d! ]2 J) ]以上这些方法说起来简单，用起来却是千变万化的。一个好的学习方法是：在图形界面大量练习CAD三维做图方法，熟练掌握CAD三维方法和思路，然后再尝试用程序代码实现它。

jjww123

版主。。请问  用AddExtrudedSolidAlongPath
! h2 C7 }7 f7 i3 q; W5 ]9 K! l
& J) f- Y4 \# K7 P3 F4 Z这个图形的上下面是正方形。。怎么做面域？
5 n! b! |' e9 ^4 I
, J% D+ u7 @/ G9 H7 v可以写个代码画这个图给我么？

woaishuijia

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

jjww123

做一条这种弯曲长方体的可以了。。
7 j+ n( a3 g! q! O* c
% N7 E) ~2 [, Q; n如何做两条平行的弯曲长方体呢？

woaishuijia

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