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

jjww123

如题。。
! s$ L/ \3 U9 c3 i! C' e
: V/ D/ n! q, o; r. ^
  p% R8 Q7 K7 ~0 M7 \+ M8 h& x使画出来的图直接出现在“真实”模式下


如何画下图这种有斜度的长方体。。。

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

镜子·空瓶

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

[ 本帖最后由 镜子·空瓶 于 2009-2-7 20:32 编辑 ]

woaishuijia

第一个问题：用sendcommand方法调用CAD命令
( y7 E" J/ |6 xSendCommand "vscurrent r "
" w+ |* E0 s0 H9 p6 Y
  ^3 _' B* Z* m3 \第二个问题：沿路径拉伸，AddExtrudedSolidAlongPath方法

jjww123

如何换色填充实体呢？
2 u) v; F( l1 n2 d5 H! c

比如原先系统默认是用黑色填充。。现在我想换一个颜色。。如何弄~~
+ Z, W- g2 l% _- a+ }  N' l
; L' W$ [+ B$ _
- N3 I9 x2 `, H关于画图。。具体用命令怎么实现。。能写个代码给我参考下么？

woaishuijia

在VBA中设置和修改对象颜色有新旧两种方法。
在2004以前的老版本，图形、组和图层对象有一个Color属性，其值为0到256，分别代表ByBlock（0）、ByLayer（256）和255种索引颜色，每种颜色对应的索引值可以在CAD图形界面的颜色对话框中看到。
/ z; r/ Q3 ^$ k5 ?改变对象颜色只需要修改对象的Color属性为目标颜色的索引值就可以了。
$ X% z& r3 N" \! K' r1 m0 m" S. R9 K在2004以后版本，由于CAD的颜色增加了真彩色，而Color属性只能使用索引颜色，因而被Autodesk宣布废除了，在新版本的对象浏览器中也看不到Color属性了（但事实上在新版本中仍然可以使用）。代替Color属性的是TrueColor属性。对TrueColor属性赋值需要引用AcCmColor对象，AcCmColor对象的属性主要包括ColorIndex（相当于老版本的Color属性，使用索引颜色）、Red、Green、Blue（红、绿、蓝三种颜色分量，每个属性值分别为0到255）和EntityColor（长整形数，代表32位颜色）。
改变颜色时，首先要声明一个AcCmColor对象，把其颜色改为目标颜色，然后再把其赋值给图形、组和图层对象的TrueColor属性。
下面的代码是使用Color属性的例子

1. 
   / q- I0 c% ^# W
2. Sub A()
   2 Y' |/ p# b. A0 @1 T2 H2 `  D
3.     '声明一个二维填充对象和所用的点
   
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   & h) Y$ [+ Z* ?$ l  ^% g
5.     '定义二维填充顶点
   
6.     P2(0) = 10
   
7.     P3(0) = 10: P3(1) = 10
   , |5 w! ?! u' `
8.     '创建二维填充
   
9.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
   : v/ g1 |+ G( r  s% J# a
10.     '二维填充的颜色改为红色。其中acRed是CAD七种标准颜色之一“红色”的命名常量，相当于1
    
11.     S.color = acRed
    9 E  w2 {6 W4 g( y% O7 U
12. End Sub
    

复制代码

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

1. 
   7 d( R. o0 H& k
2. Sub A()
   5 q1 g% g# E0 ^) a3 c
3.     '声明一个二维填充对象和所用的点
   & H) O1 Z3 S) Q" P
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   1 q/ s9 A. D; C5 v9 T' z4 J* Q! e
5.     '声明并新建一个颜色
   2 M; S9 b( O. B; n
6.     Dim C As New AcadAcCmColor
   / x; T4 m1 g2 ]; P5 V/ c
7.     '定义二维填充顶点
   
8.     P2(0) = 10
   ' k# r; t' @" h4 `( q$ k
9.     P3(0) = 10: P3(1) = 10
   , }8 R3 f2 D1 D: Y. ?
10.     '创建二维填充
    . b. W# W8 _6 ]
11.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
    : X0 o9 F) q8 P: P6 X3 c
12.     '颜色C使用CAD索引颜色“红色”
    ! A' V3 L2 y- G6 q* s) G, `+ C
13.     C.ColorIndex = acRed
    , C+ n4 x" N, z
14.     '二维填充的颜色改为颜色C
    : j9 A5 F0 X$ R6 n( J3 ~. a
15.     S.TrueColor = C
    
16. End Sub
    8 R) J- a0 @2 [( t+ P4 m0 f

复制代码