可以实现在圆弧上加一道弧线的弧长标注:- (Defun C:DimArcLength()
- (Vl-Load-Com)
- (SetQ EntPnt (EntSel "\n选择圆弧:")
- Ent (Car EntPnt)
- Obj (Vlax-EName->Vla-Object Ent)
- Txt (Rtos(Vla-Get-ArcLength Obj) 2 2)
- Txt (StrCat "\{\\Fgdt.shx|c0;^\}\\P" Txt)
- )
- (Command "_DimAngular" EntPnt "M" Txt )
- )
|