autocad <em>vba</em>中的对数函数<em>ln</em>

application.ln(i)
或直接调用excel函数即可，worksheetfunction.ln(i)

dim t as Variant
if ThisDrawing.ActiveSelectionSet.Count then '判断是百否选择了对象
for each t in ThisDrawing.ActiveSelectionSet ‘循环度每一个回选中的对象
……处理每一个选中的图元对答象 t……

next

end if

以下提示供copy参考：

1、有关 InStr 函数

首先，该函数的语法：InStr([开始位置, ]接受搜索的字符串,  被搜索的字符串[, 比较选项])

其次，推测你上面的代码意图，判断可能你的调用函数有误，如下是示例：

InStr(1, "|1|2|3|4|5|6|", "|1|2|3|")

2、samnum等于多少如何计算

给出的代码很zd简单，就一个分支，如果是依照你编写的代码，则 Samnum = Samnum + 1 这句不会执行（因为 条件不满足）。

如下示例代码中：

Samnum = 1
If InStr(1, "|1|2|3|4|5|6|", "|1|2|3|")>0 Then Samnum = Samnum + 1

则计算结果为 2。

是log(e) (x)函数吗？
在VBA是Log()函数。
很简单的，你稍微用下Log(2.718),Log(3),就知道是你说的函数啦