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

jjww123

如题。。
) Q  a1 f  O  R! [* V

* B6 p+ E; e6 w3 G使画出来的图直接出现在“真实”模式下
4 O0 }( W' q' u
! }9 R) G6 k) n* f6 \# M3 Y, x
如何画下图这种有斜度的长方体。。。

[ 本帖最后由 jjww123 于 2009-2-7 19:43 编辑 ]

镜子·空瓶

1：输入SHA回车。有多种显示模式供你选择。。
2：画出你的图形截面，再用拉伸EXT。
3 {8 r5 `6 U6 g- P6 a* c  L+ [( ~7 s
" D' F! z; X% y# f6 J[ 本帖最后由 镜子·空瓶 于 2009-2-7 20:32 编辑 ]

woaishuijia

第一个问题：用sendcommand方法调用CAD命令
' _" X5 o' F9 MSendCommand "vscurrent r "
+ [# g6 g+ R/ R) T
第二个问题：沿路径拉伸，AddExtrudedSolidAlongPath方法

jjww123

如何换色填充实体呢？
7 I7 {& C; a5 Y1 Z2 z+ E% P3 S) D
7 b2 {4 F+ p, i; l" E+ o0 H) |
4 e2 S$ s; ^' m* {比如原先系统默认是用黑色填充。。现在我想换一个颜色。。如何弄~~

( ?7 n/ V7 S* Q6 Z; z3 E
关于画图。。具体用命令怎么实现。。能写个代码给我参考下么？

woaishuijia

在VBA中设置和修改对象颜色有新旧两种方法。
在2004以前的老版本，图形、组和图层对象有一个Color属性，其值为0到256，分别代表ByBlock（0）、ByLayer（256）和255种索引颜色，每种颜色对应的索引值可以在CAD图形界面的颜色对话框中看到。
- s7 I* \$ c9 C2 J& e) ]改变对象颜色只需要修改对象的Color属性为目标颜色的索引值就可以了。
) G: C2 l) s0 ^3 q# A8 \在2004以后版本，由于CAD的颜色增加了真彩色，而Color属性只能使用索引颜色，因而被Autodesk宣布废除了，在新版本的对象浏览器中也看不到Color属性了（但事实上在新版本中仍然可以使用）。代替Color属性的是TrueColor属性。对TrueColor属性赋值需要引用AcCmColor对象，AcCmColor对象的属性主要包括ColorIndex（相当于老版本的Color属性，使用索引颜色）、Red、Green、Blue（红、绿、蓝三种颜色分量，每个属性值分别为0到255）和EntityColor（长整形数，代表32位颜色）。
改变颜色时，首先要声明一个AcCmColor对象，把其颜色改为目标颜色，然后再把其赋值给图形、组和图层对象的TrueColor属性。
, }2 |! \3 S1 N( S下面的代码是使用Color属性的例子
+ n) W3 N5 |! W) g/ n$ n

1. 
   - h/ [( `& x" B5 }5 G+ [
2. Sub A()
   $ G2 R( Q. d  _9 V5 T) M$ Y
3.     '声明一个二维填充对象和所用的点
   
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
     P: D/ u+ v; V' h6 p
5.     '定义二维填充顶点
   4 I8 z8 U2 d, t0 k0 f" C
6.     P2(0) = 10
   ! b/ w; y2 P# u4 e+ }
7.     P3(0) = 10: P3(1) = 10
   " h7 v* K! d* h8 W- [3 W
8.     '创建二维填充
   
9.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
   9 I% o4 [2 [& {$ B4 L. l- o; a1 ^
10.     '二维填充的颜色改为红色。其中acRed是CAD七种标准颜色之一“红色”的命名常量，相当于1
    
11.     S.color = acRed
    % K3 H4 Y4 G8 ^: L
12. End Sub
    * n6 L& x" h# y, B  j. W: t  j

复制代码

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

1. 
   
2. Sub A()
   ( T/ i3 a6 ~' w0 T
3.     '声明一个二维填充对象和所用的点
   
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   + d# g% X  `7 L3 l3 }
5.     '声明并新建一个颜色
   6 u" n$ o; u6 P; b
6.     Dim C As New AcadAcCmColor
   ( E0 B, I' {- Y
7.     '定义二维填充顶点
   
8.     P2(0) = 10
     g# d. J' D: B7 q4 I
9.     P3(0) = 10: P3(1) = 10
   , {# C3 p$ M2 E- @
10.     '创建二维填充
    ) E. g9 U' T. n9 L' w" d5 o3 x- k, F
11.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
    
12.     '颜色C使用CAD索引颜色“红色”
    4 x% F6 a( m1 ]  F
13.     C.ColorIndex = acRed
    0 ?; R5 s) m" j- c8 I' S. j; s( v7 V
14.     '二维填充的颜色改为颜色C
    - g6 T. D9 x9 o' A7 R
15.     S.TrueColor = C
    / t9 N# X4 D+ _
16. End Sub
    

复制代码