(bpoly pt ss '(1 0))

/db_自贡黄明儒_

(bpoly pt ss '(1 0))，哪个能解释一下'(1 0)是什么意思？
;对bpoly深度挖掘，可能还有其它用处。

;;判断点在封闭图形内 自贡黄明儒 2014.11.22
;;(HH_PtInCurve (getpoint) (ssget))
;;(HH_PtInCurve (getpoint) (car(entsel)))

游客，如果您要查看本帖隐藏内容请回复

/db_自贡黄明儒_

利用它是不是可以判断点是否在曲线内外

st788796

你从哪查到的这个用法？

/db_自贡黄明儒_

st788796 发表于 2014-11-21 11:43
你从哪查到的这个用法？

http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid588444

st788796

/db_自贡黄明儒_ 发表于 2014-11-21 11:52
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101654&page=1#pid588444

CAD2008
命令: (bpoly (getpoint) (ssget) '(1 0))
选择对象: 指定对角点: 找到 1 个
选择对象:
无效的选项关键字。
<图元名: 7ef998b0>

另外当有 spline ellipse 时候会出现选项的！

命令: (bpoly (getpoint) (ssget) '(1.0 0.0))
选择对象: 指定对角点: 找到 3 个
选择对象:
无效的选项关键字。
<图元名: 7ef99918>
无法导出多段线边界。是否创建面域？? <Y>
已提取 1 个环。

已创建 1 个面域。
BOUNDARY 已创建 1 个面域

/db_自贡黄明儒_

;;判断点是否在曲线内
;;(HH:PtInCurve (getpoint) (car (entsel)))
(defun HH:PtInCurve (p Curve / E0)
  (setq e0 (entlast))
  (VL-CATCH-ALL-APPLY 'bpoly (list p (ssadd Curve (ssadd)) '(1 0)))
  (cond        ((equal e0 (entlast)) nil)
        (T (entdel (entlast)) T)
  )
)

iLisp

/db_自贡黄明儒_ 发表于 2014-11-21 12:11
;;判断点是否在曲线内
;;(HHtInCurve (getpoint) (car (entsel)))
(defun HHtInCurve (p Curve / E0) ...

黄老师用闭合spline试试

/db_自贡黄明儒_

iLisp 发表于 2014-11-21 12:44
黄老师用闭合spline试试

1. ;;判断点是否在曲线内
   
2. ;;(HH_PtInCurve (getpoint) (car (entsel)))
   
3. (defun HH_PtInCurve (p Curve / E0)
   
4.   (setvar "nomutt" 1)
   
5.   (setq e0 (entlast))
   
6.   (VL-CATCH-ALL-APPLY 'bpoly (list p (ssadd Curve (ssadd)) '(1 0)))
   
7.   (cond((equal (assoc 0 (entget Curve)) '(0 . "SPLINE")) (apply 'command (list ""))))
   
8.   (setvar "nomutt" 0)
   
9.   (cond        ((equal e0 (entlast)) nil)
   
10.         (T (entdel (entlast)) T)
    
11.   )  
    
12. )
    

;;判断点是否在曲线内<br /> ;;(HH_PtInCurve (getpoint) (car (entsel)))<br /> (defun HH_PtInCurve (p Curve / E0)<br />   (setvar "nomutt" 1)<br />   (setq e0 (entlast))<br />   (VL-CATCH-ALL-APPLY 'bpoly (list p (ssadd Curve (ssadd)) '(1 0)))<br />   (cond((equal (assoc 0 (entget Curve)) '(0 . "SPLINE")) (apply 'command (list ""))))<br />   (setvar "nomutt" 0)<br />   (cond        ((equal e0 (entlast)) nil)<br />         (T (entdel (entlast)) T)<br />   )  <br /> )<br />

iLisp

/db_自贡黄明儒_ 发表于 2014-11-21 12:48

忘了说还有整椭圆

/db_自贡黄明儒_

iLisp 发表于 2014-11-21 13:07
忘了说还有整椭圆

都还行，选择集也行。

2. ;;判断点是否在曲线内
   
3. ;;(HH:PtInCurve (getpoint) (car (entsel)))
   
4. (defun HH:PtInCurve (p Curve / E0)
   
5.   (setvar "nomutt" 1)
   
6.   (setq e0 (entlast))
   
7.   (VL-CATCH-ALL-APPLY 'bpoly (list p (ssadd Curve (ssadd)) '(1 0)))
   
8.   (cond((wcmatch (cdr(assoc 0 (entget Curve))) "SPLINE,ELLIPSE") (apply 'command (list ""))))
   
9.   (setvar "nomutt" 0)
   
10.   (cond        ((equal e0 (entlast)) nil)
    
11.         (T (entdel (entlast)) T)
    
12.   )  
    
13. )
    

;;判断点是否在曲线内<br /> ;;(HH:PtInCurve (getpoint) (car (entsel)))<br /> (defun HH:PtInCurve (p Curve / E0)<br />   (setvar "nomutt" 1)<br />   (setq e0 (entlast))<br />   (VL-CATCH-ALL-APPLY 'bpoly (list p (ssadd Curve (ssadd)) '(1 0)))<br />   (cond((wcmatch (cdr(assoc 0 (entget Curve))) "SPLINE,ELLIPSE") (apply 'command (list ""))))<br />   (setvar "nomutt" 0)<br />   (cond        ((equal e0 (entlast)) nil)<br />         (T (entdel (entlast)) T)<br />   )  <br /> )<br />

iLisp

/db_自贡黄明儒_ 发表于 2014-11-21 13:21
都还行，选择集也行。

既然生成新实体最好把*error*也定义到里面

/db_自贡黄明儒_

iLisp 发表于 2014-11-22 11:49
既然生成新实体最好把*error*也定义到里面

见1楼，*error*有什么用呢？

iLisp

/db_自贡黄明儒_ 发表于 2014-11-22 12:52
见1楼，*error*有什么用呢？

万一运行中中断时不留下生成实体（如果有）

/db_自贡黄明儒_

iLisp 发表于 2014-11-22 12:54
万一运行中中断时不留下生成实体（如果有）

如果有，你来不及按ESC中断的。

newer

st788796 发表于 2014-11-21 11:57
CAD2008
命令: (bpoly (getpoint) (ssget) '(1 0))
选择对象: 指定对角点: 找到 1 个

2008确实很多情况提示 无效的关键字，这点很烦。