QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

楼主: koutx
收起左侧

[已解决] CAD二次开发对二维图某些数据的统计(请我爱谁家版主再指导)

[复制链接]
 楼主| 发表于 2009-3-15 20:13:43 | 显示全部楼层 来自: 中国北京
折腾了不知多少遍,也按版主推荐的搜了一些参考资料(Autocad_VBA初级教程、AutoCAD_VBA属性)等等就是没找到附录C,可无奈实在太菜,总也不能完全试通版主48楼这段程序。现在是内部点选没问题了,但是在中间筛选统计部分无论如何也想不出办法来。
- A, ?7 P1 c0 e+ M: [! j: JFor Each LP In SS '遍历选择集,检查多段线是否是矩形并统计结果( K: |  r; v) Q6 t2 l0 w+ S
            LP.Highlight (False) '被高亮显示的多段线取消高亮
7 E1 N, [4 \# V) V7 M; y- O& T, B            '中间检查、统计部分省略
9 \+ ]- s/ y+ \) o: _: a             .......................
/ `+ k; |- f8 ^& \0 {                         ........................
# c! D3 C# j* ^# I                         ..........................
% A: }0 H! B2 d2 c/ `. |# yNext+ V& X6 Y4 P- k) D
在循环中间,怎么也试不通。用LP.Length可得到周长;用LP.Area可得到面积,可就是得不到长、宽。难道要把原先那判断水平线与垂直线交点的整段代码全搬过来吗?可又觉得光靠生硬的搬过来又不行,因为我把矩形数组那一段搬过来试了多少次都不成呀,把P1,P2,P3,P4那一段也搬过来又不知如何给P赋值。无奈知识太少怎么也解决不了啊,请版主百忙中再予指导。多谢了。因为总想多试几种方法比较比较。: m, w1 R4 M- W8 n
$ r- o( `! P7 Y$ {: G" j
[ 本帖最后由 koutx 于 2009-3-15 20:15 编辑 ]
发表于 2009-3-15 21:17:24 | 显示全部楼层 来自: 中国
我连书名都告诉你了,为什么不用页面上面的“搜索”,用书名做关键词搜一下有关的帖子呢?- H+ q! q5 w& Y- U
还是把链接给你吧- e5 }+ d- `' s
http://www.3dportal.cn/discuz/viewthread.php?tid=199860&page=1&fromuid=150055#pid960894" E  ~# q+ C% f+ m; c, f
% ]& c3 g# J* B9 s$ k
LWPOLYLINE(优化多段线)对象有下面两个属性和方法可以用来在本程序中判断是否矩形
' V& v4 d& v  L( E4 P/ o一、Coordinates属性。可读写。读取时的语法是
5 M) K7 k- i* HV=PL.Coordinates0 u( }8 k; g' y5 B$ _0 \1 U, h0 `, h
其中,V在使用前应声明为变体型变量(Variant),它返回一个双精度数组,包含优化多段线全部顶点的二维坐标。对于矩形,应该返回一个8元素的双精度数组,元素分别为第1个顶点X坐标、第1个顶点Y坐标、第2个顶点X坐标、第2个顶点Y坐标。。。。。。依此类推。
) Z" T  f$ _3 c& j1 L二、GetBulge方法。只读,语法是
- S& X  |  z3 r/ {D=PL.GetBulge(Index)
$ }; w5 p$ E9 T其中,Index是多段线顶点索引,第1个顶点索引是0,第2个是1。。。。依此类推。D是双精度变量(Double),它返回指定顶点与下一个顶点间的线的凸度,如果是0,则为直线;否则是圆弧,该值是该圆弧的圆周角的四分之一的正切值。假如是个逆时针的半圆弧,圆周角是180度,四分之一就是45度,45度的正切值是1,也就是说,如果返回值是1,就说明这段线是个逆时针半圆弧。
4 d) V7 G+ \0 L. V4 S
4 W8 A! G- F! a使用上面两个属性和方法,只要你的平面几何知识不是太差,应该能够在本程序中判断得到的多段线是否是矩形吧?; S: `6 U- n- `
要注意的是,由于计算机浮点运算精度的原因,即使我们的图画得很准确,计算结果也会与理论结果存在些差异,所以在条件判断时要宽容些,只要在一定的范围内就可以了,就像我在三楼的代码一样,要给出一个精度范围。
1 E0 G4 S, U: o; K) j: I( X
/ U. _, t- C( c9 b另外给你一个资料。CAD帮助文件中,开发人员帮助的《ActiveX and VBA Reference》对使用VBA的人来说非常重要,但它是英文版的,很多人看着不方便,下面的附件是中文翻译版本。! m9 }3 J- v9 T5 P

: {5 V: c0 u/ o/ I1 Q2 `[ 本帖最后由 woaishuijia 于 2009-3-15 21:32 编辑 ]

ActiveX 和 VBA 参考.rar

1.71 MB, 下载次数: 7

 楼主| 发表于 2009-3-17 14:34:55 | 显示全部楼层 来自: 中国北京
谢谢版主提供的资料,问题基本解决了。只是一个一个的点选有点过于麻烦了。
 楼主| 发表于 2009-4-11 12:19:44 | 显示全部楼层 来自: 中国北京
多谢版主详尽的指导和提供的学习资料,受益颇多。
$ F0 c3 n9 w, N7 s% L5 X这些天总是想在版主49楼的方法中再完善一下,可总不能实现,无奈再次请教:
6 x+ H" }8 F" l- |9 w! G问题见下面程序中括号内的标注:- d1 g/ P6 \+ n0 U7 t5 a: |9 P
------------------------------------------------------------------------------------------------------------------------
# A4 g2 o( F/ v& ~( j1 QACAD的VBA并没有提供“孤岛检测”的方法,不过可以照下面的调用图形界面的“边界”命令实现它。
  r/ W( b+ k7 l8 z; S0 A- u, fDim I As Integer, SS As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant, P As Variant, LP As AcadLWPolyline
+ p7 q) h& l4 N1 p) h- i: ^, ]    With ThisDrawing
. d* h" U  L* D- }4 ~  d; g" ]        On Error Resume Next
0 J! I0 E5 A( H        Set SS = .SelectionSets.Add("SS" )
( A0 u& |! z: o2 |+ ~        FD(0) = "lwpolyline"
0 W6 ]1 J) w* h+ q- `9 q        Do
$ y) k) p7 R9 s6 o            P = .Utility.GetPoint(, vbCrLf & "拾取内部点:")
: F' W7 ~- [8 O+ Z) _" q0 m            If Err Then Exit Do
* [, z  I" u+ |; m9 k0 I! u& q+ m9 t            .SendCommand "-boundary " & P(0) & "," & P(1) & "  "6 n5 q  u- @9 Q- a1 j) @8 p
            SS.Select acSelectionSetLast, , , FT, FD
# F) ]+ r8 B" s7 _# P: l            If SS.Count = I Then
  {: }; |0 w+ Q! k% \/ A- M( _# b, X                .SendCommand "n "2 E9 Z' h: P$ t3 d2 \
                Exit Do
2 E( Z, Q; k6 T: R  t            Else; }$ H" W# b$ n+ [! w( p
                SS.Item(I).Highlight (True) '选择集的最后一个元素即新创建的多段线用高亮显示
$ {$ O2 F: ~$ m9 p# x* t                  (请问在此处能实现将点击的图形,填充图案或填充底色的语句)
" z3 X1 `0 S! z5 E# W+ K2 |                I = I + 1
! s8 f1 l6 u! @5 t            End If/ z6 J+ {7 M- e! |. b' S
        Loop
: W9 I" W7 }' L5 i$ V' k
8 d4 q# Q$ `4 ]6 F1 C& D/ y[ 本帖最后由 koutx 于 2009-4-11 14:10 编辑 ]
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表