讲真哈,这个修改很简单
-
- (setq NewP (mapcar '+
- (list 0 (+ (* Scalreal (- (cadr p2) (cadr CP))) Textheigh))
- CP
- )
- )
- (command "_.text"
- "J"
- "C"
- NewP
- Textheigh
- ""
- (strcat BaseSymbol " 放大 " JBFD_GetScalStri "倍")
- )
就这个newp的位置,从作者的本意看出他是通过CP然后 偏移一定的距离(mapcar的方式)
cp(局部放大的圆的中心点)的Y坐标加上一个数值,
最简单的的改法就是改成
cp(局部放大的圆的中心点)的Y坐标减去一个数值,
说道这里希望楼主自己操作下,真的很简单
|