2013.2.25抢先发帖，纪念论坛重生啊

weiqi

上一次发帖还在除夕前~~记得那天早上来还看到院长的帖子。。。
之后来就不行了。。。。。

没有论坛的日子。。。作为菜鸟，根本写不了代码~~~
祝明经2013年越来越好~

weiqi

放源码嘛

xiabin68

zgzzsn

祝明经2013年越来越好

龙城飞将36

老大辛苦了。等的我们也好着急，不过现在终于ok了。

ps122hb

发帖纪念重生成功

ygp820601

纪念明经重生

simpleye

纪念明经重生

ruirui999

嘿嘿，赶紧踩起！

【KAIXIN】

2. ;根据角度改直线颜色
   
3. (defun c:xx (/ ang1 ang2 i s1 s2 ss ss2)
   
4.   (xx-coma)
   
5.   (xx-princa "改角度相等的直线颜色")
   
6.   (xx-princ "直线对象")
   
7.   (setq s1 (xx-e2o (car (xx-get-entsel '((0 . "LINE")) "直线"))))
   
8.   (setq ang1 (vla-get-angle s1))       ; 提取线的角度
   
9.   (if (setq ss (ssget '((0 . "LINE"))))
   
10.     (progn
    
11.       (setq i -1)
    
12.       (while (setq s2 (ssname ss (setq i (1+ i))))
    
13.         (setq ss2 (xx-e2o s2)
    
14.               ang2 (vla-get-angle ss2)
    
15.         )
    
16.         (if (= ang1 ang2)
    
17.           (vla-put-color ss2 1)               ; 替换对象颜色
    
18.         )
    
19.       )
    
20.     )
    
21.   )
    
22.   (xx-comb)
    
23. )
    
24. 
    

;根据角度改直线颜色<br /> (defun c:xx (/ ang1 ang2 i s1 s2 ss ss2)<br />   (xx-coma)<br />   (xx-princa "改角度相等的直线颜色")<br />   (xx-princ "直线对象")<br />   (setq s1 (xx-e2o (car (xx-get-entsel '((0 . "LINE")) "直线"))))<br />   (setq ang1 (vla-get-angle s1))       ; 提取线的角度<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (progn<br />       (setq i -1)<br />       (while (setq s2 (ssname ss (setq i (1+ i))))<br />         (setq ss2 (xx-e2o s2)<br />               ang2 (vla-get-angle ss2)<br />         )<br />         (if (= ang1 ang2)<br />           (vla-put-color ss2 1)               ; 替换对象颜色<br />         )<br />       )<br />     )<br />   )<br />   (xx-comb)<br /> )<br /> <br />