【e派】工具箱函数再揭秘及应用实例

xiaotao

每天都到明径走走，就是为了等这么一天！

邹锋

带着学习的目的，精神可嘉

USER2128

向院长学习，向院长致敬！

xiaxiang

xyp-Entmake-lwPolyline
继续啊，院长

xyp1964

1. ;; xyp-Entmake-lwPolyline 建立多段线 (xyp-Entmake-lwPolyline 点集 闭合参数)
   
2. ;; 闭合参数tn: t闭合，nil打开
   
3. ;; xyp-Entmake-LwPl=xyp-Entmake-lwPolyline
   
4. (defun xyp-Entmake-lwPolyline (ptlst Close-tnil / a s1)  
   
5.   (entmake (append (list '(0 . "LWPOLYLINE")
   
6.                          '(100 . "AcDbEntity")
   
7.                          '(100 . "AcDbPolyline")
   
8.                          (cons 90 (length ptlst))
   
9.                          (cons 70 (if Close-tnil 1 0))
   
10.                          (cons 38
    
11.                                (if (nth 2 (car ptlst))
    
12.                                  (nth 2 (car ptlst))
    
13.                                  0
    
14.                                )
    
15.                          )
    
16.                    )
    
17.                    (mapcar '(lambda (a) (cons 10 a)) ptlst)
    
18.            )
    
19.   )
    
20.   (entlast)
    
21. )
    

;; xyp-Entmake-lwPolyline 建立多段线 (xyp-Entmake-lwPolyline 点集 闭合参数)<br /> ;; 闭合参数tn: t闭合，nil打开<br /> ;; xyp-Entmake-LwPl=xyp-Entmake-lwPolyline<br /> (defun xyp-Entmake-lwPolyline (ptlst Close-tnil / a s1)  <br />   (entmake (append (list '(0 . "LWPOLYLINE")<br />                          '(100 . "AcDbEntity")<br />                          '(100 . "AcDbPolyline")<br />                          (cons 90 (length ptlst))<br />                          (cons 70 (if Close-tnil 1 0))<br />                          (cons 38<br />                                (if (nth 2 (car ptlst))<br />                                  (nth 2 (car ptlst))<br />                                  0<br />                                )<br />                          )<br />                    )<br />                    (mapcar '(lambda (a) (cons 10 a)) ptlst)<br />            )<br />   )<br />   (entlast)<br /> )<br />

xiaxiang

xyp1964 发表于 2012-7-23 13:54

院长现在是有求必应，干脆打个大包一起甩上来，让我等小辈开个眼界。。。

hao3ren

xiaxiang 发表于 2012-7-23 15:55
院长现在是有求必应，干脆打个大包一起甩上来，让我等小辈开个眼界。。。

哈哈，你这不是逼院长脱内裤吗

xiaotao

知足常乐！能这样已算8错啦！

xyp1964

1. ;; 三角函数等功能
   
2. (defun xyp-cosh (rad) (* 0.5 (+ (exp rad) (exp (- rad)))));双曲余弦函数
   
3. (defun xyp-sinh (rad) (* 0.5 (- (exp rad) (exp (- rad)))));双曲正弦函数
   
4. (defun xyp-tanh (rad) (/ (xyp-sinh rad) (xyp-cosh rad)));双曲正切函数
   
5. (defun xyp-csc (rad) (/ 1. (sin rad)));角度的余割值
   
6. (defun xyp-sec (rad) (/ 1. (cos rad)));角度的正割值
   
7. (defun xyp-tan (rad) (/ (sin rad) (cos rad)));角度的正切值
   
8. (defun xyp-ctg (rad) (/ (cos rad) (sin rad)));角度的余切值
   
9. (defun xyp-cot (rad) (/ (cos rad) (sin rad))) ;角度的余切值
   
10. (defun xyp-lg (num) (if (> num 0) (/ (log num)(log 10) 1.) nil));对数
    
11. (defun xyp-Asin (num) (if (= num 1) (atan 1 0)(atan (/ num (sqrt (- 1 (* num num)))))));反正弦
    
12. (defun xyp-Acos(num)(if (= num 0) (atan 1 0) (atan (/ (sqrt (- 1 (* num num))) num))));反余弦
    
13. (defun xyp-lfg (num) (expt num (/ 1 3.0)));立方根
    
14. ;; xyp-yxdl 余弦定理 (xyp-yxdl 边长1 边长2 夹角)
    
15. (defun xyp-yxdl (b c rad) (sqrt (+ (* b b) (* c c) (* -2. b c (cos rad)))))
    

;; 三角函数等功能<br /> (defun xyp-cosh (rad) (* 0.5 (+ (exp rad) (exp (- rad)))));双曲余弦函数<br /> (defun xyp-sinh (rad) (* 0.5 (- (exp rad) (exp (- rad)))));双曲正弦函数<br /> (defun xyp-tanh (rad) (/ (xyp-sinh rad) (xyp-cosh rad)));双曲正切函数<br /> (defun xyp-csc (rad) (/ 1. (sin rad)));角度的余割值<br /> (defun xyp-sec (rad) (/ 1. (cos rad)));角度的正割值<br /> (defun xyp-tan (rad) (/ (sin rad) (cos rad)));角度的正切值<br /> (defun xyp-ctg (rad) (/ (cos rad) (sin rad)));角度的余切值<br /> (defun xyp-cot (rad) (/ (cos rad) (sin rad))) ;角度的余切值<br /> (defun xyp-lg (num) (if (> num 0) (/ (log num)(log 10) 1.) nil));对数<br /> (defun xyp-Asin (num) (if (= num 1) (atan 1 0)(atan (/ num (sqrt (- 1 (* num num)))))));反正弦<br /> (defun xyp-Acos(num)(if (= num 0) (atan 1 0) (atan (/ (sqrt (- 1 (* num num))) num))));反余弦<br /> (defun xyp-lfg (num) (expt num (/ 1 3.0)));立方根<br /> ;; xyp-yxdl 余弦定理 (xyp-yxdl 边长1 边长2 夹角)<br /> (defun xyp-yxdl (b c rad) (sqrt (+ (* b b) (* c c) (* -2. b c (cos rad)))))<br />

x_s_s_1

我的心，在等待，永远在等待～～