请教高手！！！！！！！！

cbse_smy

我发现在VBA中处理有些问题显得十分复杂：


比如说炸开某一实体（指的是三维面和实体），很难做到。后来我想了一个办法，是先建立一个层，而后将该实体置于新建层中，关闭其它所有的层，然后向命令行发出一个Explode命令，再发出一个All，命令建立一个选择集，将屏幕上所有的东西加入进去，然后返回这个选择集。以此方法勉强可以完成炸开功能。


现在需要得一个线条上若干个点，比如一个样条曲线上的20个均分点的坐标，或是一个圆上的40个等分点。我的思路是将线条先置于新建的层中，然后发出等分命令。可惜的是发出Divide命令后，命令行提示选择实体，这样便难以解决。首先因为Divide命令只能是选择一个实体，所以无法使用All这个关键词。若输入点对于样条曲线、椭圆等有端点属性，而象圆只没有该属性甚至无法得到圆周的任一点，所以至此我难以解决。想请各个高手如何解决此问题。

莫名

圆用RetVal = PolarPoint(Point, Angle, Distance)


Point用圆心坐标，Angle可为任意角度, Distance用半径

雪山飞狐_lzh

看看置顶的曲线类

cbse_smy

二楼的说法在三维中是否有用。


在三维中，仅知道一个圆的圆心与直径，那么这个圆根本就是无法确定的。因为不知道它与XY、XZ平面的夹角。而VBA中所提供的圆的所有属性的总和都不能确定一个具体的空间圆。这是CAD中的致命弱点。诸如点、圆等各实体用Lisp命令可以在命令行得到各种信息，而在VBA的属性则无法得到，以致于我现在想开发许多程序不得不停下来。还有许多的CAD命令在VBA都没有具体的方法。比如说均分某一线条。我原以为先发出均分命令，均分某一线条，然后将各均分等点按句柄进行排序（均分时各点的先后顺充是按逆时针进行的），即可得到各等分点逆时针序列。然而失望的是虽然用Lisp命令可以察看点的句柄，却在VBA中没有，Autodesk公司真是太气人了，许多实体的信息都不反在VBA的属性中。