正在寻找vba示例
大家好我正在为vba上的约束工作。但我无法使用vba编写约束代码来更改其值。
假设我有一个矩形，一个约束是高度d1=10，另一个约束是宽度d2=15。我想用vba编写代码来更改d1的值。
谁能帮帮我吗。
非常感谢。 比较两个相似的对象，一个与另一个平面。你可以看到所有额外的assoc代码。
(entget (car (entsel)))
谢谢你的回复。
我从基础开始，这是我第一次编程。
请你再多告诉我一点好吗。
谢谢
这是一个快速而肮脏的示例，但它很有效，正确的方法是拾取对象并找到参数化DIM。方法是使用要更改的变量（例如“d1”“d4”“d5”）生成一个可以多次运行的defun
; 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
)))
再多想一点，将其更改为动态块，这样更容易更改值。
页:
[1]