how can I find all net segments from type "path" with same net and select them in some loop?

axlCmdRegister("findSegSameNet" `findSegSameNet)
(defun findSegSameNet ()
	axlClearSelSet()
	axlSetFindFilter(?enabled '(noall CLINES NAMEFORM) ?onButtons '(noall ALL))
	mypopup = axlUIPopupDefine(nil (list (list "Done" 'axlFinishEnterFun) (list "Cancel" 'axlCancelEnterFun)))
	axlUIPopupSet( mypopup)
	while(axlSelect(?prompt "Please select an element...") 
		seg = axlGetSelSet()
		axlClearSelSet()
		if(seg == nil then
			printf("\n")
			print("Please select exactly one CONNECT LINE")
		else
			if(length(seg) > 1 then
				print("Please select exactly one CONNECT LINE")
			else
				seg = car(seg)
				if(seg->objType != "path" then
					print("Please select exactly one CONNECT LINE")
				else
					;# how can I find all net segments from type "path" with same net and select them in some loop?
					save_visible = axlVisibleGet()
					axlVisibleDesign(nil)
					axlVisibleLayer("ETCH" t)
					axlAddSelectAll()
					select_list = setof(e axlGetSelSet() e != seg && e->net == seg->net)
					axlClearSelSet()
					axlVisibleSet(save_visible)
					axlShowObject(select_list)
					println(select_list)
				)
			)
		)
		
	)
)