AutoLISP查询圆弧的相关属性
2011-04-11 16:59
155 查看
AutoLISP查询圆弧的相关属性,得到圆心、半径、长度和面积,代码如下。
(defun c:arcppt ()
(setq ss (car (entsel "\n请选择所要查询的圆弧:")))
(setq ssob (vlax-ename->vla-object ss))
(Setq center (Vlax-Get ssob 'center))
(setq radius (vlax-get ssob 'radius))
(Setq len (Vlax-Get ssob 'ArcLength))
(Setq area (Vlax-Get ssob 'area))
(print (strcat "圆心:" (rtos (car center)) "," (rtos (cadr center))))
(print (strcat "半径:" (rtos radius)))
(print (strcat "长度:" (rtos len)))
(print (strcat "面积:" (rtos area)))
(princ)
)
代码完。
(setq ss (car (entsel "\n请选择所要查询的圆弧:")))
(setq ssob (vlax-ename->vla-object ss))
(Setq center (Vlax-Get ssob 'center))
(setq radius (vlax-get ssob 'radius))
(Setq len (Vlax-Get ssob 'ArcLength))
(Setq area (Vlax-Get ssob 'area))
(print (strcat "圆心:" (rtos (car center)) "," (rtos (cadr center))))
(print (strcat "半径:" (rtos radius)))
(print (strcat "长度:" (rtos len)))
(print (strcat "面积:" (rtos area)))
(princ)
)
相关文章推荐
- AutoLISP查询圆的相关属性
- AutoLISP查询椭圆的相关属性
- AutoLISP查询椭圆弧的相关属性
- AutoLISP查询直线的相关属性
- Andriod常用控件介绍&相关属性(初学方便查询)
- 【finger】查询用户账号相关属性信息
- 关于自定义代码生成器(续)---SQL2008查询数据库字段主键,外键,唯一键等相关属性
- 【blkid】查询或查看磁盘设备的相关属性
- django中的多表查询以及ForeignKey的相关属性
- 通过v$filestat查询数据文件的I/O相关属性
- Dynamics CRM2016 Web Api之查询查找字段的相关属性
- Dynamics CRM2016 Web Api之查询查找字段的相关属性
- Dynamics CRM2016 Web Api之查询查找字段的相关属性
- android sqlite查询数据表的字段与相关属性
- Dynamics CRM2016 Web Api之查询查找字段的相关属性
- 4.4、Libgdx使用方法查询运行环境相关属性
- 4.4、Libgdx使用方法查询运行环境相关属性
- oracle查询包含某个属性的所有表
- TreePanel相关属性
- JDBC以及相关技术学习(四)----运载SQL进行查询交通工具Statement