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

jjww123

如题。。


使画出来的图直接出现在“真实”模式下


! [$ z& H3 \- d$ N& l' ?) Q如何画下图这种有斜度的长方体。。。

8 e  J: v. u# l2 L/ @[ 本帖最后由 jjww123 于 2009-2-7 19:43 编辑 ]

镜子·空瓶

1：输入SHA回车。有多种显示模式供你选择。。
$ ~4 c' o' Q. a+ I2：画出你的图形截面，再用拉伸EXT。
& x" t" i0 K( g( @& ~4 |2 t
" Y+ Q! A- D7 c  \  r[ 本帖最后由 镜子·空瓶 于 2009-2-7 20:32 编辑 ]

woaishuijia

第一个问题：用sendcommand方法调用CAD命令
SendCommand "vscurrent r "

3 S; _  A. y! m5 J第二个问题：沿路径拉伸，AddExtrudedSolidAlongPath方法

jjww123

如何换色填充实体呢？

3 R+ G- O2 O% m' \2 w
: t4 l/ l0 ?6 t2 U比如原先系统默认是用黑色填充。。现在我想换一个颜色。。如何弄~~
8 Q; _/ N3 K" z, u
( f* J4 }! R. K& B9 g1 R
关于画图。。具体用命令怎么实现。。能写个代码给我参考下么？

woaishuijia

在VBA中设置和修改对象颜色有新旧两种方法。
3 E* w. W$ z# b; A7 q( @8 n在2004以前的老版本，图形、组和图层对象有一个Color属性，其值为0到256，分别代表ByBlock（0）、ByLayer（256）和255种索引颜色，每种颜色对应的索引值可以在CAD图形界面的颜色对话框中看到。
改变对象颜色只需要修改对象的Color属性为目标颜色的索引值就可以了。
在2004以后版本，由于CAD的颜色增加了真彩色，而Color属性只能使用索引颜色，因而被Autodesk宣布废除了，在新版本的对象浏览器中也看不到Color属性了（但事实上在新版本中仍然可以使用）。代替Color属性的是TrueColor属性。对TrueColor属性赋值需要引用AcCmColor对象，AcCmColor对象的属性主要包括ColorIndex（相当于老版本的Color属性，使用索引颜色）、Red、Green、Blue（红、绿、蓝三种颜色分量，每个属性值分别为0到255）和EntityColor（长整形数，代表32位颜色）。
4 h# F3 J  V6 K: e, `改变颜色时，首先要声明一个AcCmColor对象，把其颜色改为目标颜色，然后再把其赋值给图形、组和图层对象的TrueColor属性。
下面的代码是使用Color属性的例子
2 M  h' J5 B6 |% i5 Y, |2 o

1. 
   
2. Sub A()
   3 p* m- o. r5 p( M
3.     '声明一个二维填充对象和所用的点
   4 H# l0 I, d8 z" W2 n. B" c; G; X
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   
5.     '定义二维填充顶点
   ) F, {' Y6 G1 B  E* S$ G
6.     P2(0) = 10
   ' ~' D, ]4 t/ J( \9 |  M
7.     P3(0) = 10: P3(1) = 10
   
8.     '创建二维填充
   2 k% I+ b3 U3 T2 d$ l. k9 z2 E
9.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
   6 [  c* W5 T$ D: M" R" W
10.     '二维填充的颜色改为红色。其中acRed是CAD七种标准颜色之一“红色”的命名常量，相当于1
    
11.     S.color = acRed
    * e8 X6 b" P; t: ~9 H( L0 r
12. End Sub
    8 |& w2 Y1 n# ^

复制代码

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

1. 
   
2. Sub A()
     d% u. c" o6 K6 ]( q
3.     '声明一个二维填充对象和所用的点
   - F; \  i( M. s- I; D8 P
4.     Dim S As AcadSolid, P1(2) As Double, P2(2) As Double, P3(2) As Double
   $ u) B8 v/ l  j4 O% j3 N$ G
5.     '声明并新建一个颜色
   
6.     Dim C As New AcadAcCmColor
   $ S7 v: [* E0 {, M- ]
7.     '定义二维填充顶点
   
8.     P2(0) = 10
   % w( J1 S# B0 s6 ?! e7 L, g
9.     P3(0) = 10: P3(1) = 10
   ! Y8 X6 M( z- ]4 d0 u
10.     '创建二维填充
    
11.     Set S = ThisDrawing.ModelSpace.AddSolid(P1, P2, P3, P3)
    ' R3 @* T, a/ h. }" J2 i  t) z: \
12.     '颜色C使用CAD索引颜色“红色”
    9 S8 o2 e5 O0 u" z/ E* ~  F
13.     C.ColorIndex = acRed
    
14.     '二维填充的颜色改为颜色C
    - B0 Y4 l+ `0 b2 A
15.     S.TrueColor = C
    
16. End Sub
    

复制代码