用法
评论
建议
取 消
确 定
(defun curve:get-points (ent) "曲线控制点及端点列表,返回点坐标。" "点坐标列表" "(curve:get-points (car (entsel)))" (if (= (quote ename) (type ent)) (cond ((wcmatch (entity:getdxf ent 0) "*POLYLINE,LINE,CIRCLE,SPLINE,REGION") (mapcar (quote cdr) (vl-remove-if-not (quote (lambda (x) (or (= 10 (car x)) (= 11 (car x))))) (entget ent)))) ((wcmatch (entity:getdxf ent 0) "ELLIPSE,ARC") (mapcar (quote cdr) (vl-remove-if-not (quote (lambda (x) (= 10 (car x)))) (entget ent)))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新