如何等间距复制过孔？

学无止境``` · 发表于 2025-7-14 22:07

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由学无止境``` 于 2025-7-14 22:09 编辑

下面是我写的一点代码，但是功能没有实现，实在不知道怎么写了?
defun( CopyViaBySameDimension (x_offset y_offset)
let((ViaDbid)
      axlSetFindFilter(?enabled (list "noall" "VIAS") ?onButtons (list "VIAS"))
      ;axlClearSelSet()
      axlMsgPut("Select a via as reference...")
      selectedVia = axlSingleSelectPoint()
      ViaDbid = axlGetSelSet(selectedVia) ;获取选择对象的DBID
;unless(axlOKToProceed() axlShell("done"))
when(ViaDbid
         padstackName = car(ViaDbid)->name    ;获取焊盘名称
         ViaNet = car(ViaDbid)->net->name    ;获取当前选择过孔的网络名称
         ViaXY  = car(ViaDbid)->xy             ;获取当前选择过孔的坐标
         ViaRotation  = car(ViaDbid)->via->rotation  ;获取旋转角度
         ViaMirror  = car(ViaDbid)->via->mirrored  ;获取旋转角度
      );end when
      x = xCoord(ViaXY)  ; 获取x坐标
      y = yCoord(ViaXY)  ; 获取y坐标
;点击左右则x变化，y不变
      x = x + x_offset
      ;点击上下则y变化，X不变
      y = y + y_offset
;unless(axlOKToProceed() axlShell("done"))
      newVia = axlDBCreateVia(padstackName , x:y , ViaNet, ViaMirror , ViaRotation , nil) ;创建过孔
      when(newVia
      NewViaDbid = list(car(newVia))
         axlHighlightObject(NewViaDbid)
      );end when

);end let
);end defun

学无止境``` · 发表于 2025-7-14 22:10

完整代码发不出来，有不良信息

学无止境``` · 发表于 2025-7-15 09:50

没人看一下吗

db-_- · 发表于 2025-7-15 10:30

你把获取器件信息放到主函数里，把创建via的函数放到上下左右按钮对应的回调函数里就行了。

不是告诉你咋做了么。。。

学无止境``` · 发表于 2025-7-15 15:18

本帖最后由学无止境``` 于 2025-7-15 15:30 编辑

学无止境``` · 发表于 2025-7-15 15:31

本帖最后由学无止境``` 于 2025-7-15 15:35 编辑

按照这样放置，运行以后得先选择过孔，才能跳出来form，怎么样才能在跳出来form以后，点选1个过孔，上下左右恩一次，复制1个过孔

学无止境``` · 发表于 2025-7-15 15:37

db-_- 发表于 2025-7-15 10:30
你把获取器件信息放到主函数里，把创建via的函数放到上下左右按钮对应的回调函数里就行了。

不是告诉你 ...

大佬，按照你说的，改了以后，点选1个过孔，上下左右的按钮恩一次，复制1个过孔，只能在form出来点选1次，然后就无法点选了，也无法连续点击按钮放置等间距过孔

db-_- · 发表于 2025-7-15 15:50

你的表达我看着有点混乱，我先捋一下你的想法。

你是要按照以下顺序操作
1、先出FORM
2、再选孔
3、在FORM上点击上/下/左/右按钮，点哪个按钮就在哪个方向复制过孔
是这样吗？

你没有提供create from的函数，也没有提供form的回调函数，怎么帮你看问题在哪呢。

学无止境``` · 发表于 2025-7-16 09:49

db-_- 发表于 2025-7-15 15:50
你的表达我看着有点混乱，我先捋一下你的想法。

你是要按照以下顺序操作

是的大佬，现在我按照你的方法，主要功能可以实现了，但是还有1个问题，将器件信息的获取放在主函数中的话，主函数中获取的过孔的dbid无法传递到下面的函数中，

