程序思路探讨

zhuizhu · 发表于 2013-11-14 17:18:18

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

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

×

直线延伸到与圆心垂直处，直接上图说明:
执行前:

执行后:

用试过用SSGET CP
SSGET F都没有成功
要判断的因素，直线是否在圆上与圆中，或者圆外

newer · 发表于 2013-11-14 18:18:00

本帖最后由 newer 于 2013-11-14 18:19 编辑

楼主，计算交点，和SSGET什么的有关系吗？
你的想法是已知什么？让用户选什么？

给你个思路，从直线得到方向向量(mapcar '- endPt startPt)，然后再得到垂向量，然后用 (mapcar '+ cen vec)得到过圆心垂直于直线的向量，然后你求这两个向量的交点就可以了。

st788796 · 发表于 2013-11-14 18:32:36

newer 发表于 2013-11-14 18:18
楼主，计算交点，和SSGET什么的有关系吗？
你的想法是已知什么？让用户选什么？

嗯，这样用inters求交点，然后修改startpoint endpoint

zhuizhu · 发表于 2013-11-15 08:27:06

newer 发表于 2013-11-14 18:18
楼主，计算交点，和SSGET什么的有关系吗？
你的想法是已知什么？让用户选什么？

其实，我觉得难点应该在于，怎么来判断一个直线在哪个圆上或者是一个圆与哪两直线相交，
可能还有两直线的起点在一个圆的情况

newer · 发表于 2013-11-15 08:33:30

zhuizhu 发表于 2013-11-15 08:27
其实，我觉得难点应该在于，怎么来判断一个直线在哪个圆上或者是一个圆与哪两直线相交，
可能还有两直 ...

感觉你没说明白你的问题，你就说下，就开始你想怎么做，怎么选，选什么，最后得到什么。

ayl1004 · 发表于 2013-11-15 08:55:25

按圆的边框获取直线，计算圆心到直线的垂点，并计算圆心和垂点的距离
如果这个距离小于圆的半径，那么就更改直线的端点为垂点。

/db_自贡黄明儒_ · 发表于 2013-11-15 09:07:47

1 临时圆心连线，用后删除
2 使用_extend

st788796 · 发表于 2013-11-15 09:10:32

zhuizhu 发表于 2013-11-15 08:27
其实，我觉得难点应该在于，怎么来判断一个直线在哪个圆上或者是一个圆与哪两直线相交，
可能还有两直 ...

可以这样求与圆相交的线

