rodbuilder 发表于 2022-7-6 22:54:23

需要VBA帮助

我一直在尝试将lisp转换为VBA，我需要一些帮助。我需要一种方法来更改维度中的文本。这是用lisp实现的方式，但现在我想使用VBA。有人能帮忙吗。
(defun C:DimChangeF ( )
(setq DimEnt (entget (SSNAME (SSGET) 0)))
(setq DimEnt (subst(cons 1 "<> \\XTEST") (assoc 1 DimEnt) DimEnt))
(entmod DimEnt)
(princ)
)

BIGAL 发表于 2022-7-7 00:52:27

你应该能够做一个等价于entsel的事情，实体会有类似dim的东西。值作为文本值，然后只需更改并立即进行更新，但我会搜索其他VBA帖子，您会发现一些示例代码，应该可以为您提供答案。
页: [1]
查看完整版本: 需要VBA帮助