组码比较=>((相同)(不同))

自贡黄明儒 · 发表于 2014-3-12 13:43:49

本帖最后由自贡黄明儒于 2014-3-13 10:45 编辑

;;组码比较=>((相同)(不同))
;;比较同一对象：1 先执行w1, 2 改变对象 3 再执行w1
(defun C:W1 (/ ANSWER BT E1 E2 EN2 FLAG XT)
(initget "Yes No")
(cond ((setq answer (GETKWORD "[不相同(N)/相同(Y)]<不相同N>")) nil)
(T
(setq *en1* nil)
(setq answer "No")
)
)
(setq Flag (and (not *en1*) (equal answer "Yes")))
(cond ((or Flag (equal answer "No"))
(setq e1 (car (entsel)))
(setq *en1* (entget e1))
)
)
(if Flag
nil
(cond (*en1*
(setq e2 (car (entsel)))
(setq en2 (entget e2))
)
)
)
(cond
(Flag (princ "\n 再次执行此命令，选择相同对象"))
(T
(cond
((and *en1* en2)
(foreach x *en1*
(if (member x en2)
(setq xt (cons x xt))
(setq bt (cons x bt))
)
)
(princ (list (reverse xt) (reverse bt)))
)
)
(setq *en1* nil)
)
)
(princ)
)

;;组码比较=>((相同)(不同)) 
;;比较同一对象：1 先执行w1,  2 改变对象  3 再执行w1 
(defun C:W1 (/ ANSWER BT E1 E2 EN2 FLAG XT) 
  (initget "Yes No") 
  (cond        ((setq answer (GETKWORD "[不相同(N)/相同(Y)]<不相同N>")) nil) 
        (T 
         (setq *en1* nil) 
         (setq answer "No") 
        ) 
  ) 
  (setq Flag (and (not *en1*) (equal answer "Yes"))) 
  (cond        ((or Flag (equal answer "No")) 
         (setq e1 (car (entsel))) 
         (setq *en1* (entget e1)) 
        ) 
  ) 
  (if Flag 
    nil 
    (cond (*en1* 
           (setq e2 (car (entsel))) 
           (setq en2 (entget e2)) 
          ) 
    ) 
  ) 
  (cond 
    (Flag (princ "\n 再次执行此命令，选择相同对象")) 
    (T 
     (cond 
       ((and *en1* en2) 
        (foreach x *en1* 
          (if (member x en2) 
            (setq xt (cons x xt)) 
            (setq bt (cons x bt)) 
          ) 
        ) 
        (princ (list (reverse xt) (reverse bt))) 
       ) 
     ) 
     (setq *en1* nil) 
    ) 
  ) 
  (princ) 
)

;;组码比较=>((相同)(不同))
;;比较同一个对象：1 先执行w1 2 改变对象 3 再执行w1
(defun C:W1 (/ ANSWER BT E1 E2 EN2 FLAG XT)
 (initget "Yes No")
 (cond ((setq answer (GETKWORD "[不相同(N)/相同(Y)]<不相同N>")) nil)
(T
 (setq *en1* nil)
 (setq answer "No")
)
 )
 (setq Flag (and (not *en1*) (equal answer "Yes")))
 (cond ((or Flag (equal answer "No"))
 (setq e1 (car (entsel)))
 (setq *en1* (entget e1))
)
 )
 (if Flag
nil
(cond (*en1*
 (setq e2 (car (entsel)))
 (setq en2 (entget e2))
 )
)
 )
 (cond
(Flag (princ "\n 再次执行此命令，选择相同对象"))
(T
 (cond
 ((and *en1* en2)
(foreach x *en1*
 (cond((member x en2) (setq xt (cons x xt))))
)
(foreach x en2
 (cond ((member x *en1*) nil)
(T (setq bt (cons x bt)))
 )
)
(princ (list (reverse xt) (reverse bt)))
 )
 )
 (setq *en1* nil)
)
 )
 (princ)
)

894560869 · 发表于 2018-9-26 22:55:39

选择相似图形，可以完成批量修改

894560869 · 发表于 2018-9-26 22:57:06

相是修改图块功能一样

洪少(刀模) · 发表于 2018-9-27 09:25:35

受教了，谢谢

lostbalance · 发表于 2014-3-12 13:57:18

路过捧场

kwok · 发表于 2014-3-12 14:19:08

搬个板凳来支持...

819534890 · 发表于 2014-3-12 14:53:49

大力支持，振兴论坛

davide888 · 发表于 2014-3-12 15:37:54

凑热闹

jxjaxa · 发表于 2014-3-12 17:11:16

搬个板凳来支持...

峰峰兒 · 发表于 2014-3-12 17:43:31

提示: 作者被禁止或删除内容自动屏蔽

tender138 · 发表于 2014-3-12 23:12:40

路过捧场

USER2128 · 发表于 2014-3-13 08:58:17

支持黄大侠，回复看贴

FANGZHENG158 · 发表于 2014-3-13 09:07:06

搬个板凳来支持...

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

[源码] 组码比较=>((相同)(不同))

本帖被以下淘专辑推荐:

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2014-3-12 17:43:31 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