能帮忙给翻译成vba吗？谢谢啦

[复制链接]

fmfm

14 主题	39 帖子	2 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 95

发消息

发表于 2004-5-14 16:40:00 | 显示全部楼层 |阅读模式

下面红色的部分
“TEXT”形式数据存储格式：
((-1.vla-object (car (entsel))))
(setq DATUML (vla-get-measurement ENT)
DATUM2 (- (vla-get-tolerancelowerlimit ENT))
DATUM3 (vla-get-toleranceupperlimit ENT)
)
)
;|
Sub TT()
Dim ENTOBJ As AcadObject
Dim basePnt As Variant
Dim DATUML As Double
Dim DATUM2 As Double
Dim DATUM3 As Double
On Error Resume Next
ThisDrawing.Utility.GetEntity ENTOBJ, basePnt, "請選取一個物件"
DATUML = ENTOBJ.Measurement
DATUM2 = -1 * ENTOBJ.ToleranceLowerLimit
DATUM3 = ENTOBJ.ToleranceUpperLimit
MsgBox "尺寸=" & DATUML & " 上偏差=" & DATUM3 & "下偏差=" & DATUM2
End Sub
|;
;|
(setq ENT (car (entsel)))
(setq ENTT (entget ENT '("ACAD")))
(SETQ ENTT3 (CADR (ASSOC -3 ENTT)))
(SETQ DATUML (CDR (ASSOC 42 ENTT)))
(SETQ DATUM2 (CDADR(MEMBER (CONS 1070 47) ENTT3)))
(SETQ DATUM3 (- (CDADR(MEMBER (CONS 1070 48) ENTT3))))
(SETQ TOL_FLAG (MEMBER (CONS 1070 71) ENTT3));公差號
|;

使用道具举报