用法
评论
建议
取 消
确 定
(defun curve:midpoint (curve) "求曲线中点" "中点坐标" "(curve:midpoint (car (entsel)))" (if (= (quote vla-object) (type curve)) (setq curve (o2e curve))) (if (= (quote ename) (type curve)) (cond ((= "MLINE" (entity:getdxf curve 0)) (setq midlen (* 0.5 (curve:length curve))) (setq pts (curve:get-points curve)) (while (< (distance (car pts) (cadr pts)) midlen) (setq midlen (- midlen (distance (car pts) (cadr pts)))) (setq pts (cdr pts))) (setq pts (cdr pts)) (polar (car pts) (angle (car pts) (cadr pts)) (- midlen (distance (car pts) (cadr pts))))) (t (setq o-curve (e2o curve)) (vlax-curve-getpointatdist o-curve (/ (curve:length curve) 2))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新
冀公网安备 13050302000400号