[LISP函数]：选择集问题-选择X方向线段

tyt510 · 发表于 2009-11-6 12:32:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

选择集问题-选择X方向线段怎么表达

qiaqiadeng · 发表于 2009-11-9 13:13:19

(setq xz (ssget '((0 . "LINE"))))
接下来判断直线的角度是否为0或360°即可

tyt510 · 发表于 2009-11-9 14:33:46

怎么判断在这方面知识为零不过先谢谢你了

qiaqiadeng · 发表于 2009-11-12 15:00:16

(defun c:k ()
  (setq xzline (ssadd))
  (setq gap 5) ;角度误差(°)
  (setq gap (/ (* gap pi) 180))
  (setq i 0)
  (if (setq xz (ssget '((0 . "LINE"))))
(repeat (sslength xz)
   (setq obj (ssname xz i))
   (setq objlist (entget obj))
   (setq ang (angle (cdr (assoc 10 objlist)) (cdr (assoc 11 objlist))))
   (if (or (equal ang 0 gap) ;0°附近
      (equal ang pi gap) ;180°附近
      (equal ang (* 2 pi) gap) ;180°附近
   )
(setq xzline (ssadd obj xzline))
   )
   (setq i (+ i 1))
)
  )
  (if (> (sslength xzline) 0)
(sssetfirst xzline xzline)
  )
  (princ)
)

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：选择集问题-选择X方向线段

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子