简约而不简单

BDYCAD

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

无痕

;功能同上,适用所有曲线.

2. (DEFUN xl-3p (e / ps pe pm)
3.    (setq ps (vlax-curve-getstartparam e)
4.                pe (vlax-curve-getendparam e)
5.                pm (/ (- pe ps) 2))
6.    (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))
7. )

(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

精彩

无痕

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

测三个点的夹角. 充下数 ;;;(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

太历害了

cwjheihei

要有流程图

mmmjjj

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

hulei_accp

王帮主，有一日一练吗？

love_hate

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