defun(CreateCOpyViaForm_KLJ ()
time = getCurrentTime()
time = parseString(time)
day = nth(1 time)
month = car(time)
month = upperCase(month)
year = nth(3 time)
date = strcat(" Date: " day " " month " " year)
CreateCOpyViaForm();form创建函数
COpyViaForm_KLJ=axlFormCreate( (gensym) form_file nil 'CopyVia_CallBack t)
axlFormDisplay(COpyViaForm_KLJ)
axlFormSetField(COpyViaForm_KLJ "Radio2" "true") ;默认勾选SMD
axlFormSetField(COpyViaForm_KLJ "Units_value" car(axlDBGetDesignUnits()))
axlUIWPrint(COpyViaForm_KLJ date)
;获取选择的过孔坐标
axlClearSelSet()
axlSetFindFilter(?enabled (list "all" "VIAS") ?onButtons (list "VIAS"))
axlMsgPut("Select a via as reference...")
;selectVia = axlSelect()
Viadbid = axlGetSelSet(axlSelect()) ;获取选择对象的DBID
printf("Current Via dbid:%s" car(Viadbid))
when(Viadbid
axlDBControl('highlightColor 17)
axlHighlightObject(Viadbid t);高亮
padstackName = car(Viadbid)->name ;获取焊盘名称
;ViaNet = car(Viadbid)->net->name ;获取当前选择过孔的网络名称
ViaXY = car(Viadbid)->xy ;获取当前选择过孔的坐标
ViaRotation = car(Viadbid)->via->rotation ;获取旋转角度
ViaMirror = car(Viadbid)->via->mirrored ;获取旋转角度
x = xCoord(ViaXY) ; 获取x坐标
y = yCoord(ViaXY) ; 获取y坐标
);end when
;重新获得第一个孔的dbid
axlSetFindFilter(?enabled (list "noall" "VIAS") ?onButtons (list "VIAS"))
reselect = axlSingleSelectPoint(x : y)
lastViadbid = axlGetSelSet(reselect)
);end defun

复制代码

学无止境``` · 发表于 2025-7-16 09:51

这是回调函数中调用的函数

defun( CopyViaBySameDimension_Up ()
let(()
Radio_num1 = axlFormGetField(COpyViaForm_KLJ "Radio1")
Radio_num2 = axlFormGetField(COpyViaForm_KLJ "Radio2")
Radio_num3 = axlFormGetField(COpyViaForm_KLJ "Radio3")
Radio_num4 = axlFormGetField(COpyViaForm_KLJ "Radio4")
Radio_num5 = axlFormGetField(COpyViaForm_KLJ "Radio5")
when(Radio_num1
when(car(axlDBGetDesignUnits()) == "mils" offset = float(19.69))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(0.5))
)
when(Radio_num2
when(car(axlDBGetDesignUnits()) == "mils" offset = float(31.5))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(0.8))
)
when(Radio_num3
when(car(axlDBGetDesignUnits()) == "mils" offset = float(39.37))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(1.0))
)
when(Radio_num4
when(car(axlDBGetDesignUnits()) == "mils" offset = float(50))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(1.27))
)
when(Radio_num5
offset = atof(axlFormGetField(COpyViaForm_KLJ "Input"))
)
lastHighlightedVia = lastViadbid ; 存储最后高亮的过孔
unless(lastHighlightedVia == nil printf("Current Via dbid:%s" car(lastHighlightedVia)))
;printf("Current Via dbid:%s" car(lastHighlightedVia))
;点击左右则x变化，y不变
new_x = x
;点击左右则x变化，y不变
new_y = y + offset
when(new_x && new_y
newVia = axlDBCreateVia(padstackName , new_x : new_y , nil , ViaMirror , ViaRotation , nil) ;创建过孔
when(newVia != nil
NewViaDbid = list(car(newVia))
axlHighlightObject(NewViaDbid t);高亮新创建的过孔
when(lastHighlightedVia
axlDehighlightObject(lastHighlightedVia t) ; 取消上一个过孔的高亮
axlVisibleUpdate(t)
);end when
lastViadbid = NewViaDbid
x = new_x
y = new_y
);end when
);end when
);end let
);end defun

复制代码

学无止境``` · 发表于 2025-7-16 09:53

本帖最后由学无止境``` 于 2025-7-16 09:59 编辑

我是想等距创建第2个孔后，将上个孔取消高亮，但是现在无法取消第一个选择的过孔的高亮，运行过程中发现第1个过孔的DBID丢失了，只能将x y传递到回调函数中，不良信息

db-_- · 发表于 2025-7-16 10:55

学无止境``` 发表于 2025-7-16 09:53
我是想等距创建第2个孔后，将上个孔取消高亮，但是现在无法取消第一个选择的过孔的高亮，运行过程中发现第1 ...

将xy传过去是对的。dbid本身很容易丢。你都有xy了，你把lastViadbid改成lastPoint，重新去select一下旧孔就好了。

学无止境``` · 发表于 2025-7-16 12:37

db-_- 发表于 2025-7-16 10:55
将xy传过去是对的。dbid本身很容易丢。你都有xy了，你把lastViadbid改成lastPoint，重新去select一下旧孔 ...

大佬，我现在改成：

axlSetAlias("Up" "skill CopyViaBySameDimension_Up()" t)
defun( CopyViaBySameDimension_Up ()
let(()
Radio_num1 = axlFormGetField(COpyViaForm_KLJ "Radio1")
Radio_num2 = axlFormGetField(COpyViaForm_KLJ "Radio2")
Radio_num3 = axlFormGetField(COpyViaForm_KLJ "Radio3")
Radio_num4 = axlFormGetField(COpyViaForm_KLJ "Radio4")
Radio_num5 = axlFormGetField(COpyViaForm_KLJ "Radio5")
when(Radio_num1
when(car(axlDBGetDesignUnits()) == "mils" offset = float(19.69))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(0.5))
)
when(Radio_num2
when(car(axlDBGetDesignUnits()) == "mils" offset = float(31.5))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(0.8))
)
when(Radio_num3
when(car(axlDBGetDesignUnits()) == "mils" offset = float(39.37))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(1.0))
)
when(Radio_num4
when(car(axlDBGetDesignUnits()) == "mils" offset = float(50))
when(car(axlDBGetDesignUnits()) == "millimeters" offset = float(1.27))
)
when(Radio_num5
offset = atof(axlFormGetField(COpyViaForm_KLJ "Input"))
)
axlSetFindFilter(?enabled (list "noall" "VIAS") ?onButtons (list "VIAS"))
reselect = axlSingleSelectPoint(x : y)
reselectViadbid = axlGetSelSet(reselect)
axlDehighlightObject(reselectViadbid t) ; 取消上一个过孔的高亮
;点击左右则x变化，y不变
new_x = x
;点击左右则x变化，y不变
new_y = y + offset
when(new_x && new_y
newVia = axlDBCreateVia(padstackName , new_x : new_y , nil , ViaMirror , ViaRotation , nil) ;创建过孔
when(newVia != nil
printf("Copy Via dbid:%s\n" car(newVia))
NewViaDbid = list(car(newVia))
axlHighlightObject(NewViaDbid t);高亮创建的过孔
x = new_x
y = new_y
);end when
);end when
);end let
);end defun

复制代码

每次向上创建等距离过孔的时候，总是最后2个孔高亮，倒数第2个无法取消高亮

学无止境``` · 发表于 2025-7-16 13:01

db-_- 发表于 2025-7-16 10:55
将xy传过去是对的。dbid本身很容易丢。你都有xy了，你把lastViadbid改成lastPoint，重新去select一下旧孔 ...

大佬找到问题了，需要再取消高亮后，取消选择才行

帐号		自动登录	找回密码
密码			注册

如何等间距复制过孔？

EDA365欢迎您登录！

点评

点评

点评

点评

浏览过的版块

推荐内容 /1