选择加减数
如何使其允许我选择要编辑的文本？(defun c:AFF ( / ss)
(vl-load-com)
(if (and (setq ss (ssget "X" (list (cons 0 "*text"))))
(setq amt (getreal "\nPlease type the amount you would like to add: ")))
(progn
(mapcar '(lambda (z) (vla-put-textstring z (rtos (+ (atof (vla-get-textstring z)) amt) 2 2)))
(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
)
)
(princ)
) 如果要为选择集中的每个实体使用Vla对象，那么只需迭代ActiveSelectionSet集合对象，而不是将Vlax Ename->Vla对象应用于迭代的选择集（使用SSNAME）。。。快得多
注-不包括错误处理。 令人惊叹的我对这东西很陌生。谢谢
不用担心，我们都从某处开始；我很乐意帮忙。
页:
[1]