本帖最后由 434939575 于 2015-6-7 00:34 编辑
wayne_myles 发表于 2015-6-6 21:36
顶一下 千万别沉了了!成功一定分享源码 - <div class="blockcode"><blockquote>(defun c:tt ()
- (setq add(ssadd))
- (setq ss (ssget'((0 . "LINE"))))
- (setq ii 0)
- (repeat (sslength ss)
- (setq name (ssname ss ii)
- ii (1+ ii)
- )
- (setq pta (vlax-curve-getstartpoint name))
- (setq ptb (vlax-curve-getendpoint name))
- (SETQ ang(angle pta ptb))
- (if (or(= ang (* 0.5 pi) )(= ang (* 1.5 pi) ))
- (setq add (ssadd name add))
- add
- )
- )
-
- )
|