852| 4
|
[提问] (求助)请教一下各位大神,能否实现批量改铺砖比例呢 |
12明经币
最佳答案;;; 批量改图案填充比例
(defun c:plgtcbl()
(setvar "cmdecho" 0)
(command "_undo" "be")
(if (progn
(princ "\n 请选取填充图案:")
(setq ssa (ssget '((0 . "HATCH"))))
)
(progn
(if (= (setq newbl (getreal "\n 请输入新比例=")) nil)
(setq newbl 1.0)
)
(vlax-for obj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-ge ...
| ||
发表于 2023-4-30 16:02:53
|
显示全部楼层
| ||
发表于 2023-4-30 17:29:37
|
显示全部楼层
| ||
| ||
| ||