用法
评论
建议
取 消
确 定
(defun curve:clockwisep (ent / fx offsetobj plineobj) "判断多段线方向" "顺时针返回t,反之nil" "(curve:clockwisep (car(entsel)))" (setq plineobj (vlax-ename->vla-object ent)) (setq offsetplineobj (car (vlax-safearray->list (vlax-variant-value (vla-offset plineobj 0.0001))))) (if (> (vlax-curve-getdistatparam plineobj (vlax-curve-getendparam plineobj)) (vlax-curve-getdistatparam offsetplineobj (vlax-curve-getendparam offsetplineobj))) (setq fx t) (setq fx nil)) (vla-delete offsetplineobj) fx)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新