通过曲线的一种筛选曲线类对象的代码，目的统计长度
本帖最后由 wzs07 于 2024-7-24 12:51 编辑麻烦大佬红色部位的代码如何写
(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))))
;;统计长度（并列式）
wzs07 发表于 2024-7-24 14:32
vlax-curve-getstartpoint的确可以判断对象是不是曲线，我是想通过曲线在图中筛选出（颜色、图层、线型） ...
图元类型 依 长度/面积/数量 分门别类 建表1
选择图元，获取图元类型，对比表1中属于哪个类型
依据表1中的子项来ssget筛选...... (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 长度 :lol
kozmosovia 发表于 2024-7-24 13:03
在别的帖子已经给你答案了，直接vlax-curve函数就可以判断是否能有面积且计算面积，所有各类曲线用同一标准 ...
vlax-curve-getstartpoint的确可以判断对象是不是曲线，我是想通过曲线在图中筛选出（颜色、图层、线型）相同的曲线，便于计算；
目标：首先根据选定对象，确定是可以计算长度类（曲线）；是可以计算面积类（如hatch）；还是可以计算数量类（如insert）
然后统计出同类对象的（长度/面积/数量）和
麻烦大佬给个思路 cad没有长度的数据。 ssget不用筛选长度，只能计算长度后筛选。 gzcsun 发表于 2024-7-24 12:48
cad没有长度的数据。 ssget不用筛选长度，只能计算长度后筛选。
不分类后，后面的长度会报错 在别的帖子已经给你答案了，直接vlax-curve函数就可以判断是否能有面积且计算面积，所有各类曲线用同一标准。还要抱着自己原来的思路不放。 本帖最后由 cchessbd 于 2024-7-24 13:17 编辑
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);所选类型
用cond分别判断vlax-curve-getstartpoint，hatch和insert就可以了 kozmosovia 发表于 2024-7-24 14:43
用cond分别判断vlax-curve-getstartpoint，hatch和insert就可以了
我的意思是：在entsel进行选择时，比如我的参考对象是曲线类（line、circle等），那后面的ssget只能选择曲线类；如果参考对象是hatch类，ssget只能选中填充类……
cond是不是在entsel后，这是容易出现混合选择（选择集内有曲线、有面积）
🙏 cchessbd 发表于 2024-7-24 13:15
(0 . "LINE ARC CIRCLE LWPOLYLINE SPLINE ELLIPSE POLYLINE") 改为
(cons 0 "LINE,ARC,CIRCLE,LWPOLYLI ...
这样只能选择对象类型相同，我是想选择曲线类（对象可以是line、circle，arc等可以计算长度的） 那知道ssget底层原理吗