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

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

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

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

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

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

1. defun( CopyViaBySameDimension_Up ()
   
2.     let(()
   
3.         Radio_num1 = axlFormGetField(COpyViaForm_KLJ "Radio1")
   
4.         Radio_num2 = axlFormGetField(COpyViaForm_KLJ "Radio2")
   
5.         Radio_num3 = axlFormGetField(COpyViaForm_KLJ "Radio3")
   
6.         Radio_num4 = axlFormGetField(COpyViaForm_KLJ "Radio4")
   
7.         Radio_num5 = axlFormGetField(COpyViaForm_KLJ "Radio5")
   
8.         when(Radio_num1
   
9.             when(car(axlDBGetDesignUnits()) == "mils"         offset = float(19.69))
   
10.             when(car(axlDBGetDesignUnits()) == "millimeters"  offset = float(0.5))
    
11.         )
    
12.         when(Radio_num2
    
13.             when(car(axlDBGetDesignUnits()) == "mils"         offset = float(31.5))
    
14.             when(car(axlDBGetDesignUnits()) == "millimeters"  offset = float(0.8))
    
15.         )
    
16.         when(Radio_num3
    
17.             when(car(axlDBGetDesignUnits()) == "mils"         offset = float(39.37))
    
18.             when(car(axlDBGetDesignUnits()) == "millimeters"  offset = float(1.0))
    
19.         )
    
20.         when(Radio_num4
    
21.             when(car(axlDBGetDesignUnits()) == "mils"         offset = float(50))
    
22.             when(car(axlDBGetDesignUnits()) == "millimeters"  offset = float(1.27))
    
23.         )
    
24.         when(Radio_num5
    
25.             offset = atof(axlFormGetField(COpyViaForm_KLJ "Input"))
    
26.         )
    
27. 
    
28.         lastHighlightedVia = lastViadbid ; 存储最后高亮的过孔
    
29.                 unless(lastHighlightedVia == nil   printf("Current Via dbid:%s" car(lastHighlightedVia)))
    
30.                 ;printf("Current Via dbid:%s" car(lastHighlightedVia))
    
31. 
    
32.             ;点击左右则x变化，y不变
    
33.             new_x = x
    
34.             ;点击左右则x变化，y不变
    
35.             new_y = y + offset
    
36.                
    
37.                 when(new_x && new_y
    
38.                 newVia = axlDBCreateVia(padstackName , new_x : new_y , nil , ViaMirror , ViaRotation , nil) ;创建过孔
    
39.                 when(newVia != nil
    
40.                         NewViaDbid = list(car(newVia))
    
41.                             axlHighlightObject(NewViaDbid t);高亮新创建的过孔
    
42.                         when(lastHighlightedVia
    
43.                                 axlDehighlightObject(lastHighlightedVia t) ; 取消上一个过孔的高亮
    
44.                                         axlVisibleUpdate(t)
    
45.                             );end when
    
46.                             lastViadbid = NewViaDbid
    
47.                             x = new_x
    
48.                             y = new_y
    
49.                     );end when
    
50.         );end when
    
51.     );end let   
    
52. );end defun       

复制代码

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

你是要按照以下顺序操作

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

1. defun(CreateCOpyViaForm_KLJ ()
   
2.                 time = getCurrentTime()
   
3.                 time = parseString(time)
   
4.                 day = nth(1 time)
   
5.                 month = car(time)
   
6.                 month = upperCase(month)
   
7.                 year = nth(3 time)
   
8.                 date = strcat(" Date: " day " " month " " year)
   
9.                 CreateCOpyViaForm();form创建函数               
   
10.                 COpyViaForm_KLJ=axlFormCreate( (gensym) form_file nil 'CopyVia_CallBack t)
    
11.                 axlFormDisplay(COpyViaForm_KLJ)
    
12.                 axlFormSetField(COpyViaForm_KLJ "Radio2" "true") ;默认勾选SMD
    
13.                 axlFormSetField(COpyViaForm_KLJ "Units_value" car(axlDBGetDesignUnits()))        
    
14.                 axlUIWPrint(COpyViaForm_KLJ date)       
    
15.                
    
16.                 ;获取选择的过孔坐标
    
17.                 axlClearSelSet()
    
18.         axlSetFindFilter(?enabled (list "all" "VIAS") ?onButtons (list "VIAS"))
    
19.         axlMsgPut("Select a via as reference...")
    
20.                 ;selectVia = axlSelect()
    
21.         Viadbid = axlGetSelSet(axlSelect())                        ;获取选择对象的DBID
    
22.                 printf("Current Via dbid:%s" car(Viadbid))
    
23.                 when(Viadbid
    
24.                     axlDBControl('highlightColor 17)
    
25.                     axlHighlightObject(Viadbid t);高亮
    
26.                 padstackName = car(Viadbid)->name      ;获取焊盘名称
    
27.             ;ViaNet = car(Viadbid)->net->name       ;获取当前选择过孔的网络名称
    
28.                 ViaXY  = car(Viadbid)->xy              ;获取当前选择过孔的坐标
    
29.                 ViaRotation  = car(Viadbid)->via->rotation  ;获取旋转角度
    
30.                 ViaMirror  = car(Viadbid)->via->mirrored  ;获取旋转角度
    
31.                 x = xCoord(ViaXY)  ; 获取x坐标
    
32.                 y = yCoord(ViaXY)  ; 获取y坐标
    
33.         );end when
    
34.             ;重新获得第一个孔的dbid
    
35.             axlSetFindFilter(?enabled (list "noall" "VIAS") ?onButtons (list "VIAS"))
    
36.             reselect = axlSingleSelectPoint(x : y)
    
37.             lastViadbid = axlGetSelSet(reselect)               
    
38. );end defun

复制代码

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

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

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

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

不是告诉你 ...

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

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

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

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

没人看一下吗

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