weiqi 发表于 2013-2-25 23:18:51

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

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

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

weiqi 发表于 2013-2-9 11:28:30

放源码嘛

xiabin68 发表于 2013-2-25 23:21:29

zgzzsn 发表于 2013-2-26 08:09:34

祝明经2013年越来越好

龙城飞将36 发表于 2013-2-26 08:13:12

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

ps122hb 发表于 2013-2-26 08:46:18

发帖纪念重生成功

ygp820601 发表于 2013-2-26 09:51:38

纪念明经重生

simpleye 发表于 2013-2-26 10:11:01

纪念明经重生

ruirui999 发表于 2013-2-26 16:50:50

嘿嘿，赶紧踩起！

【KAIXIN】 发表于 2013-2-26 16:54:58

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

页: [1] 2
查看完整版本: 2013.2.25抢先发帖，纪念论坛重生啊