autolisp多段线处理函数集.docxVIP

autolisp多段线处理函数集

;;164.1[功能]曲线是否封闭

;;164.2[功能]使多段线封闭

;;164.3[功能]多段线端点列表

;;164.4[功能]矩形中点坐标

;;164.5[功能]参数param处的切线方向的角度;;164.6[功能]参数param处的法线方向的角度;;164.7[功能]曲线一点的切线方向的角度;;164.8[功能]曲线一点的法线方向的角度;;164.9[功能]去除多段线重点

;;164.10[功能]判断点是否在曲线上

;;164.11[功能]曲线长度

;;164.12[功能]多段线子段数量

;;164.13[功能]曲线中点

;;164.14[功能]曲线一点的参数param

;;164.15[功能]参数param处的坐标

;;164.16[功能]多段线第n子段的起点坐标;;164.17[功能]多段线第n子段的终点坐标;;164.18[功能]多段线所点击子段的两端点列表;;164.19[功能]多段线所点击点最近的一个顶点;;164.20[功能]多段线所点击子段param(索引);;164.21[功能]多段线所点击子段的起点坐标;;164.22[功能]多段线所点击子段的终点坐标

;;164.23[功能]多段线所击点离起点近

;;164.24[功能]多段线所点击子段否是直线(返回nil是弧)

;;164.25[功能]求多段线上的弧段(圆或圆弧也有效)的圆心bycaoyin;;164.26[功能]求多段线上的弧段(圆或圆弧也有效)的圆心

;;164.27[功能]判断多段线是否有圆弧(凸度/=0)的子段

;;164.28[功能]判断多段线是否有圆弧(凸度/=0)的子段

;;164.29[功能]连接线、弧成多段线

;;164.30[功能]构造矩形byhighflybird

;;164.31[功能]点表生成多段线

;;164.32[功能]3D多段线

;;164.33[功能]多段线反向(起点反成终点)byzml84

;;164.34[功能]多段线删除顶点

;;164.35[功能]多段线增加顶点

;;164.36[功能]多段线修改顶点

;;164.37[功能]多段线拷贝子段

;;164.38[功能]修改多段线子段

;;164.39[功能]修改多段线子段为直线

;;164.40[功能]点在封闭多段线内返回T，其余nilBy狂刀

;;164.41[功能]点在封闭多段线内返回T，其余nilBySmcTools

;;164.42[功能]判断点在封闭曲线内外，自交曲线不适用ByGu_xl;;164.43[功能]点在封闭多段线内返回T;线上0;外nil

;;164.44[功能]多段线弧段全改为直线段

;;164.45[功能]沿多段线取点，弧处按角度加密取点

;;164.46[功能]多段线自相交byst788796[code=lisp]

;;164.1[功能]曲线是否封闭By自贡黄明儒

;;示例(HH:isClosed(car(entsel)))

(defunHH:isClosed(obj)

(vlax-curve-isClosedobj)

)

;;164.2[功能]使多段线封闭

(defunHH:MakeClosed(en/OBJ)

(cond((equal(typeen)ENAME)(setqobj(vlax-ename-vla-objecten)))

((equal(typeen)ENAME)(setqobjen))

(T(exit))

)

;;(if(equal(vlax-getobjClosed)0)(vlax-putobjClosed-1))

(if(not(vlax-curve-isclosedobj));(equal(vlax-get-propertyobjclosed):vlax-false)(vla-put-closedobj:vlax-true)

)

)

;;164.3[功能]多段线端点列表By自贡黄明儒

;;示例(HH:PtLists(car(entsel)))

(defunHH:PtLists(en)

(mapcarcdr

(vl-remove-if-not(lambda(x)(=(carx)10))(entgeten))

)

)

;;164.4[功能]矩形中点坐标By自贡黄明儒

;;示例(HH:RectangCen(car(entsel)))

(defun