坐标零点重新定义

zm880928

如图所示，更改零点使坐标随新的零点显示

xtjd

xj6019

不如改了基点后，再重新生成一遍快吧，而且也处理的好

zm880928

xj6019 发表于 2023-3-2 13:21
不如改了基点后，再重新生成一遍快吧，而且也处理的好

重新生成，那不又要重新标注，我的目的就是不想重新标注

zm880928

xtjd 发表于 2023-3-2 14:17

惊呆了，这么短的代码，效果出奇的好，大大出乎我的预料

wzg356

新建用户坐标系，UCS按提示点基点/右下那儿就行了
重新标注（带反应器的标注不用管）

革天明

【【壹加工具】模具孔位lisp批量标注 CAD绘图】 https://www.bilibili.com/video/B ... 0881f14b1b16333f968

1. (setq i 0)
   
2.     (repeat 10
   
3.       (setq ptA(list (* i 300.0) 0 0))
   
4.       (setq ptB(list (+ (* i 300.0) 116.0) 123.0 0))
   
5.       (if (> i 4)
   
6.         (yjdimcircleposition ptA ptB (rem i 5) 0 2 3 nil)
   
7.         (yjdimcircleposition ptA ptB (rem i 5) 1)
   
8.       )
   
9.       (setq i(1+ i))
   
10.     )
    

(setq i 0)<br />     (repeat 10<br />       (setq ptA(list (* i 300.0) 0 0))<br />       (setq ptB(list (+ (* i 300.0) 116.0) 123.0 0))<br />       (if (> i 4)<br />         (yjdimcircleposition ptA ptB (rem i 5) 0 2 3 nil)<br />         (yjdimcircleposition ptA ptB (rem i 5) 1)<br />       )<br />       (setq i(1+ i))<br />     )<br />

shenhung

坐標標註寫下來. 功能不少~. 變更原點.還有一個變更詳圖的.  另外還有讓尺寸自動錯開