[求助]在LSP中有什么好方法检测对象是否是曲线？

lockmyeye

如题。


谢谢大家帮助。

mccad

图元名可以吧

kaixin119

高手,"LIST"列表后线的类型该可以看到的不知在编程里能用到吗

Ea

2. ;|Curve 类 AcDbLine、AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,
3.                      AcDbSpline AcDb2dPolyline
4.   |;
5. (defun IsCurve (objectname)
6.    (member objectname
7.      '("AcDbArc"               "AcDbPolyline"     "AcDbLine"
8.          "AcDbEllipse"           "AcDbSpline"     "AcDbCircle"
9.          "AcDb2dPolyline"
10.        )
11.    )
12. );;;;;;;;;;;;;;;;;;;;;;;;(defun c:test (/ e obj thisdrawing)
13.    (if (and (setq e (entsel "\n选择曲线: "))
14.        (setq obj (vlax-ename->vla-object (car e)))
15.        (member (vla-get-objectname obj)
16.          '("AcDbArc"    "AcDbPolyline"
17.              "AcDbLine"    "AcDbEllipse"
18.              "AcDbSpline"  "AcDbCircle"
19.              "AcDb2dPolyline"
20.            )
21.        )
22.            )
23.        (progn
24.            (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
25.            (vla-startundomark thisdrawing)
26.            .....
27.            (vla-endundomark thisdrawing)
28.        )
29.    )
30.    (princ)
31. )

;|Curve 类 AcDbLine、AcDbPolyline(lwpolyline),AcDbArc,AcDbCircle,AcDbEllipse,                      AcDbSpline AcDb2dPolyline   |; (defun IsCurve (objectname)    (member objectname      '("AcDbArc"               "AcDbPolyline"     "AcDbLine"          "AcDbEllipse"           "AcDbSpline"     "AcDbCircle"          "AcDb2dPolyline"        )    ) );;;;;;;;;;;;;;;;;;;;;;;;(defun c:test (/ e obj thisdrawing)    (if (and (setq e (entsel "\n选择曲线: "))        (setq obj (vlax-ename->vla-object (car e)))        (member (vla-get-objectname obj)          '("AcDbArc"    "AcDbPolyline"              "AcDbLine"    "AcDbEllipse"              "AcDbSpline"  "AcDbCircle"              "AcDb2dPolyline"            )        )            )        (progn            (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))            (vla-startundomark thisdrawing)            .....            (vla-endundomark thisdrawing)        )    )    (princ) )

无痕

3. (defun iscur (obj)
4.    (not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getstartparam (list obj))))
5. )

(defun iscur (obj)    (not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getstartparam (list obj)))) )

;|测试：
(setq obj (vlax-ename->vla-object (car(entsel))))
(if (iscur obj) (princ "\n实体是曲线")(princ "\n实体不是曲线"))
|;