So-net無料ブログ作成

Round multiple part coordinates [Altium VB Scripts(E/J)]

I created a script that rounds part coordinates in PCBDOC.
The language of this script was created with VB.
This simply rounds the individual XY coordinates to the menu digits.

Adj_Pos.png

A part of the code is shown below.
Rd : menu digits
**********************************

Dim CompDes
Dim Rd
:
:
Set CompDes = Iterator.FirstPCBObject
:
:
Compdes.x = MMstocoord(Round(CoordToMMs(Compdes.x),Rd))
Compdes.y = MMstocoord(Round(CoordToMMs(Compdes.y),Rd))
:
:
Set CompDes = Iterator.NextPCBObject


nice!(1)  コメント(0) 

nice! 1

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。