[LISP函数]：求任意封闭图形中加一点的程序

kkk3kkk · 发表于 2004-7-30 23:42:01

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

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

×

求任意封闭图形中加一点的程序

lsjjm · 发表于 2004-7-31 05:04:45

不明白你的意思. 可能一个很简单的问题, 但题意不清, 别人无法回答.
1. 是封闭曲线, 还是...
2. "加一点" 是创建点实体? 还是...

kkk3kkk · 发表于 2004-7-31 23:42:34

1. 封闭曲线,封闭pline...多边型
2. "加一点" 是创建点实体，是在封闭曲线,封闭pline...多边型...圆形内部任意加一点的程序

playboy · 发表于 2004-8-6 16:34:44

托普啊

Free-Lancer · 发表于 2004-8-6 19:38:56

利用 BoundaryBOX 在对角线画辅助线，然后求辅助线与封闭图形的交点，交点大于 1 时，在两个交点中间任取一点即可。

梦断江南 · 发表于 2004-8-6 21:19:47

楼上的方法未必一定在封闭区域内（比如凹角）

aidraft · 发表于 2004-8-7 01:54:21

我的思路是这样的：
先在曲线上随便找一点，再沿该点的法线方向左右各按非常小的位移量取两点，其中一点应该在内部。要确定哪一点才是在内部，可以用下面的方法：以其中一点为中心作一个非常小的园，再用该园生成一区域，再将该区域与封闭曲线生成的区域作BOOLEAN运算，运算的结果很容易确定该小园是否在曲线内部。

lsjjm · 发表于 2004-8-7 05:28:01

5楼: 交点数大于1时, 可能有很多"两个交点"呀, 取哪两个交点的中间?
7楼: 前半截思路可以, 后半截可否这样: OFFSET边界, 面积小的那个点在图形内侧.

Free-Lancer · 发表于 2004-8-7 06:42:52

最初由梦断江南发布
[B]楼上的方法未必一定在封闭区域内（比如凹角） [/B]

话是没有说完，斑竹这么聪明应该知道办法的。求得交点后要 vl-sort 一次，两个点只要的第一和第二个点，如果第一个是凹角那第二个点和第三个点间肯定在内部（如果有第三个交点的话，只有两个交点时封闭图形不会有凹角，你可以证明下）

aidraft · 发表于 2004-8-7 07:57:59

八楼讲的没错
九楼的方法至少有一个例子是不行的，就是一个简单的直角三角形

Free-Lancer · 发表于 2004-8-7 08:32:52

最初由 aidraft 发布
[B]八楼讲的没错
九楼的方法至少有一个例子是不行的，就是一个简单的直角三角形 [/B]

你试过吗？

(defun c:test (/ e1 ll ln lp ms p1 p2 pl up )
(if (setq e1 (entsel "\n拾取三角形: "))
(progn
(vla-getboundingbox
(setq pl (vlax-ename->vla-object (car e1)))
'lp
'up
)
(setq ln (vla-addline
(setq
ms (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
lp
up
)
)
(setq
ll (vlax-variant-value (vla-intersectwith pl ln acextendnone))
)
(vla-delete ln)
(setq p1 (list (vlax-safearray-get-element ll 0)
(vlax-safearray-get-element ll 1)
(vlax-safearray-get-element ll 2)
)
p2 (list (vlax-safearray-get-element ll 3)
(vlax-safearray-get-element ll 4)
(vlax-safearray-get-element ll 5)
)
)
(setvar "pdsize" -15)
(setvar "pdmode" 35)
(vla-addpoint
ms
(vlax-3d-point
(mapcar '(lambda (x) (/ x 2)) (mapcar '+ p1 p2))
)
)
)
)
(princ)
)

(defun c:test (/ e1 ll ln lp ms p1 p2 pl up ) 
  (if (setq e1 (entsel "\n拾取三角形: ")) 
    (progn 
      (vla-getboundingbox 
        (setq pl (vlax-ename->vla-object (car e1))) 
        'lp 
        'up 
      ) 
      (setq ln (vla-addline 
                 (setq 
                   ms (vla-get-modelspace 
                        (vla-get-activedocument (vlax-get-acad-object)) 
                      ) 
                 ) 
                 lp 
                 up 
               ) 
      ) 
      (setq 
        ll (vlax-variant-value (vla-intersectwith pl ln acextendnone)) 
      ) 
      (vla-delete ln) 
      (setq p1 (list (vlax-safearray-get-element ll 0) 
                     (vlax-safearray-get-element ll 1) 
                     (vlax-safearray-get-element ll 2) 
               ) 
            p2 (list (vlax-safearray-get-element ll 3) 
                     (vlax-safearray-get-element ll 4) 
                     (vlax-safearray-get-element ll 5) 
               ) 
      ) 
      (setvar "pdsize" -15) 
      (setvar "pdmode" 35) 
      (vla-addpoint 
        ms 
        (vlax-3d-point 
          (mapcar '(lambda (x) (/ x 2)) (mapcar '+ p1 p2)) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

当然，如果对角线正好和一个边对齐时点就会在线上，也不会跑到外部

aidraft · 发表于 2004-8-7 08:47:52

我说的正是“对角线正好和一个边对齐”这种情况，这时点在线上，是不符合楼主要求的。如果在线上也符合要求。这问题本身就不成为一个问题了。随便在线上找一点，下面一句就行了：
(vlax-curve-getStartPoint curve-obj)

kkk3kkk · 发表于 2004-8-7 09:31:06

很多谢各为楼主的见解。若封闭图形是如A，W，E，T，K，M，N，H，Y，L形的双线封闭图形中加一点的程序，又有何见解。。。。。。

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

[LISP函数]：求任意封闭图形中加一点的程序

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

相关帖子

浏览过的版块