圆所在的平面由法线(垂直于该平面的向量)和该平面到圆心定义的WCS原点的距离定义。DXF代码38高程(平面与原点的距离),仅当LWPOLYLINE是实体-如果它是圆,如我所说,空间中的中心点位置和DXF代码210-OCS平面的法向量,定义位于圆中的三维空间平面。。。
由于没有人给出示例,这里使用参考圆的OCS将OCS中心坐标提取到WCS中心坐标,使用(trans)函数和DXF 210定义的源OCS,以及(trans)转换点坐标的目标WCS-0整数。。。
- (defun c:circen ( / ss ci cen )
- (prompt "\nPick circle")
- (while (not ss)
- (setq ss (ssget "_+.:L:E:S" '((0 . "CIRCLE"))))
- )
- (setq ci (ssname ss 0))
- (setq cen (trans (cdr (assoc 10 (entget ci))) (cdr (assoc 210 (entget ci))) 0))
- (prompt "\nCenter of circle in WCS is : ") (princ cen)
- (princ)
- )
M、 R。 |