cwidth.il

Allegro常用skill

  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "################################################################################\n")
  fprintf(cwidth_info_info "\n")
  fprintf(cwidth_info_info "################################################################################\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "# DESCRIPTION:                                                                 #\n")
  fprintf(cwidth_info_info "#      This program will change selected cline segment widths based on layer   #\n")
  fprintf(cwidth_info_info "#      selection and cline segment widths on that layer.                       #\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "#      This is a DESTRUCTIVE operation! Be sure to do a \"Save As\" before       #\n")
  fprintf(cwidth_info_info "#      executing in case you are not satisfied with the results.               #\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "#      This program will not recognize arc segments.  Hence if there are any   #\n")
  fprintf(cwidth_info_info "#      the program will find them and change them to line segments.            #\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "#      At the beginning of the program it will display the current number      #\n")
  fprintf(cwidth_info_info "#      of DRC violations.  During the process of changing widths DRC's may     #\n")
  fprintf(cwidth_info_info "#      be created.  This program will report such but it is up to the user     #\n")
  fprintf(cwidth_info_info "#      to correct such errors.                                                 #\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "#      There may be an earlier version of this program.  You can tell if no    #\n")
  fprintf(cwidth_info_info "#      DRC's are reported and this help information is not available.          #\n")
  fprintf(cwidth_info_info "#      Use this version as there were some minor errors in the original.       #\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "#                                                                              #\n")
  fprintf(cwidth_info_info "################################################################################\n")
  fprintf(cwidth_info_info "\n")
  close(cwidth_info_info)
  axlUIViewFileCreate(cwidth_info_helpfile "Info" t list(82 20))
  deleteFile(cwidth_info_helpfile)
); end defun
;###########################################################
;#                                                         #
;#             End of cwidth_info_createInfo               #
;#                                                         #
;###########################################################



;########################################################################
;#                                                                      #
;#                Function _saveSelSet                                  #
;#                                                                      #
;########################################################################
(defun _saveSelSet ()
    (list (axlGetSelSet) (axlGetFindFilter nil) (axlGetFindFilter t)))

;########################################################################
;#                                                                      #
;#                Function _restoreSelSet                               #
;#                                                                      #
;########################################################################
(defun _restoreSelSet (oldSelSet "l")
    (axlSetFindFilter ?enabled (cons "noall" (nth 1 oldSelSet))
		      ?onButtons (cons "noall" (nth 2 oldSelSet)))
    (axlSingleSelectObject (car oldSelSet))
    t)


;########################################################################
;#                                                                      #
;#                Function findAllOfType                                #
;#                                                                      #
;########################################################################
(defun findAllOfType (findType "t")
    (let (selSet oldSetData)
	(setq oldSetData (_saveSelSet))
	(axlClearSelSet)
	(axlSetFindFilter ?enabled  (list "noall" findType "invisible")
			  ?onButtons  (list "noall" findType))
	(axlAddSelectAll)
	(setq selSet (axlGetSelSet))
	(_restoreSelSet oldSetData)

	selSet))

;########################################################################
;#                                                                      #
;#                Function skillFindAll                                 #
;#                                                                      #
;########################################################################
(defun skillFindAll ()
    (let (selSet oldSetData)
	(setq oldSetData (_saveSelSet))
	(axlClearSelSet)
	(axlSetFindFilter ?enabled  (list  "all" )
			  ?onButtons  (list  "all" ))
	(axlAddSelectAll)
	(setq selSet (axlGetSelSet))
	(_restoreSelSet oldSetData)

	selSet)
);skillFindAll


;########################################################################
;#                                                                      #
;#                Function ashFindAllPins                               #
;#                                                                      #
;########################################################################
(defun ashFindAllPins ()
    (findAllOfType "PINS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllVias                               #
;#                                                                      #
;########################################################################
(defun ashFindAllVias ()
    (findAllOfType "VIAS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllClines                             #
;#                                                                      #
;########################################################################
(defun ashFindAllClines ()
    (findAllOfType "CLINES")
); end ashFindAllClines

;########################################################################
;#                                                                      #
;#                Function ashFindAllClinesegs                          #
;#                                                                      #
;########################################################################
(defun ashFindAllClinesegs ()
    (findAllOfType "CLINESEGS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllLines                              #
;#                                                                      #
;########################################################################
(defun ashFindAllLines ()
    (findAllOfType "LINES"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllLinesegs                           #
;#                                                                      #
;########################################################################
(defun ashFindAllLinesegs ()
    (findAllOfType "LINESEGS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllDrcs                               #
;#                                                                      #
;########################################################################
(defun ashFindAllDrcs ()
    (findAllOfType "DRCS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllText                               #
;#                                                                      #
;########################################################################
(defun ashFindAllText ()
    (findAllOfType "TEXT"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllShapes                             #
;#                                                                      #
;########################################################################
(defun ashFindAllShapes ()
    (findAllOfType "SHAPES"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllShapesegs                          #
;#                                                                      #
;########################################################################
(defun ashFindAllShapesegs ()
    (findAllOfType "SHAPESEGS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllVoids                              #
;#                                                                      #
;########################################################################
(defun ashFindAllVoids ()
    (findAllOfType "VOIDS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllVoidsegs                           #
;#                                                                      #
;########################################################################
(defun ashFindAllVoidsegs ()
    (findAllOfType "VOIDSEGS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllSymbols                            #
;#                                                                      #
;########################################################################
(defun ashFindAllSymbols ()
    (findAllOfType "SYMBOLS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllComponents                         #
;#                                                                      #
;########################################################################
(defun ashFindAllComponents ()
    (findAllOfType "COMPONENTS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllNets                               #
;#                                                                      #
;########################################################################
(defun ashFindAllNets ()
    (findAllOfType "NETS"))

;########################################################################
;#                                                                      #
;#                Function ashFindAllFigures                            #
;#                                                                      #
;########################################################################
(defun ashFindAllFigures ()
    (findAllOfType "FIGURES"))