【图块】匹配比例

newer · 发表于 2020-5-20 00:42:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:xdtb_blkmatch (/ e1 ss #name #scalefactors)
(if (and (xdrx-prompt "\n**把同名图块的比例刷成一样**")
(setq
e1 (car (xdrx-entsel "\n拾取参考块<退出>:" '((0 . "insert"))))
)
(xdrx-initssget "\n选择目标图块<退出>:")
(setq ss (xdrx-ssget
(list '(0 . "insert")
(cons 2 (xdrx-getpropertyvalue e1 "name" nil))
)
)
)
)
(progn (xdrx-begin)
(xdrx-entity-setproperty
ss
"scalefactors"
(xdrx-getpropertyvalue e1 "scalefactors")
)
(xdrx-prompt
"\n已将 "
(sslength ss)
" 个块 "
#name
" 比例设为"
(vl-princ-to-string #scalefactors)
)
(xdrx-end)
)
)
(princ)
)

(defun c:xdtb_blkmatch (/ e1 ss #name #scalefactors) 
  (if (and (xdrx-prompt "\n**把同名图块的比例刷成一样**") 
           (setq 
             e1        (car (xdrx-entsel "\n拾取参考块<退出>:" '((0 . "insert")))) 
           ) 
           (xdrx-initssget "\n选择目标图块<退出>:") 
           (setq ss (xdrx-ssget 
                      (list '(0 . "insert") 
                            (cons 2 (xdrx-getpropertyvalue e1 "name" nil)) 
                      ) 
                    ) 
           ) 
      ) 
    (progn (xdrx-begin) 
           (xdrx-entity-setproperty 
             ss 
             "scalefactors" 
             (xdrx-getpropertyvalue e1 "scalefactors") 
           ) 
           (xdrx-prompt 
             "\n已将 " 
             (sslength ss) 
             " 个块 " 
             #name 
             " 比例设为" 
             (vl-princ-to-string #scalefactors) 
           ) 
           (xdrx-end) 
    ) 
  ) 
  (princ) 
)

kmliro_2017 · 发表于 2020-5-20 07:23:22

谢谢分享！！！！！

98101yin · 发表于 2020-5-20 07:57:18

WUWAUWAUWUAUUA

kyky1002 · 发表于 2020-5-20 08:00:18

厉害，感谢楼主分享

1917732332 · 发表于 2020-5-20 08:05:07

谢谢LOUZHU分享！！！！！

singa · 发表于 2020-5-20 08:20:38

请问是什么用途呢？

啊龍 · 发表于 2020-5-20 09:03:23

謝謝分享！！！！！

LXH刚开始 · 发表于 2020-5-20 10:07:53

支持楼主坚持更新插件！

liuwenxuan8351 · 发表于 2020-5-20 12:27:57

感谢楼主分享收藏了

Michael527 · 发表于 2020-5-20 12:33:45

非常实用的工具，谢谢楼主的分享

fyzld · 发表于 2020-5-21 07:34:23

谢谢分享！！！！！

bai0371 · 发表于 2020-5-23 20:04:47

好像不是中心缩放，属性图框中属性文字位置没变化，能加个选项（插入点缩放、中心缩放）

kmliro_2017 · 发表于 2020-5-24 11:39:31

谢谢！！！！

十全十美 · 发表于 2020-5-24 17:55:10

感谢楼主分享

账号		自动登录	找回密码
密码			立即注册

[图块] 【图块】匹配比例

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。