社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

xiaotao 发表于 2012-7-22 18:30:29

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

邹锋 发表于 2012-7-22 18:55:15

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

USER2128 发表于 2012-7-23 08:11:22

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

xiaxiang 发表于 2012-7-23 08:55:14

xyp-Entmake-lwPolyline
继续啊，院长

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

本帖最后由 xyp1964 于 2020-11-19 23:34 编辑


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

xiaxiang 发表于 2012-7-23 15:55:18

xyp1964 发表于 2012-7-23 13:54 static/image/common/back.gif



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

hao3ren 发表于 2012-7-23 16:12:59

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

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

xiaotao 发表于 2012-7-23 16:52:35

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

xyp1964 发表于 2012-7-23 20:51:25

本帖最后由 xyp1964 于 2020-11-19 23:35 编辑


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

x_s_s_1 发表于 2012-7-23 22:26:27

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

查看完整版本: 【e派】工具箱函数再揭秘及应用实例