这将使您了解使用Vlisp Vla-get-radius等提供的基本信息。如果你搜索一下,应该有一个lisp。
你试过DATAEXTRACT吗
?属性值:
; 弧长 (RO) = 260.144
; 面积 (RO) = 10083.8
; 中心 = (361.399 232.731 0.0)
; 端角 = 3.24079
; 端点 (RO) = (252.347 221.878 0.0)
; 层 = “默认”
; 线型 = “ByLayer”
; 线型刻度 = 1.0
; 线宽 = -1
; 材料 = “ByLayer”
; ObjectName (RO) = “AcDbArc”
; PlotStyleName = “ByLayer”
; 半径 = 109.591
; 开始角度 = 0.867017
; 起始点 (RO) = (432.316 316.283 0.0)
; 厚度 = 0.0
; 总角度 (RO) = 2.37377
- ; an example
- (setq obj (vlax-ename->vla-object (car (entsel "\nPick object"))))
- (alert (strcat "Radius is " (rtos (vla-get-radius obj) 2 3)))
|