版主。。请问如何在程序中添加 真实 模式呢？命令如何实现。。。

jjww123

如题。。
8 Z3 Y) }- Z3 f6 |  J
; ]0 D9 A: j* d4 J- K, [
; |7 t/ K3 B+ y3 a$ \使画出来的图直接出现在“真实”模式下

/ v) P( s7 D: J/ F+ y! B' ?
如何画下图这种有斜度的长方体。。。
8 O3 G, N5 T2 c7 H9 z
( Y, P1 v- P3 p% K[ 本帖最后由 jjww123 于 2009-2-7 19:43 编辑 ]

镜子·空瓶

1：输入SHA回车。有多种显示模式供你选择。。
2：画出你的图形截面，再用拉伸EXT。

% M' x" n& j3 S  O/ ~[ 本帖最后由 镜子·空瓶 于 2009-2-7 20:32 编辑 ]

woaishuijia

第一个问题：用sendcommand方法调用CAD命令
# |! C/ M: D+ d! t6 RSendCommand "vscurrent r "

第二个问题：沿路径拉伸，AddExtrudedSolidAlongPath方法

jjww123

如何换色填充实体呢？
* r$ L# c' B' Y6 ^& G6 a
% C: r  }7 ~8 l+ @7 A  J5 I% r( F2 l
比如原先系统默认是用黑色填充。。现在我想换一个颜色。。如何弄~~

, h. L$ Q% Z' ]# O0 F5 \# \1 [
3 o$ G# A3 |6 _+ l关于画图。。具体用命令怎么实现。。能写个代码给我参考下么？

woaishuijia

在VBA中设置和修改对象颜色有新旧两种方法。
9 \, C1 c9 R, j在2004以前的老版本，图形、组和图层对象有一个Color属性，其值为0到256，分别代表ByBlock（0）、ByLayer（256）和255种索引颜色，每种颜色对应的索引值可以在CAD图形界面的颜色对话框中看到。
9 ^( m5 ?. W0 P% h( Z7 e改变对象颜色只需要修改对象的Color属性为目标颜色的索引值就可以了。
& b" @% x% X5 k$ v! k在2004以后版本，由于CAD的颜色增加了真彩色，而Color属性只能使用索引颜色，因而被Autodesk宣布废除了，在新版本的对象浏览器中也看不到Color属性了（但事实上在新版本中仍然可以使用）。代替Color属性的是TrueColor属性。对TrueColor属性赋值需要引用AcCmColor对象，AcCmColor对象的属性主要包括ColorIndex（相当于老版本的Color属性，使用索引颜色）、Red、Green、Blue（红、绿、蓝三种颜色分量，每个属性值分别为0到255）和EntityColor（长整形数，代表32位颜色）。
改变颜色时，首先要声明一个AcCmColor对象，把其颜色改为目标颜色，然后再把其赋值给图形、组和图层对象的TrueColor属性。
下面的代码是使用Color属性的例子
6 b8 F& P  X: `9 k1 Z, ^

1. 
   & u: J* C9 M+ X1 `' i4 D
2. Sub A()
   
3.     '声明一个二维填充对象和所用的点
   
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   4 |' A' H9 M! y3 H: i- S' ?1 F) T1 k
5.     '定义二维填充顶点
   $ K7 u7 V$ a4 `$ j3 A4 d
6.     P2(0) = 10
   % t8 B# x4 r5 O$ n3 u5 a* r
7.     P3(0) = 10: P3(1) = 10
   . Q' x+ _& C; O9 u' B
8.     '创建二维填充
   
9.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
   
10.     '二维填充的颜色改为红色。其中acRed是CAD七种标准颜色之一“红色”的命名常量，相当于1
    
11.     S.color = acRed
    . {& s% o  a/ b; d2 z  r) {& [8 X
12. End Sub
    

复制代码

下面的代码是使用TrueColor属性的例子

1. 
   
2. Sub A()
   8 P# U# t: J# h0 B( ~6 S
3.     '声明一个二维填充对象和所用的点
   
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   % B# z* }4 u/ S# K) n$ r
5.     '声明并新建一个颜色
   / k) X# @8 X6 K8 q" K
6.     Dim C As New AcadAcCmColor
   $ @9 M# b/ e4 B) H( s: x9 A( J8 S1 Z
7.     '定义二维填充顶点
   
8.     P2(0) = 10
   
9.     P3(0) = 10: P3(1) = 10
   . N% ~# J  h' C
10.     '创建二维填充
    ! Z' Y* I, M6 \1 g5 r
11.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
    
12.     '颜色C使用CAD索引颜色“红色”
    
13.     C.ColorIndex = acRed
    
14.     '二维填充的颜色改为颜色C
    
15.     S.TrueColor = C
    9 e% P4 K. e6 a) k" n+ F* d3 E; W
16. End Sub
    

复制代码