idoo 发表于 2006-8-14 09:44:00

VBA如何设置对象捕捉模式

同题：VBA中，如何设置对象捕捉模式？找不到命令啊～～

wyj7485 发表于 2006-8-14 09:46:00

OSMODE系统变量

idoo 发表于 2006-8-14 20:50:00

？具体怎么操作？还是搞不定啊～～

idoo 发表于 2006-8-15 21:49:00

<P>使用dsettings能不能达到目的？需要怎么编码呢？？</P>

wyj7485 发表于 2006-8-16 09:45:00

<TABLE class=NoRules rules=none border=0>
<THEAD></THEAD>
<TBODY>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=body>ThisDrawing.SetVariable "OSMODE", n</P>
<P class=table_body>0</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>'n由下列情况取舍</P>
<P class=table_body>无</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>1</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>END（端点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>2</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>MID（中点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>4</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>CEN（圆心）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>8</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>NOD（节点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>16</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>QUA（象限点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>32</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>INT（交点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>64</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>INS（插入点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>128</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>PER（垂足）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>256</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>TAN（切点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>512</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>NEA（最近点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>1024</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>清除所有对象捕捉</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>2048</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>APP（外观交点）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>4096</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>EXT（延伸）</P></TD></TR>
<TR class=row_1>
<TD class=BasicLeft_CELL>
<P class=table_body>8192</P></TD>
<TD class=BasicLeft_CELL>
<P class=table_body>PAR（平行）</P></TD></TR></TBODY></TABLE>
<P class=body>要指定多个对象捕捉方式，请输入各位码值之和。 例如，输入 3 可指定“端点”(位码 1) 和“中点”(位码 2) 对象捕捉模式。 输入 16383 可指定所有对象捕捉模式。</P>
<P class=body>&nbsp;</P>

idoo 发表于 2006-8-16 21:53:00

<P>原来是这样的.SetVariable "OSMODE"。不知道哪里有没有这些关键词的使用方法的介绍……</P>
<P>哈哈，这个问题也解决了！</P>
<P>多谢了！！</P>
页: [1]
查看完整版本: VBA如何设置对象捕捉模式