明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 343|回复: 4

[提问] (求助)请教一下各位大神,能否实现批量改铺砖比例呢

[复制链接]
发表于 2023-4-30 16:02 | 显示全部楼层 |阅读模式
12明经币
本帖最后由 999999 于 2023-4-30 16:06 编辑

批量改铺砖比例
求助各位大神

是否可以实现批量选择填充图案后,输入一下比例值,然后选择的铺砖,不管是什么不一样比例的,全部都变成那个统一的比例呢

麻烦各位大神,帮忙看看有没有时间解决一下呢,谢谢啦


提前祝大家五一快乐啦
附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

;;; 批量改图案填充比例 (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 | 显示全部楼层
;;; 批量改图案填充比例
(defun c:plgtcbl()
    (setvar "cmdecho" 0)
    (command "_undo" "be")
    (if (progn
            (princ "\n 请选取填充图案:")
            (setq ssa (ssget  '((0 . "HATCH"))))
        )
        (progn
            (if (= (setq newbl (getreal "\n 请输入新比例<1.0>=")) nil)
                (setq newbl 1.0)
            )
            (vlax-for obj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
                 (vlax-put-property obj "PatternScale" newbl)
                 (vla-update obj)
            )
        )
    )
    (command "_undo" "e")
    (setvar "cmdecho" 1)
    (princ)
)
回复

使用道具 举报

发表于 2023-4-30 17:29 | 显示全部楼层
属性面板或者ma
回复

使用道具 举报

 楼主| 发表于 2023-4-30 19:38 | 显示全部楼层
yshf 发表于 2023-4-30 17:36
;;; 批量改图案填充比例
(defun c:plgtcbl()
    (setvar "cmdecho" 0)

感谢大神出手,一出手就解决了太赞啦,谢谢大神啦     大神辛苦啦
回复

使用道具 举报

 楼主| 发表于 2023-4-30 19:40 | 显示全部楼层

主要我的很多铺砖是改了角度的,用MA会改铺砖的样式和角度会变成统一呢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-28 02:51 , Processed in 0.283179 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表