明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

楼主: 王咣生

简约而不简单

  [复制链接]
发表于 2005-1-24 17:19 | 显示全部楼层
; 提取圆弧的 < 起点 > < 中点 > < 终点 >
;用法例子:
;;; (SETQ EB (CAR (ENTSEL "选择圆弧:")))
;;; (SETQ ARC3P (BDY-GetArc-3P EB)) ; 编写 包达勇
; 时间: 2005-01-24 (DEFUN BDY-GetArc-3P (EB / EX)
(VL-LOAD-COM)
(SETQ EX (VLAX-ENAME->VLA-OBJECT EB))
(LIST (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT EX)))
(vlax-curve-getPointAtDist EX (* 0.5 (VLA-GET-ARCLENGTH EX)))
(vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT EX)))
)
)
发表于 2005-2-20 15:08 | 显示全部楼层
;功能同上,适用所有曲线.[code="lisp] (DEFUN xl-3p (e / ps pe pm)    (setq ps (vlax-curve-getstartparam e)                pe (vlax-curve-getendparam e)                pm (/ (- pe ps) 2))    (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe)) )[/code]
发表于 2005-2-22 22:08 | 显示全部楼层
精彩
发表于 2005-2-25 14:08 | 显示全部楼层
;|求点集中最远,最近点表.
返回最远两点 最近两点)
(xpts-lensort (while (setq pt(getpoint)) (setq plst (cons pt plst)))))
->(((14857.8 -599.932 0.0) (26695.2 -3687.68 0.0)) ((15733.8 -3687.68 0.0) (15630.7 -3842.07 0.0)))
|;
(defun xpts-lensort (ptlst / pt d maxd mind maxl minl)
(setq minl (list (car ptlst)(cadr ptlst)) maxd 0 mind (apply 'distance minl))
(while (setq pt (car ptlst) ptlst (cdr ptlst))
(foreach n ptlst
(setq d (distance n pt))
(cond ((< maxd d)(setq maxd d maxl (list n pt)))
((> mind d)(setq mind d minl (list n pt)))
)
)
)(list maxl minl)
)
发表于 2005-2-25 16:38 | 显示全部楼层
测三个点的夹角. 充下数 ;;;(setq p1(getpoint) p2(getpoint) p3(getpoint))
;(ThreePoint-Angle 起点 中点 终点)
(defun ThreePoint-Angle(p1 p2 p3 / a1 a2 a3)
(setq a1 (angle p2 p3) a2 (angle p2 p1)a3 (abs (- a1 a2)))
(/ (* a3 180) pi)
)
发表于 2005-5-2 18:57 | 显示全部楼层
太历害了
发表于 2005-7-1 00:43 | 显示全部楼层
要有流程图
发表于 2005-8-15 16:22 | 显示全部楼层
高手出招,百看不厌,受益良多,有无三维转平面的程序,即将Z值统统变为0?
发表于 2005-10-23 21:18 | 显示全部楼层

王帮主,有一日一练吗?

发表于 2005-12-11 15:44 | 显示全部楼层

非常好啊,好东西大家分享嘛!!!!

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-1-20 11:31 , Processed in 0.149300 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表