通过曲线的一种筛选曲线类对象的代码，目的统计长度

wzs07

麻烦大佬红色部位的代码如何写
(if ref_ent
                (progn
                     ;; 获取实体数据
                     (setq ent_data (entget ref_ent))
                     ;; 提取实体数据并检查每个属性的存在性
                     (setq ent_type (cdr (assoc 0 ent_data))); 获取实体类型
                  ;;通过曲线的一种
                    (if (car (member ent_type (list "LINE" "ARC" "CIRCLE" "LWPOLYLINE" "SPLINE" "ELLIPSE" "POLYLINE")))            
                        ;;检查为曲线的下一步
                        (progn

                         (setq ent_ltype (cdr (assoc 6 ent_data))); 获取线型
                         (if (not ent_ltype) (setq ent_ltype "Bylayer"))      
                         (setq ent_layer (cdr (assoc 8 ent_data))); 获取图层
                         (setq ent_col (cdr (assoc 62 ent_data))); 获取颜色
                         (if (not ent_col) (setq ent_col 256))
                         (princ (strcat "\n将选择类型为 \"" ent_Type "\" ,图层 \"" ent_layer "\" , 颜色 \"" (itoa ent_col) "\" , 线型 \"" ent_ltype "\" 的对象."))
                            (setq SS (ssget (list
                                             ;;目的：，筛选曲线类，实现对以下能够计算长度的曲线类进行筛选，如何实现
                                              (0 . "LINE ARC CIRCLE LWPOLYLINE SPLINE ELLIPSE POLYLINE")
                                              (cons 8 ent_layer)
                                              (cons 62 ent_col)
                                              (cons 6 ent_ltype))))
                                        ;;统计长度（并列式）

xtjd

wzs07 发表于 2024-7-24 14:32
vlax-curve-getstartpoint的确可以判断对象是不是曲线，我是想通过曲线在图中筛选出（颜色、图层、线型） ...

图元类型 依 长度/面积/数量 分门别类 建表1
选择图元，获取图元类型，对比表1中属于哪个类型
依据表1中的子项来ssget筛选......

gzcsun

                            (setq SS (ssget (list
                                             ;;目的：，筛选曲线类，实现对以下能够计算长度的曲线类进行筛选，如何实现
                                              (0 . "LINE ARC CIRCLE LWPOLYLINE SPLINE ELLIPSE POLYLINE")
                                              (cons 8 ent_layer)
                                              (cons 62 ent_col)
                                              (cons 6 ent_ltype))))
                                        ;;统计长度（并列式）


估计你自己设计一个CAD就可以 ssget 长度

wzs07

kozmosovia 发表于 2024-7-24 13:03
在别的帖子已经给你答案了，直接vlax-curve函数就可以判断是否能有面积且计算面积，所有各类曲线用同一标准 ...

vlax-curve-getstartpoint的确可以判断对象是不是曲线，我是想通过曲线在图中筛选出（颜色、图层、线型）相同的曲线，便于计算；
目标：首先根据选定对象，确定是可以计算长度类（曲线）；是可以计算面积类（如hatch）；还是可以计算数量类（如insert）
         然后统计出同类对象的（长度/面积/数量）和
麻烦大佬给个思路

gzcsun

cad没有长度的数据。 ssget不用筛选长度，只能计算长度后筛选。

wzs07

gzcsun 发表于 2024-7-24 12:48
cad没有长度的数据。 ssget不用筛选长度，只能计算长度后筛选。

不分类后，后面的长度会报错

kozmosovia

在别的帖子已经给你答案了，直接vlax-curve函数就可以判断是否能有面积且计算面积，所有各类曲线用同一标准。还要抱着自己原来的思路不放。

cchessbd

wzs07 发表于 2024-7-24 12:56
不分类后，后面的长度会报错

(0 . "LINE ARC CIRCLE LWPOLYLINE SPLINE ELLIPSE POLYLINE") 改为
(cons 0 "LINE,ARC,CIRCLE,LWPOLYLINE,SPLINE,ELLIPSE,POLYLINE");多种类型
或
(cons 0 ent_type);所选类型

kozmosovia

用cond分别判断vlax-curve-getstartpoint，hatch和insert就可以了

wzs07

kozmosovia 发表于 2024-7-24 14:43
用cond分别判断vlax-curve-getstartpoint，hatch和insert就可以了

我的意思是：在entsel进行选择时，比如我的参考对象是曲线类（line、circle等），那后面的ssget只能选择曲线类；如果参考对象是hatch类，ssget只能选中填充类……
cond是不是在entsel后，这是容易出现混合选择（选择集内有曲线、有面积）
🙏

wzs07

cchessbd 发表于 2024-7-24 13:15
(0 . "LINE ARC CIRCLE LWPOLYLINE SPLINE ELLIPSE POLYLINE") 改为
(cons 0 "LINE,ARC,CIRCLE,LWPOLYLI ...

这样只能选择对象类型相同，我是想选择曲线类（对象可以是line、circle，arc等可以计算长度的）

你有种再说一遍

那知道ssget底层原理吗