[LISP程序]：求助关于面域参数查寻的一个简单程序

nieem

由于一般情况下，massprop命令查询某面域参数时，面域质心的坐标不是原点，所以查询结果除了面积和周长，其他数据都没有实际用途。因此实际操作时，都需要进行坐标平移后再用massprop命令查询。过程为：
1、massprop，选取面域，得到截面质心
2、UCS，N，把截面质心作为新坐标原点
3、massprop，选取面域，得到所需参数。
如果查询多个截面特性的参数时，这其中的重复步骤就太多了。因此，便有个想法，是不是能有个象excel一样的记录命令的宏定义，这样记录一次就可以直接点，就能查询了。目前没有发现。由于小弟不懂lisp编程，所以就来这里求助以下。这样一个程序，应该对这里的兄弟来说，是小意思吧。
//bow~~

xyp1964

mycs(面域参数)：

nieem

非常感谢，可是我没有￥，不能下载。。。能不能发到邮件拉，谢谢。

最初由 xyp1964 发布
[B]mycs(面域参数)： [/B]