Question

CAD如何让无孔字体走弧线或圆排列，不要用Express\text\arc-Aligned text

Answer 1

autolisp思路有一些：

1. 取得弧或圆

2. vlax-ename->vla-object函数转换为vlax对象ob1

3. (setq dis1 (vlax-curve-getDistAtParam ob1 (vlax-curve-getEndParam ob1)))；计算得到长度；

4. 根据字体的数量等分长度(setq dis2 (/ dis1 N))

5. (setq pt1 (vlax-curve-getPointAtDist ob1 dis2));根据起点到指定点长度取得弧或圆上坐标

6. (setq pt1 (vlax-curve-getPointAtDist ob1 (* 2 dis2)));根据起点到指定点长度取得弧或圆上坐标

7. 根据坐标entmake函数生成文字