(defun C:xx()
(prompt "\n必须先将图形做成面域")
(setq en (entsel))
(setq tma (car en))
(setq tmb (vlax-ename->vla-object tma))
(setq tmc (vla-get-centroid tmb))
(setq tmd (vlax-variant-value tmc))
(setq tme (vlax-safearray->list tmd))
(command "point" tme)
(princ "\n形心坐标为:")(princ tme))
ctclsc 发表于 2013-9-12 10:37 static/image/common/back.gif
;求形心(必须先将图形做成面域),使用前先关闭对象捕捉!!!
(defun C:xx()
(prompt "\n必须先将图形做成 ...
不能够求多个对象的组合形心,要是程序里面能够加入形成面域就好了,免得要多次操作! 问题是每个剪力墙或框架柱下的轴力荷载不同啊,是否要考虑这个对重心的影响? 理论上是合力作用点,但是因为纯考虑竖向力的作用,一般情况下形心就满足计算要求了! 已解决,找到一个萝卜头大师写的工具!现在上传,希望可以给结构设计人员带来一些方便!
也是无法形成两个分开的质心,不知哪位大师能弄一下呢,谢谢
页:
1
[2]