[-insert]判断插入外部块是否支持XY非等比缩放，[适用图库函数]

1028695446

使用(command "_.insert" blk_name)插入块时，会遇到如下两种命令提示


第一种：插入的块不支持非等比缩放，即XY比例需一致，如 X=Y=2

"指定插入点或 [基点(B)/比例(S)/旋转(R)/分解(E)/重复(RE)]:"

第二种：插入的块支持非等比缩放，即XY比例可以不一致，如 X=1 ， Y=2

"指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)/分解(E)/重复(RE)]:"

如何判断即将插入的块，会出现哪种选项呢，详见隐藏内容！！！

;;说明:判断即将插入的块，是有可以XY比例不一致
;;参数:blk_name:插入的块名
;;返回:T or nil
;;T "指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)/分解(E)/重复(RE)]:"
;;nil "指定插入点或 [基点(B)/比例(S)/旋转(R)/分解(E)/重复(RE)]:"
(defun insert_arg_XY_P(blk_name / Split-ZZ old_CMDECHO command_arg)
        ;;==============================================================
        (defun Split-ZZ        (s p / L r)
                (setq r (vlax-create-object "vbscript.regexp"))
                (vlax-put-property r 'Global 1)
                (vlax-put-property r 'Pattern (strcat "([^" p "]+)"))
                (vlax-for x (vlax-invoke r 'Execute s)
                        (setq L (cons (vla-get-Value x) L))
                )
                (vlax-release-object r)
                (reverse L)
        )
        ;;==============================================================
        (setq old_CMDECHO (getvar "CMDECHO"))
        (setvar "CMDECHO" 1)               
        (command "_.insert" blk_name)
        (command)
        (setq command_arg (getvar "lastprompt"))
        (setq str_lst(Split-ZZ command_arg "/"))
        (if old_CMDECHO (setvar "CMDECHO" old_CMDECHO))
        (princ)
        (if (and
                                (member "X" str_lst)        
                                (member "Y" str_lst)                        
                        )        
                T
                nil        
        )        
)

lxl217114

打call，高产了

yoyoho

谢谢!1028695446的研究并分享!!!!!

潇湘飞雨

正好需要！及时雨啊！

chenry676

看一下是否好用。

xxxooo

学习学习                    

cwgchen

插个眼学习一下

yshf

回复学习学习！

foer123

正好需要！及时雨啊！

春江在线

今天刚好碰到这个问题，感谢！