[求助]：设置 捕捉方式

karl_chan

请问哪个方法可以设置捕捉方式为: 端点捕捉.交点捕捉.....等等?

tsuihan

在CAD命令行里直接：OSMODE

在VBA里：ThisDrawing.SetVariable "osmode", 183

karl_chan

谢谢!!!!

karl_chan

不通过人为的捕捉.而获得一个面的轮廓线的各个交点坐标值.请问该如何计算??????????在线守候!!!!!!!!!!!先谢了

WHGF

VBA中如何建立选择集呀？

雪山飞狐(lzh)

获得一个面的轮廓线的各个交点坐标值？
面是什么？面域么？
把他炸开取各实体的端点

karl_chan

面域的特性中有个边界框的X和Y的值. 请问这几个值存在acadregion的哪个属性中.??????????

秦林

最初由 tsuihan 发布
[B]在CAD命令行里直接：OSMODE

在VBA里：ThisDrawing.SetVariable "osmode", 183 [/B]

  请教tsuihan ，在程序中设置了“ThisDrawing.SetVariable "osmode", 183”后如何取得该捕捉点？

tsuihan

首先我不太清楚你的意思，先猜一下。------------------------------------------
{ ThisDrawing.SetVariable "osmode", 183 } 这句话设置了6种捕捉点：EMCQIP；你的意思是不是这样的?：___
'///
取得OSMODE的值，设为N；然后判断N究竟代表哪些种类的捕捉点。
'///
没理解错的话你应该是这个意思。

这个我也想过，只是没有付诸行动， 不过我有思路。

1、代表一种捕捉点的值是2的K次方，即：1/2/4/8/16/32.../8192 {{K=[0,13]共14个值，详细见附表}}。
2、这14个值相互间相加，得到的结果不会相同，也就是N拆分以后的数列具有唯一性。
3、下面要做的，就是要反推N到底可以拆成哪些值的组合。
__3.1 在上面14个特征数里找到比N小的最大者，比如对于183，最大者为128，即183=128+55 [128为Per]
__3.2 相同的得到：55=32+23[32为Int]
__3.3 相同的得到：23=16+7[16为Qua]
__3.4 相同的得到：7=4+3[4为C]
__3.5 相同的得到：3=2+1[2为Mid,1为End] --》两个加数都为特征值就停止；

由此可见，这是个递归过程，当它本身为特征数或两个加数均为特征数时退出循环。

4、至于怎么找N的最大特征数，我初步设想采用试探法。方法：

Dim chrV as integer        'chrV为小于N的最大特征值
For i=13 to 0
  if N > (2 ^ i) then
          exit for
  end if
Next
chrV = 2 ^ i

到这里我想应该能解决问题，用点时间，能搞定。


附表：
========================
0        NONe
1        END point
2        MID point
4        CENter
8        NODe
16        QUAdrant
32        INTersection
64        INSertion
128        PERpendicular
256        TANgent
512        NEArest
1024        QUIck
2048        APParent Intersection
4096        EXTension
8192        PARallel
===========================

2006-03-15
昨晚做好了一个例子，给大家共享一下。

tanle2020

非常谢谢9楼的解说，终于知道代码的用意了。

xwjljh

太好了

piaomiao1980

谢谢！