特性匹配函数

Free-Lancer · 发表于 2014-10-10 20:53:30

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

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

×

来源于 eachy 版主的 "可自由定制的刷子"

;;source -- 源实体 object
;;target -- 目标实体或目标实体表，object
;;lst -- 特性名称或特性名称表 , 'startpoint 或 "startpoint" '(startpoint endpoint ...) | ("startpoint" "endpoint" ...)
(defun fy:mat (source target lst / vars _mat)
(defun _mat (obj lst vars)
(mapcar '(lambda (x y)
(if (and y (vlax-property-available-p obj x T))
(vlax-put-property obj x y)
)
)
lst
vars
)
)
(if (or (= (type lst) 'SYM) (= (type lst) 'STR))
(setq lst (list lst))
)
(setq vars (mapcar '(lambda (a)
(if (vlax-property-available-p source a)
(vlax-get-property source a)
)
)
lst
)
)
(if (listp target)
(mapcar '(lambda (x) (_mat x lst vars)) target)
(_mat target lst vars)
)
)

;;source -- 源实体 object 
;;target -- 目标实体 或 目标实体表，object 
;;lst -- 特性名称或特性名称表 , 'startpoint 或 "startpoint"  '(startpoint endpoint ...) | ("startpoint" "endpoint" ...) 
(defun fy:mat (source target lst / vars _mat) 
  (defun _mat (obj lst vars) 
    (mapcar '(lambda (x y) 
               (if (and y (vlax-property-available-p obj x T)) 
                 (vlax-put-property obj x y) 
               ) 
             ) 
            lst 
            vars 
    ) 
  ) 
  (if (or (= (type lst) 'SYM) (= (type lst) 'STR)) 
    (setq lst (list lst)) 
  ) 
  (setq        vars (mapcar '(lambda (a) 
                        (if (vlax-property-available-p source a) 
                          (vlax-get-property source a) 
                        ) 
                      ) 
                     lst 
             ) 
  ) 
  (if (listp target) 
    (mapcar '(lambda (x) (_mat x lst vars)) target) 
    (_mat target lst vars) 
  ) 
)

Free-Lancer · 发表于 2014-10-10 21:01:15

本帖最后由 Free-Lancer 于 2014-10-12 09:44 编辑

(defun c:tt (/ e)
(fy:begin)
(if (and (progn
(princ "\n选择源Line...")
(setq e (ssget "_+.:E:S" '((0 . "line"))))
)
(progn
(princ "\n选择匹配目标....")
(ssget '((0 . "line")))
)
)
(fy:mat (e2o (ssname e 0)) (fy:cset->objs) 'startpoint)
)
(princ)
)

(defun c:tt (/ e)
(fy:begin)
(if (and (progn
(princ "\n选择源Circle...")
(setq e (ssget ":S" '((0 . "Circle"))))
)
(progn
(princ "\n选择匹配目标....")
(ssget '((0 . "circle")))
)
)
(fy:mat (e2o (ssname e 0)) (fy:cset->objs) 'radius);_圆半径
)
(princ)
)

(defun c:tt (/ e)
(fy:begin)
(if (and (progn
(princ "\n选择源Insert...")
(setq e (ssget ":S" '((0 . "INSERT"))))
)
(progn
(princ "\n选择匹配目标....")
(ssget '((0 . "Insert")))
)
)
(fy:mat (e2o (ssname e 0))
(fy:cset->objs)
;;x比例 y比例 z比例旋转角
'(xscalefactor yscalefactor zscalefactor rotation)
)
)
(princ)
)

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

[教学] 特性匹配函数

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