含不良信息

Pkron

(axlCmdRegister "cutobject" 'cutobject)

(procedure (cutobject)
  (let (curVisible lVias logfile netname x y layer vianame symbol idx location)
    (axlUIWPrint nil "VIA Net/Location/Layer Report")
    (setq curVisible (axlVisibleGet))
    (axlVisibleDesign nil)
    (axlClearSelSet)
    (axlSetFindFilter ?enabled (list "noall" "invisible" "vias") ?onButtons (list "vias"))
    (axlAddSelectAll)
    (setq lVias (axlGetSelSet))
    (axlClearSelSet)
    (axlVisibleSet curVisible)
    (axlVisibleUpdate t)
    (setq logfile (outfile "./via_net_location_layer.log"))
    (fprintf logfile "No.  Net  VIA Name  Symbol  ON PAD  Location\n")
    (fprintf logfile "------------------------------------------------------\n")
    (setq idx 1)
    (foreach v lVias
      (setq netname (if (and (v~>net) (v~>net~>name)) (v~>net~>name) "not on a net"))
      (setq vianame (if (v~>name) (v~>name) ""))
      (setq symbol (if (and (v~>parent) (v~>parent~>name)) (v~>parent~>name) ""))
      (setq layer (if (v~>layer) (v~>layer) ""))
      (setq x (car (v~>xy)))
      (setq y (cadr (v~>xy)))
      (setq location (sprintf nil "(%f,%f)" x y))
      (fprintf logfile "%d , %s , %s , %s , %s , %s\n" idx netname vianame symbol layer location)
      (setq idx (1+ idx))
    )
    (close logfile)
    (axlUIViewFileCreate "./via_net_location_layer.log" "VIA Net Location Layer Report" t)
  )
)

Pkron

好難

antoni2011

感谢了,学习一下

式试1813

这个论坛死气沉沉，还不良，无语得很