如何区分Ell
嗨,球童们,如何识别椭圆对象是闭合的(即全椭圆)还是开放的(即椭圆弧)?
感谢您的回复。
(if
(= StartAngle 0)
(Closed/FullEllipse)
(Open/EllipseArc)
)
我的方法。。。
(vlax-curve-IsClosed (car (entsel "\n Select Ellipse :")))
如果是T。否则为零 很好tharwat
我不知道那个
谢谢pBe,
我知道这些函数是从vlax曲线开始的-***,当时我正在与多段线斗争,想知道如何处理它们。
所以再也没有机会忘记他们了。
干杯 pBe和Tharwat,
非常感谢你的帮助。
同时,我研究了内部椭圆和椭圆弧列表。我在里面发现了一个dxf代码,它显示椭圆是否闭合。
以下代码的优点是自动或动态(在选择对象时)过滤它们。
(setq ellipses
(ssget "X"
(list
(cons -4 "<AND")
(cons 0 "ELLIPSE")
(cons 41 0)
(cons -4 "AND>")
)
)
)
(setq ellipsearcs
(ssget "X"
(list
(cons -4 "<AND")
(cons 0 "ELLIPSE")
(cons -4 "<NOT")
(cons 41 0)
(cons -4 "NOT>")
(cons -4 "AND>")
)
)
)
但这是正确的
(ssget "X" '((0 . "ELLIPSE") (41 . 0)))对于过滤器列表就足够了
我太专注于vlaobjects了,以至于想不出vanilla的简单语法
好东西啊哈哈 pBe,
谢谢。
你解释的一切都很清楚,除非你说出pBe的名字
不完全是这样。
考虑:
(entmakex
(list
(cons 0 "ELLIPSE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbEllipse")
(list 10 0.0 0.0 0.0)
(list 11 1.0 0.0 0.0)
(cons 40 0.5)
(cons 41 0.0)
(cons 42 pi)
)
)
这不适用于上述反例,请考虑以下内容:
(defun c:ellipses nil
(sssetfirst nil
(ssget "_X"
(list
(cons 0 "ELLIPSE")
(cons 41 0.0)
(cons 42 (* 2 pi))
)
)
)
)
(defun c:ellipsearcs nil
(sssetfirst nil
(ssget "_X"
(list
(cons 0 "ELLIPSE")
(cons -4 "<OR")
(cons -4 "<>")
(cons 41 0.0)
(cons -4 "<>")
(cons 42 (* 2 pi))
(cons -4 "OR>")
)
)
)
)
我一发布就意识到了这一点。
真正地我想我没有做一个彻底的测试
谢谢你提供的信息。
页:
[1]
2