简约而不简单 - 源码共享 - AutoCAD论坛 - 明经CAD社区 - 第6页

BDYCAD 发表于 2005-1-24 17:19:00

; 提取圆弧的 < 起点 > < 中点 > < 终点 > ;用法例子: ;;; (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:00

;功能同上,适用所有曲线.(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))
)

li809 发表于 2005-2-22 22:08:00

精彩

无痕发表于 2005-2-25 14:08:00

;|求点集中最远，最近点表. 返回:(最远两点最近两点) (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) )

BDYCAD 发表于 2005-2-25 16:38:00

测三个点的夹角. 充下数

;;;(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) )

changch 发表于 2005-5-2 18:57:00

太历害了

cwjheihei 发表于 2005-7-1 00:43:00

要有流程图

mmmjjj 发表于 2005-8-15 16:22:00

高手出招，百看不厌，受益良多，有无三维转平面的程序，即将Z值统统变为0？

hulei_accp 发表于 2005-10-23 21:18:00

王帮主，有一日一练吗？

love_hate 发表于 2005-12-11 15:44:00

非常好啊，好东西大家分享嘛！！！！

页: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15

明经CAD社区's Archiver