正在寻找vba示例

Villa007 · 发表于 2022-7-6 21:53:04

大家好
我正在为vba上的约束工作。但我无法使用vba编写约束代码来更改其值。
假设我有一个矩形，一个约束是高度d1=10，另一个约束是宽度d2=15。我想用vba编写代码来更改d1的值。
谁能帮帮我吗。
非常感谢。

BIGAL · 发表于 2022-7-6 22:17:14

比较两个相似的对象，一个与另一个平面。你可以看到所有额外的assoc代码。


(entget (car (entsel)))

Villa007 · 发表于 2022-7-6 22:36:53

谢谢你的回复。
我从基础开始，这是我第一次编程。
请你再多告诉我一点好吗。
谢谢

BIGAL · 发表于 2022-7-6 22:44:41

这是一个快速而肮脏的示例，但它很有效，正确的方法是拾取对象并找到参数化DIM。方法是使用要更改的变量（例如“d1”“d4”“d5”）生成一个可以多次运行的defun

copy

; example of changing constraint dim "d1"
(defun c:test ( / ss obj)
(setq ss (ssget '((0 . "dimension"))))  ; pick all dims
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(If (= (vla-get-DimConstrName obj) "d1")  ; get the dim prefix need to know which one etc to change
(vla-put-TextOverride obj (strcat "d1=" (getstring "Enter value ")))  ; redo string etc with correct prefix
)))

BIGAL · 发表于 2022-7-6 22:56:29

再多想一点，将其更改为动态块，这样更容易更改值。

[编程交流] 正在寻找vba示例

发表回复

精选推荐