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

/db_自贡黄明儒_

记得以往，我相比较单行文字左和居中对齐时，组码有什么不同，都是傻乎乎地enget后用肉眼看有什么不同，有一天，我想...于是有了下面的程序

游客，如果您要查看本帖隐藏内容请回复

st788796

1. ;;;---------------------------------------------------------------;
   
2. ;;;功能: 取表1中不在表2的元素                                     ;
   
3. ;;;输入: lst1 - 表1; lst2 - 表2                                   ;
   
4. ;;;输出: 表                                                       ;
   
5. ;;;---------------------------------------------------------------;
   
6. ;;比较不同 去重复
   
7. (defun List:Difference (lst1 lst2 /)
   
8.   (mapcar '(lambda (x)
   
9.              (setq lst1 (vl-remove x lst1))
   
10.            )
    
11.           lst2
    
12.   )
    
13.   lst1
    
14. )

;;;---------------------------------------------------------------;<br /> ;;;功能: 取表1中不在表2的元素                                     ;<br /> ;;;输入: lst1 - 表1; lst2 - 表2                                   ;<br /> ;;;输出: 表                                                       ;<br /> ;;;---------------------------------------------------------------;<br /> ;;比较不同 去重复<br /> (defun List:Difference (lst1 lst2 /)<br />   (mapcar '(lambda (x)<br />              (setq lst1 (vl-remove x lst1))<br />            )<br />           lst2<br />   )<br />   lst1<br /> )

/db_自贡黄明儒_

st788796 发表于 2014-3-13 14:25

你也搞得太简单了呀！

st788796

/db_自贡黄明儒_ 发表于 2014-3-13 15:00
你也搞得太简单了呀！

能用就行

(List:Difference (entget (car (entsel))) (entget (car (entsel))))

只是看不出另外一个的值，比较 DXF 不同码，需要再增加几个语句

ynhh

是比较图元用的吗

/db_自贡黄明儒_

ynhh 发表于 2014-3-13 15:16
是比较图元用的吗

比较组码的

77077

看看，应该可以~~~

yhly555

程序很简单，就是不知道效果怎么样，试一下

杜流浪人

支持黄老师   

auva

回复看楼主的代码啦！感谢！

duotu007

谢谢分享。。。。。。。。。

wzg356

后来才发现

yoyoho

支持黄老师!.......

czx663

黄老师的大作,要学习一下

279491611

看看，学习,学习