lisp自动生成中垂线_关于lps求问CAD自动生成面域的质心

最新推荐文章于 2021-01-15 05:41:28 发布

原创最新推荐文章于 2021-01-15 05:41:28 发布 · 401 阅读

CC 4.0 BY-SA版权

文章标签：

这篇博客介绍了如何使用LISP语言在CAD中自动生成面域的质心和惯性矩信息。代码展示了如何获取和移动面域的质心，并计算相关惯性矩数据，包括面积、周长、主矩方向等。最后，将结果显示在CAD图形中。

部署运行你感兴趣的模型镜像

链接中二楼的代码是这样的(当然链接中也有其他代码，但是我尝试了发现不能选择这样的箱型面域或者结果是错误的)：

;;; 截面特性＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

(defun c:tx (/ angel2 angle1 angle2 area arrowlen centroid circlerad jmobj momentofinertia1 perimeter principaldirections1

principalmoments1 productofinertia1 regionobj ss txthight txtpt txtstring uuuuu x

)

(defun v2l (x)

(vlax-safearray->list (vlax-variant-value x))

)

(defun jmcsfun (jmobj / area perimeter centroid momentofinertia1 principalmoments1 principaldirections1 productofinertia1 txthight

circlerad arrowlen angle1 angel2 txtpt txtstring

)

(setq area (vla-get-area jmobj)

perimeter (vla-get-perimeter jmobj)

centroid (v2l (vla-get-centroid jmobj)) ; momentofinertia (v2l(vla-get-momentofinertia

; jmobj))

; principalmoments(v2l(vla-get-principalmoments jmobj))

; principaldirections(v2l(vla-get-principaldirections jmobj))

; productofinertia (vla-get-productofinertia jmobj)

)

(vla-move jmobj (vlax-3d-point centroid) (vlax-3d-point (list 0 0 0)))

(setq momentofinertia1 (v2l (vla-get-momentofinertia jmobj))

principalmoments1 (v2l (vla-get-principalmoments jmobj))

principaldirections1 (v2l (vla-get-principaldirections jmobj))

productofinertia1 (vla-get-productofinertia jmobj)

)

(vla-move jmobj (vlax-3d-point (list 0 0 0)) (vlax-3d-point centroid))

(setq txthight (/ (getvar "viewsize") 90.0))

(setq circlerad (* txthight 1.5))

(setq arrowlen (* txthight 5))

(setq angle1 (angle (list 0 0 0) (list (car principaldirections1) (caddr principaldirections1))))

(setq angle2 (angle (list 0 0 0) (list (cadr principaldirections1) (cadddr principaldirections1))))

(setq txtpt (polar centroid angle1 arrowlen))

(entmake (list (cons 0 "line") (cons 10 centroid) (cons 11 txtpt) (cons 62 1)))

(entmake (list (cons 0 "text") (cons 1 "1") (cons 40 txthight) (cons 10 txtpt) (cons 11 txtpt) (cons 62 1)))

(setq txtpt (polar centroid angle2 arrowlen))

(entmake (list (cons 0 "line") (cons 10 centroid) (cons 11 txtpt) (cons 62 1)))

(entmake (list (cons 0 "text") (cons 1 "2") (cons 40 txthight) (cons 10 txtpt) (cons 11 txtpt) (cons 62 1)))

(setq txtstring (strcat "面积= " (rtos area 2 2) " mm2")

txtpt centroid

)