社区 › AutoLISP/Visual LISP 编程技术 › 组码比较=>((相同)(不同))

自贡黄明儒 发表于 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)
)

**** Hidden Message *****

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

搬个板凳来支持...

查看完整版本: 组码比较=>((相同)(不同))