[LISP程序]：有无简便方法判别一条“U"型多义线的开口向上或向下？

kohi · 发表于 2007-1-9 09:39:06

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

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

×

有无简便方法判别一条“U"型多义线的开口向上或向下？

小菜 · 发表于 2007-1-9 13:57:16

以U的两个端点的中点向上或向下作射线，通过射线与U形线的交点可以作出判断

kohi · 发表于 2007-1-13 03:16:04

方法倒可以，但不简便呀。

Underway · 发表于 2007-1-13 08:41:17

假若是单纯的线弧线所构成的 'U' 型
那么判断第一节线段的向量亦可

kohi · 发表于 2007-1-13 09:40:54

如果第一节线段是铅锤的直线，如何判别？

Underway · 发表于 2007-1-15 09:24:30

(setq vv (angle p1 p2))
(cond
((equal vv (* Pi 0.5) 1e-4) "向上")
((equal vv (* Pi 1.5) 1e-4) "向下")
)

kohi · 发表于 2007-1-15 17:36:50

6楼的程序何用？？

HuaiYu · 发表于 2007-1-15 21:10:49

我们以是否能装水来判断朝上还是朝下
Then all problem is so easy
(Defun c:tt ()
  (vl-load-com)
  ;; 请选择一个U型的图元 .
  (setq en (car (entsel "\nPlease select a 'U' LWPOLYLINE: ")))
  (setq lstPt (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))))
  (setq ang (angle (nth 0 lstPt) (nth 1 lstPt)))
  (cond ((and (< ang (* pi 2.0)) (> ang pi)) (princ "\n向上"))
((and (< ang pi) (> ang 0)) (princ "\n向下"))
((equal ang pi) (princ "\n向右"))
((equal ang 0) (princ "\n向左"))
  )
  (prin1)
)

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

[LISP程序]：有无简便方法判别一条“U"型多义线的开口向上或向下？

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

相关帖子