多义线顶点数量函数

phoenixdjq

哪位大神指点一下，求多义线顶点函数，好久没用，想不起来了

谢谢！

寒潮大冬瓜

(vlax-curve-getStartParam (car (entsel)));返回曲线的开始参数
(vlax-curve-getendparam (car (entsel)));返回曲线端点的参数

(vlax-safearray->list (vlax-variant-value (vlax-get-property (vlax-ename->vla-object (car (entsel))) 'Coordinates))) 二维多义线顶点集合
(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Coordinates);二维多义线顶点集合
(mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car (entsel))))) ;顶点坐标xyz集合样条曲线也合适

;明经通道 Visual LISP 函数VLAX- 函数本节内容包括:
;vlax-3D-point 创建与 ActiveX 兼容的(变体)三维点结构
;vlax-add-cmd 将命令添加到 AutoCAD 内置命令集中
;vlax-create-object 创建应用程序对象的新实例
;vlax-curve-getArea 返回曲线的面积
;vlax-curve-getClosestPointTo 返回曲线上离指定点最近的点(在 WCS 上)
;vlax-curve-getClosestPointToProjection 在将曲线投影到平面上之后，返回曲线上的最近点(在 WCS 上)
;vlax-curve-getDistAtParam 返回曲线从开始到指定参数的曲线段的长度
;vlax-curve-getDistAtPoint 返回曲线从开始点到指定点的曲线段的长度
;vlax-curve-getEndParam 返回曲线端点的参数
;vlax-curve-getEndPoint 返回曲线的端点(按 WCS 表示)
;vlax-curve-getFirstDeriv 返回曲线在指定位置的第一个衍生(在 WCS 中)
;vlax-curve-getParamAtDist 返回距曲线开始点为指定距离的曲线参数
;vlax-curve-getParamAtPoint 返回曲线在指定点的参数
;vlax-curve-getPointAtDist 返回曲线上距开始点为指定距离的点(在 WCS 中)
;vlax-curve-getPointAtParam 返回曲线上具有指定参数值的点
;vlax-curve-getSecondDeriv 返回曲线在指定位置的第二个衍生(在 WCS 中)
;vlax-curve-getStartParam 返回曲线的开始参数
;vlax-curve-getStartPoint 返回曲线的开始点(在 WCS 中)
;vlax-curve-isClosed 确定指定曲线是否闭合(即起点与端点是否重合)
;vlax-curve-isPeriodic 确定指定曲线是否在各个方向上都是无限的，同时存在一个周期值 dT，使得对于任何参数 u，都有曲线上的点 (u + dT) = 点 (u) 成立
;vlax-curve-isPlanar 确定是否存在包含曲线的平面
;vlax-dump-object 列出对象特性，也可选择列出对象的方法
;vlax-ename->vla-object 将 AutoLISP 类型的对象名转换为 VLA 对象
;vlax-erased-p 确定对象是否被删除
;vlax-for 遍历对象集，对每个表达式进行求值
;vlax-get-acad-object 检索当前 AutoCAD 任务中的顶层 AutoCAD 应用程序对象
;vlax-get-object 返回应用程序对象的运行实例
;vlax-get-or-create-object 返回应用程序对象的运行实例。如果应用程序当前未运行，则创建新实例
;vlax-get-property 检索 VLA 对象的特性
;vlax-import-type-library 从类型库中输出信息
;vlax-invoke-method 调用指定的 ActiveX 方法
;vlax-ldata-delete 从图形词典中删除 LISP 数据
;vlax-ldata-get 在图形词典或对象中检索 LISP 数据
;vlax-ldata-list 列出图形词典中的 LISP 数据
;vlax-ldata-put 存储图形词典或对象中的 LISP 数据
;vlax-ldata-test 确定数据是否能越任务边界保存
;vlax-make-safearray 创建 SafeArray
;vlax-make-variant 创建变体数据类型
;vlax-map-collection 将函数应用到集合中的所有对象
;vlax-method-applicable-p 确定对象是否支持某个方法
;vlax-object-released-p 确定对象是否已被释放
;vlax-product-key 返回 AutoCAD 的 Window 注册表路径
;vlax-property-available-p 确定对象是否具有指定特性
;vlax-put-property 设置 ActiveX 对象的特性
;vlax-read-enabled-p 确定对象是否可读
;vlax-release-object 释放图形对象
;vlax-remove-cmd 删除一个命令或一组命令
;vlax-safearray-fill 在 SafeArray 的元素中存储数据
;vlax-safearray-get-dim 返回 SafeArray 对象的维数
;vlax-safearray-get-element 返回 Safearray 中的元素
;vlax-safearray-get-l-bound 返回 Safearray 某一维的下界(开始索引)
;vlax-safearray-get-u-bound 返回 Safearray 某一维的上界(结束索引)
;vlax-safearray-put-element 给 Safearray 中的某元素赋值
;vlax-safearray-type 返回 SafeArray 的数据类型
;vlax-safearray->list 以表的形式返回 SafeArray 中的元素
;vlax-tmatrix 返回 VLA 方法可用的 4x4 转换矩阵的适当表示
;vlax-typeinfo-available-p 确定在指定类型的对象中是否存在 TypeLib 信息
;vlax-variant-change-type 在改变变体的数据类型后返回该变体的值
;vlax-variant-type 确定变体的数据类型
;vlax-variant-value 返回变体的值
;vlax-vla-object->ename 将 VLA 对象转换为 AutoLISP 对象名
;vlax-write-enabled-p 确定是否能够修改 AutoCAD 图形

start4444

是不是这个
;;返回多段线顶点表
(defun vertexs (ename / plist pp n)
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list
  (vlax-variant-value
    (vla-get-coordinates obj))))
  (setq n 0)
  (repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n 2))
  )
  pp
)

phoenixdjq

自贡黄明儒 发表于 2024-6-12 12:40
entget只取10的组码

谢谢，组码这个是可以提取，我是想用函数
对于多义线顶点数量，组码是90

自贡黄明儒

entget只取10的组码

nzl1116

vlax-curve-getendparam

弥勒

当年猫老师给的：(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Coordinates )

guosheyang

提取多段线节点表
(mapcar 'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget tym)))

phoenixdjq

nzl1116 发表于 2024-6-12 12:43
vlax-curve-getendparam

感谢，就是这个函数

phoenixdjq

感谢以上大神们的回复，问题已经解决，也学到了其他方法

xyp1964

数量和顶点，感觉有点文不对题