(defun c:tt (/ ss css lss)
(if (and (setq ss (ssget '((0 . "circle,line"))))
(setq css (ssget "p" '((0 . "circle"))))
(setq lss (xdrx_pickset_subtract ss css))
)
(progn
(mapcar '(lambda (c / p r)
(setq p (xdrx_getpropertyvalue c "Center")
r (xdrx_getpropertyvalue c "Radius")
)
(if (setq ll
(vl-remove
nil
(mapcar
'(lambda (l)
(if
(or
(<=
(distance (xdrx_curve_getstartpoint l) p)
r
)
(<= (distance (xdrx_curve_getendpoint l) p)
r
)
)
l
nil
)
)
)
)
)
(cons c ll)
c
)
)
(xdrx_pickset->ents css)
)
)
)
)

(defun c:tt (/ ss css lss) 
  (if (and (setq ss (ssget '((0 . "circle,line")))) 
           (setq css (ssget "p" '((0 . "circle")))) 
           (setq lss (xdrx_pickset_subtract ss css)) 
      ) 
    (progn 
      (mapcar '(lambda (c / p r) 
                 (setq p (xdrx_getpropertyvalue c "Center") 
                       r (xdrx_getpropertyvalue c "Radius") 
                 ) 
                 (if (setq ll 
                            (vl-remove 
                              nil 
                              (mapcar 
                                '(lambda (l) 
                                   (if 
                                     (or 
                                       (<= 
                                         (distance (xdrx_curve_getstartpoint l) p) 
                                         r 
                                       ) 
                                       (<= (distance (xdrx_curve_getendpoint l) p) 
                                           r 
                                       ) 
                                     ) 
                                      l 
                                      nil 
                                   ) 
                                 ) 
                              ) 
                            ) 
                     ) 
                   (cons c ll) 
                   c 
                 ) 
               ) 
              (xdrx_pickset->ents css) 
      ) 
    ) 
  ) 
)

ll_j · 发表于 2013-11-15 09:23:52

zhuizhu 发表于 2013-11-15 08:27
其实，我觉得难点应该在于，怎么来判断一个直线在哪个圆上或者是一个圆与哪两直线相交，
可能还有两直 ...

按直线的向量（斜率）求圆与直线的垂直距离，距离大于圆的半径，直线自然不与圆相交，否则就相交，继而再求垂直交点。
也可以先求垂足再判断是否相交，这要看实体的多少，数量少怎么次序都可以。

newer · 发表于 2013-11-15 09:46:12

本帖最后由 newer 于 2013-11-15 09:49 编辑

我想你之所以没选到圆，是因为你没以后把点适当的延伸点，下面代码给你写注释了，你参考下思路。
技巧是延伸的长度用当前的PICKBOX的高度，这样可以适合任意的图形大小，因为这个高度是相对于屏幕视觉显示的
三种情况，点在圆内，点在圆外（PICKBOX内处理），点在圆上。
程序是选线找圆。

(defun c:tt ()
(if (setq ss (ssget '((0 . "LINE")))) ; 选择LINE
(progn
(setq ents (xdrx_pickset->ents ss)) ; 实体表
(foreach n ents
(setq sPt (xdrx_getpropertyvalue n "StartPoint")
ePt (xdrx_getpropertyvalue n "EndPoint")
v (mapcar '- ePt sPt)
v (xdrx_vector_normalize v)
h (XD::Doc:GetPickBoxHeight) ;;获得当前拾取框的屏幕高度
ePt1 (mapcar '+ ePt (xdrx_vector_product v h));;延伸端点，确保可以选到圆
sPt1 (mapcar '+ sPt (xdrx_vector_product (xdrx_vector_negate v) h))
v-p (xdrx_vector_PerpVector v);;垂向量
ss (ssget "f" (list sPt1 ePt1) '((0 . "CIRCLE")))
)
(if ss
(progn
(setq ents1 (xdrx_pickset->ents ss))
(foreach m ents1
(setq cen (xdrx_getpropertyvalue m "Center")
p_3 (mapcar '+ cen v-p)
int (inters sPt ePt cen p_3 nil )
)
(if int
(progn
(if (< (distance ePt int) (distance sPt int))
(xdrx_curve_extend n int nil);; 延伸起点到交点
(xdrx_curve_extend n int t);;延伸端点到交点
)
(xdrx_line_make int cen);;画圆心垂线
(xdrx_entity_setcolor (entlast) 1)
)
)
)
)
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (setq ss (ssget '((0 . "LINE"))))        ; 选择LINE 
    (progn 
      (setq ents (xdrx_pickset->ents ss)) ; 实体表 
      (foreach n ents 
        (setq sPt (xdrx_getpropertyvalue n "StartPoint") 
              ePt (xdrx_getpropertyvalue n "EndPoint") 
              v (mapcar  '- ePt sPt) 
              v (xdrx_vector_normalize v) 
              h (XD::Doc:GetPickBoxHeight) ;;获得当前拾取框的屏幕高度 
              ePt1 (mapcar '+ ePt (xdrx_vector_product v h));;延伸端点，确保可以选到圆 
              sPt1 (mapcar '+ sPt (xdrx_vector_product (xdrx_vector_negate v) h)) 
              v-p (xdrx_vector_PerpVector v);;垂向量 
              ss (ssget "f" (list sPt1 ePt1) '((0 . "CIRCLE"))) 
        ) 
        (if ss 
          (progn 
            (setq ents1 (xdrx_pickset->ents ss)) 
            (foreach m ents1 
              (setq cen (xdrx_getpropertyvalue m "Center") 
                    p_3 (mapcar  '+    cen   v-p) 
                    int (inters  sPt  ePt  cen   p_3  nil ) 
              ) 
              (if int 
                (progn 
                  (if (< (distance ePt int) (distance sPt int)) 
                    (xdrx_curve_extend n int nil);; 延伸起点到交点 
                    (xdrx_curve_extend n int t);;延伸端点到交点 
                  ) 
                  (xdrx_line_make int cen);;画圆心垂线 
                  (xdrx_entity_setcolor (entlast) 1) 
                ) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

炫翔 · 发表于 2013-11-15 11:13:08

框选直线，遍历直线
获取直线的起点终点，
延伸两端点，用来选取与直线相交的圆
判断圆的选择集是否存在遍历圆
判断直线起点终点是否在圆上或圆内
更改直线起点终点

st788796 · 发表于 2013-11-15 12:15:40

炫翔发表于 2013-11-15 11:13
框选直线，遍历直线
获取直线的起点终点，
延伸两端点，用来选取与直线相交的圆

按ll_j长老算法不用延伸 ssget的，有交点直接修改

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

[求助] 程序思路探讨

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

相关帖子

点评

点评

点评